Le code actuel ci-dessous ne fonctionne pas car il trouve que le RsnChng est toujours = "Raison".

Au départ, là où je pensais que le terme "Raison" apparaissait, j'ai pensé que je pouvais simplement coder pour cela, mais en réalité, il est toujours là, tout simplement invisible car il est de couleur noire comme l'arrière-plan, donc vous ne le voyez pas, - le texte couleur car il devient blanc lorsqu'il a besoin d'une action effectuée.

Existe-t-il donc un moyen de jeter dans le code ci-dessous pour déterminer que la couleur du texte est blanche, puis d'exécuter le code ?

RsnChng = Trim(HE.CurrentHost.TextRC(20, 2, 6))
If RsnChng = "Reason" Then
    HE.CurrentHost.PutText "Finished by MPT055", 20, 20
    Utilities.PressKey "ENTER", False, UseIBM1, "6", , "YES", "BUTTONS"
End If

Merci d'avance Mike

0
Mikey 20 févr. 2020 à 03:04

1 réponse

Meilleure réponse

Vous pouvez utiliser le code suivant pour obtenir la couleur de la police :

Function GetFontColor(Target As Range) As Integer
    GetFontColor = Target.Font.ColorIndex
End Function

Ensuite, utilisez le même dans la condition IF.

If GetFontColor(Range("A1"))=2 then 
...
End If

Et si vous voulez vérifier la couleur de la cellule, utilisez ce qui suit

If Range("A1").Interior.Color = RGB(255, 255, 255) Then
...
End If
0
Naveen Kumar 20 févr. 2020 à 03:54