Mise en forme conditionnelle d'une colonne

Fermé
ched64 Messages postés 52 Date d'inscription lundi 1 avril 2013 Statut Membre Dernière intervention 9 mai 2016 - 4 mars 2014 à 11:14
via55 Messages postés 14506 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 27 décembre 2024 - 4 mars 2014 à 14:00
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 lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 418
4 mars 2014 à 12:32
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 lundi 1 avril 2013 Statut Membre Dernière intervention 9 mai 2016
4 mars 2014 à 12:52
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 14506 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 27 décembre 2024 2 738
4 mars 2014 à 14:00
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