cibleo
XLDnaute Impliqué
Bonsoir le forum,
Soit 3 cellules A1, B1 et C1.
Une seule d'entre elles peut contenir 1 ou plusieurs caractères rouges (Pas l'ensemble des caractères de la cellule) , comment retrouver son adresse.
Dans l'exemple, c'est B1.
Le but : utiliser l'adresse de la cellule trouvée dans un Select Case.
Le code ci-dessous fonctionne, si tous les caractères se trouvent colorés en rouge.
Pouvez-vous m'aider à reformuler la condition ?
Bonne soirée Cibleo
Soit 3 cellules A1, B1 et C1.
Une seule d'entre elles peut contenir 1 ou plusieurs caractères rouges (Pas l'ensemble des caractères de la cellule) , comment retrouver son adresse.
Dans l'exemple, c'est B1.
Le but : utiliser l'adresse de la cellule trouvée dans un Select Case.
Le code ci-dessous fonctionne, si tous les caractères se trouvent colorés en rouge.
Pouvez-vous m'aider à reformuler la condition ?
Code:
Sub Marquage()
Dim Mavariable As String, j As Byte
For j = 1 To 3
If Cells(1, j).Font.ColorIndex = 3 Then
Mavariable = Cells(1, j).Address
MsgBox Mavariable
Exit Sub
End If
Next
End Sub
Bonne soirée Cibleo