question sur les couleurs incrémentation

T

titiborregan5

XLDnaute Accro

• 1 Juillet 2013

• #2

Re : question sur les couleurs incrémentation

Bonjour pasquet, le forum,

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 1 Juillet 2013

• #3

Re : question sur les couleurs incrémentation

Bonsour®

pasquetp à dit:

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

Cliquez pour agrandir...

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...

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 1 Juillet 2013

• #4

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

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 1 Juillet 2013

• #5

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

 

Pièces jointes

• test parent enfant.xls

  77 KB · Affichages: 26
• test parent enfant.xls

  77 KB · Affichages: 31
• test parent enfant.xls

  77 KB · Affichages: 24

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Juillet 2013

• #6

Re : question sur les couleurs incrémentation

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

 

Pièces jointes

• test parent enfant.xls

  152 KB · Affichages: 34
• test parent enfant.xls

  152 KB · Affichages: 33
• test parent enfant.xls

  152 KB · Affichages: 32

Dernière édition: 1 Juillet 2013

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 2 Juillet 2013

• #7

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

 

Pièces jointes

• Copie de test parent enfant.xls

  139.5 KB · Affichages: 23

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Juillet 2013

• #8

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 :

VB:

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.

 

Dernière édition: 2 Juillet 2013

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 2 Juillet 2013

• #9

Re : question sur les couleurs incrémentation

Re,

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

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 2 Juillet 2013

• #10

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Juillet 2013

• #11

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 !

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 2 Juillet 2013

• #12

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

 

Pièces jointes

• parent enfant-1.xls

  464.5 KB · Affichages: 38

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 2 Juillet 2013

• #13

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Juillet 2013

• #14

Re : question sur les couleurs incrémentation

Est-ce ça que vous voulez ?

 

Pièces jointes

• parent enfant.xls

  384 KB · Affichages: 33

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 2 Juillet 2013

• #15

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

 

Pièces jointes

• Copie de parent enfant-1.xls

  459.5 KB · Affichages: 27

Vote positif 0 Vote négatif