Mise en forme conditionnelle d'une colonne
Bonjour,
J'utilise dans le cadre de mon travail un fichier qui est tout automatisé à l'aide de macro.
Je veux y rajouter une mise en forme conditionnelle mais je n'arrive pas, en mettant une mise en forme normal, celle-ci est écrasée par la macro, je dois donc passer obligatoirement par une MACRO.
La mise en forme souhaitée est la suivante :
Si la cellule "AB1" est égale à "S17"
ET SI la cellule "AB4" est égale à "J21"
ALORS collorer les celulle en "Orange" de "AB5" jusqu'à la dernière cellule du tableau.
Merci de votre aide,
J'utilise dans le cadre de mon travail un fichier qui est tout automatisé à l'aide de macro.
Je veux y rajouter une mise en forme conditionnelle mais je n'arrive pas, en mettant une mise en forme normal, celle-ci est écrasée par la macro, je dois donc passer obligatoirement par une MACRO.
La mise en forme souhaitée est la suivante :
Si la cellule "AB1" est égale à "S17"
ET SI la cellule "AB4" est égale à "J21"
ALORS collorer les celulle en "Orange" de "AB5" jusqu'à la dernière cellule du tableau.
Merci de votre aide,
3 réponses
-
ContributeurBonjour
il faudrait peut être travailler sur ce qui, dans la macro, écrase la, mise en forme pour pouvoir utiliser une conditionnelle.
crdlmnt
-
Bonjour,
Merci d'avoir pris le temps de répondre,
J'ai déjà étudié cette option, mais aprés en avoir parlé avec mon supérieur, il aimerai que cela soit fait en macro comme le reste du fichier.
Je suis donc obligé de passer par une macro ce qui n'est pas mon fort...
Si jamais quelqu'un sais comment écrire le passage voulu,
Cordialement, -
Bonjour
Sub colorie()
If Sheets("Feuil1").Range("AB1") = Sheets("Feuil1").Range("S17") And Sheets("Feuil1").Range("AB4") = Sheets("Feuil1").Range("J21") Then
For n = 5 To Sheets("Feuil1").Range("AB" & Rows.Count).End(xlUp).Row
Sheets("Feuil1").Range("AB" & n).Interior.ColorIndex = 44
Next
End If
End Sub
Remplacer Feuil1 par le nom de ta feuille dans la macro
Cdlmnt
