Mise en forme conditionnelle d'une colonne

ched64 Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -  
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   -
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,
A voir également:

3 réponses

Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Bonjour
il faudrait peut être travailler sur ce qui, dans la macro, écrase la, mise en forme pour pouvoir utiliser une conditionnelle.
crdlmnt

0
ched64 Messages postés 52 Date d'inscription   Statut Membre Dernière intervention  
 
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,
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
0