question sur les couleurs incrémentation

[pasquetp]

Bonjour,

Pour le travail j'essaye de faire quelque chose mais je hurte à une difficulté.

Voilà je souhaite mettre des couleurs par macro: il faurdrait que les couleurs changent:

exemple

x = 1

y = x+1

for a = 1 to 100

Sheets(1).Cells(a, 3).Interior.Color = y

je le fais tres mal mais je pense que ca represente l'idée

auriez vous une idee pour creer un compteur qui fasse changer la couleur a chaque fois

ou peut etre qu'il faudrait un for each

comme je suis as expert je me tourne sur vos lumières.

Merci à toutes et à tous pour votre aide

Cordialement

 

[pasquetp]

Re : question sur les couleurs incrémentation

en tout cas cette macro de ce ficier que j'envoie fonctionne bien. donc je pense que c'est bon. merci de toute ton aide que tu as apporté. you are a lifesavior

 

[Dranreb]

Re : question sur les couleurs incrémentation

Ça ne tourne pas chez moi. Mais ça me parait d'un style très lent.
Et Je ne vois pas l'intérêt d'une mise en forme conditionnelle.
Qu'est-ce qui ne va pas dans ma dernière proposition ?

 

[pasquetp]

Re : question sur les couleurs incrémentation

C'est curieux que ca ne tourne pas

peut etre que tu utilise une version anterieur d'excel

je viens de reouvir ton fichier:

je vois en fait des couleur qui ne correspondent pas

exemple

A-TSAW0925SS

je vois une couleur verte en colonne A et du rouge pour les memes valeur en colonne BK. ca devrait avoir les memes couleur

dans ma macro je mets la condition que si la valeur en colonne A egale valeur en colonne bk alors la couleur de la cellulle en colonne A va se mettre dans les cellules aux memes valeurs en colonne bk

je mets une photo qui montre tres clairement l'objectif

peux tu me dire si il y a la moindre incertitude

 

[pasquetp]

Re : question sur les couleurs incrémentation

si le bouton marche pas, essaye la macro depuis vba

 

[Dranreb]

Re : question sur les couleurs incrémentation

Oui, c'est indiqué, non, utilise: Excel 2003(PC)
Contrairement au 1er fichier ça commence en ligne 3 alors corriger l'instruction:

Set Plage = Feuil1.Range("A3:BK" & Feuil1.[A65536].End(xlUp).Row)

Si ça ne correspond à aucun parent existant je mets en rouge sur fond jaune. S'il ne le faut pas ça peut se rectifier. Il faut réexécuter la macro Parent après l'avoir ouvert. Les couleurs mise par le code chez moi ne peuvent pas être bonnes.