Coloration police selon texte d'une colonne donnée
Bonjour,
J'essaie de mettre en place une macro colorant l'écriture dans un range donné selon le texte contenu dans une colonne donnée.
Pour être plus précis, je veux colorer jusqu'à la dernière ligne "j", le range A:DS si la colonne O contient "Actif".
J'ai donc le code VBA ci-dessous, j'ai bien sûr défini plus haut ma last_row.
Dim j As Long
For j = 4 To last_row
If Range("O" & j).Value = "Actif" Then
With Range("A" & j & ":DS" & j).Font.Color = RGB(0, 0, 255)
End With
End If
If Range("O" & j).Value = "Inactif" Then
With Range("A" & j & ":DS" & j).Font.Color = RGB(255, 0, 0)
End With
End If
Next
Bien évidemment cela ne fonctionne pas, et je n'arrive pas à comprendre pourquoi, ni trouver un exemple équivalent sur le forum.
Avez-vous des idées pour m'aider ?
Merci
Bonjour,
Quoi ... sans voir le fichier!?Balachadha a écrit :Avez-vous des idées pour m'aider ?
Le mot "Actif" figure-t-il bien seul dans les cellules de la colonne O?
Que vient faire le 'With' au début de With Range("A" & j & ":DS" & j).Font.Color = RGB(0, 0, 255) ... (et le End With de la ligne suivante)?
Le problème était bien au niveau du With, cela avait enregistré directement via l'enregistreur de macro.
Pas besoin du fichier car c'est juste l'écriture qui était fausse ...
Merci de ton aide !
Pour info le code ci-dessous fonctionne bien :
Dim j As Long
For j = 4 To last_row
If Range("O" & j).Value = "Actif" Then
Range("A" & j & ":DS" & j).Font.Color = RGB(0, 0, 255)
If Range("O" & j).Value = "Inactif" Then
Range("A" & j & ":DS" & j).Font.Color = RGB(255, 0, 0)
Next
Bonne soirée