Re : Cadeau : Truc sympa qui change la couleur des lignes automatiquement.
Excuse moi Gorfael. Mais comme j’ai mis le fichier qui me pose problème
dans un précédent fil, et que j’ en ai mis un autre ici, je pensais bien faire.
Cette fois je reste sur ce fil.
Donc ci-dessous la macro du fichier qui met en couleur les lignes automatiquement à chaque changement d’item d’une colonne.
Si je comprends à peu près, sur la colonne voulue, il y a une boucle qui
fait une sorte de filtre, le colle en colonne GR puis fait le rapprochement avec une table de couleur (33 à 46) en colonne GS.
Apparemment ca marche très bien.
Sub Macro1()
'
j = 2
l = 2
Lig = 1
coul = 33
Range("GR1:GS117").Select
Selection.ClearContents
Range("A1").Select
S_col = InputBox(" PRECISEZ la COLONNE de référence (sélection) :")
S_col2 = InputBox(" Colonne de départ de la couleur :")
S_col3 = InputBox(" Colonne de fin de la couleur :")
Range(S_col & j).Select
For F = 2 To 200000
Range(S_col & F).Select
If ActiveCell.FormulaR1C1 = "" Then Exit For '********* si cellule vide alors Fin
code = ActiveCell.FormulaR1C1 '********* Code = cellule
Range("GR1").Select
For Lig = 1 To 500
Range("GR" & Lig).Select
If Cells(Lig, 201) = "" Then
Cells(Lig, 200).Value = code
Cells(Lig, 201).Value = coul
coul_a = coul
coul = coul + 1
If coul = 46 Then coul = 33
Exit For
End If
If ActiveCell.FormulaR1C1 = code Then
coul_a = Cells(Lig, 201).Value
Exit For
End If
Next Lig
Range(S_col2 & F & ":" & S_col3 & F).Select
With Selection.Interior
.ColorIndex = coul_a
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next F
End Sub
Qu’est-ce que j’entends par adapter ?
Dans le fichier ci-dessous (couleur_selon_cases_à_cocher), le problème
est un peu différent.
Déjà, je n’ai pas besoin des inputbox,
Je choisis d'abord ma feuille,
Ensuite, je coche certaines cases et ca met la couleur rouge (pourquoi pas)
L’ennui c’est que par exemple dans ma feuille 2, les doublons se touchent :
Alors ca fait des « paquets » rouges : (visuellement ca ne va pas)
Ce que je voudrais ( peut être avec une variable plutôt qu’une boucle)
mais la je suis totalement paumé, c’est utiliser si c’est possible une ou des parties de la macro ci-dessus pour mettre une couleur différente automatiquement pour chaque case cochée de la listbox 2.
Je pourrais donc utiliser plus facilement le dblclick.
Y a peut-être un tout autre moyen de faire mais je sais pas.
C’est un peu long mon explication mais j’ai essayé d’être clair.
Bonsoir et merci à tous.
