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

 

[titiborregan5]

Re : question sur les couleurs incrémentation

Bonjour pasquet, le forum,

comment est déterminé x, qui lui même détermine y?

 

[Modeste geedee]

Re : question sur les couleurs incrémentation

Bonsour®

Bonjour,

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

telle que proposée la macro n'affichera que 100 couleurs parmi les 16millions~~ possibles.

ces 100 couleurs ne varieront successivement que 1/256 en nuances rouge , différences difficilement discernables...

si l'on va au-delà de 100 attention à la limites des formats possibles pour un classeur.


voir une alternative :
for y=1 to 100
Sheets(1).Cells(y, 3).Interior.ColorIndex = y mod 56
next

les couleurs varieront alors selon la palette standard par défaut (type Excel 2003, 56 couleurs)

la variation n'est pas linéaire(arc-en-ciel) mais peut être personnalisée...

 

[pasquetp]

Re : question sur les couleurs incrémentation

Rebonjour,

Merci de vos réponses très rapide

100 est en fait un mauvais exemple
je prefere cette fois mettre un fichier qui sera plus representatif

 

[pasquetp]

Re : question sur les couleurs incrémentation

voici le fichier

pourriez vous activer la macro et vous verrez des celleules en couleur

leur point commun est le suivant

en colonne BJ vous verrez le mot parent

en gros ce que je souhaite c'est qu'en colonne A au lieu d'avoir tout le temps la meme couleur c'est d'avoir differente couleur

c'est ma difficulté

notez que le nombre de ligne peut varier en fonction du fichier

donc c'est à prendre avec des pincettes si j'ose dire

 

[Dranreb]

Re : question sur les couleurs incrémentation

Bousoir.
Un essai avec mon module de calcul de couleurs.

 

[pasquetp]

Re : question sur les couleurs incrémentation

Bonjour,

Merci ca fonctionne bien. le seul petit défaut serait que certaines meme couleurs reviennent mais bon c'est déjà un grand pas en avant dont je vous remercie bcp 🙂

a présent j'en suis à l'étape finale qui peut etre compliqué

voila sur le fichier vous voyez en colonne BK les meme noms que ceux en colonne A

ce qu'il me reste c'est à mettre la couleur qui correspond a celle dans la colonne A

Je vous mets en pice jointe un resultat partiel pour bien comprendre le resultat a obtenir avec une macro

Mille Merci a tous

vraiment ce site est le meilleur et c'est surtout grace a votre aide et temps que je passe que par ce site

 

[Dranreb]

Re : question sur les couleurs incrémentation

Bonjour.
Avez vous avez la même version d'Excel que moi ? Auquel cas il faudrait passer par le ColorIndex
Dans le cas contraire vous pouvez jouer aussi sur le clair / foncé.
Essayez comme ça, je ne peux pas tester exactement ce que ça donne :

Sub Parent()
Dim A As Double, I As Long, E As Double, L As Long, Coulfond As Long, CoulPol As Long
A = 5 + 3 / 8: I = 0
For L = 4 To Feuil1.Range("A65536").End(xlUp).Row
   If Feuil1.Cells(L, 62) = "parent" Then
      A = ((Int(A * 8) + 3) Mod 48) / 8
      I = (I + 1) Mod 5: E = 120 * 1.5 ^ I
      Coulfond = CoulEAF(E, A, 500)
      CoulPol = IIf(E < 300, &HFFFFFF, 0)
      With Feuil1.Cells(L, 1): .Interior.Color = Coulfond: .Font.Color = CoulPol: End With
   Else
      With Feuil1.Cells(L, 63): .Interior.Color = Coulfond: .Font.Color = CoulPol: End With
      End If
   Next L
End Sub

P.S. Ce calcul donne 96 couleurs différentes. Mais pouvez vous toujours encore les distinguer ? Attention à ne pas atteindre le nombre maximum de formats différents possibles. Ne combinez pas cela avec des bordures différentes.

 

[pasquetp]

Re : question sur les couleurs incrémentation

Re,

j'essaie ca tout de suite et je vous dis le resultat

 

[pasquetp]

Re : question sur les couleurs incrémentation

Je viens de voir,

au fait j'utilise excel 2010.

bien que ce soit très bon, il y a un petit détail important:


il faut que ce soit les memes données:

j'ai mis par exemple FBa-TSCPFR avec un a minuscule en colonne bk pour l'un d'eux et malheuresement il a été coloré

il faudrait que ce soit en couleur s'il trouve la même exacte donnée. dsl pour les complications

Merci de votre aide

 

[Dranreb]

Re : question sur les couleurs incrémentation

Et si vous joignez le classeur avec, non seulement avec cette altération artificielle, mais les vrais cas de diversité rencontrés en pratique ?… Parce qu'après, je vous attends, vous allez encore me dire qu'un parent peut se retrouver dans un autre groupe !

 

[pasquetp]

Re : question sur les couleurs incrémentation

Bonjour,

excusez moi d'avoir oublié d'inclure le fichier

je l'ai retravvaillé et ait peut etre trouvé une solution : utuilisation de macro + format cobnditionnel

voici le fichier

j'ai plus qu'un probleme pour obtenir la bonne couleur

pourriez vous jeter un coup d'oeil?

Merci infiniment de toute votre aide et patience que vous avez eu

 

[pasquetp]

Re : question sur les couleurs incrémentation

je pense avoir trouvé


Sub S()
Dim D As Long, E As Long, A As Double
A = 0

Application.ScreenUpdating = False
For D = 3 To Range("A65536").End(xlUp).Row

For E = 3 To Range("A65536").End(xlUp).Row



If Cells(D, 63) = Cells(E, 1) Then

A = ((Int(A * 8) + 7) Mod 48) / 8

Cells(D, 63).Select
Selection.FormatConditions.Add Type:=xlTextString, String:=Cells(E, 1), _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = Cells(E, 1).Interior.Color
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False



End If



Next E

Next D

Application.ScreenUpdating = True
End Sub

 

[Dranreb]

Re : question sur les couleurs incrémentation

Est-ce ça que vous voulez ?

 

[pasquetp]

Re : question sur les couleurs incrémentation

Salut,

Merci du fichier.

il ne correspond malheuresement pas à la demande

j'ai réussi à faire une macro mélangé avec du format conditionnel

je te l'envois et il suffit de la lancer la macro

merci de me dire ce que tu en pense

Cordialement