De: Laurent longre Objet: Re: macro : colorier conditionnellement les cellules Date : dimanche 12 septembre 1999 13:49 En prenant vide = aucune couleur, 1 = rouge, 2 = bleu et diverses autres couleurs pour les valeurs 3 à 6, sur la plage A1:G7 dim I As long, J As Integer dim Couleurs Couleurs = array(xlColorIndexNone, 3, 5, 1, 2, 4, 6) application.screenupdating = false for I = 1 to 7 Step 2 for J = 1 to 7 cells(I + 1, J).Interior.ColorIndex = Couleurs(cells(I, J)) next J next I Pour élargir le nombre de lignes, remplace le 7 de 'for I = 1 to 7'. Pour spécifier d'autres couleurs, remplis le tableau array(...) avec les codes de couleur que tu veux associer respectivement aux valeurs vide, 1, 2, 3, 4, 5 et 6. Tu trouveras les codes de couleur dans la page d'aide de VBA sur la propriété ColorIndex. Laurent Pierre Hamel a écrit: > > Bonjour à tous, > > J'aimerais crér une macro VBA ayant la fonction suivante : > > Soit une plage Ai:Gi > Les cellules des lignes 1,3,5,7 etc.. peuvent contenir les donnés : > vide, 1,2,3,4,5 ou 6 > > Les cellules des lignes 2,4,6,8 etc.. doivent se colorer d'une couleur > différente > selon le contenu de la cellule situé juste au dessus. > rien si vide > rouge si 1 > bleu si 2 etc.. > > possible ? > > Merci pour votre aide compétente et généreuse. > > Pierre