Colorier des lignes (en utilisant seulement 2 couleurs)
Bonjour,
Je cherche à colorier un tableau (une alternance de 2 couleurs seulement)... comment faire (je joins ce que je voudrais avoir comme résultat en copie écran) ? y a t'il une formule ou bien peut-on utiliser le format conditionnel ? Merci de votre aide.
Bonjour
Si tu n'as pas trop de fournisseurs ,tu peux faire une formule Mise en Forme Conditionnelle
Crdlt
Si j'en ai beaucoup
Bonjour gmb,
Oui cela serait parfait mais j'ai plusieurs colonnes (5) dasn mon tableau et toutes doivent être colorée et comme je suis une vrai tanche en matière de VBA, je vais avoir vraiment besoin d'explication. J'ai vu le code, mais du coup il faut rajouter dans le "Range (A1:F1940) pour que le tableau soit colorer une fois sur deux dans son intégrité ? Y a t'il autre chose à faire ? les lignes de code en gras ici doivent aussi être modifiées, non ?
Encore merci,
Option Explicit
Dim tablo, dico As Object, k
Dim i&, n&
Sub Colorer()
Set dico = CreateObject("Scripting.Dictionary")
tablo = Range("A1").CurrentRegion
For i = 2 To UBound(tablo, 1)
dico(tablo(i, 1)) = ""
Next i
k = dico.keys
For n = 0 To dico.Count - 1
For i = 2 To UBound(tablo, 1)
If tablo(i, 1) = k(n) And WorksheetFunction.IsEven(n) Then
Range("A" & i & ":G" & i).Interior.Color = RGB(255, 242, 204)
ElseIf tablo(i, 1) = k(n) And Not WorksheetFunction.IsEven(n) Then
Range("A" & i & ":G" & i).Interior.Color = RGB(153, 204, 255)
End If
Next i
Next n
End Sub
Bonjour
Remplace le code existant par celui-ci
Option Explicit
Dim tablo, dico As Object, k
Dim i&, n&
Sub Colorer()
Set dico = CreateObject("Scripting.Dictionary")
tablo = Range("A1").CurrentRegion
For i = 2 To UBound(tablo, 1)
dico(tablo(i, 1)) = ""
Next i
k = dico.keys
For n = 0 To dico.Count - 1
For i = 2 To UBound(tablo, 1)
If tablo(i, 1) = k(n) And WorksheetFunction.IsEven(n) Then
Range("A" & i & ":F" & i).Interior.Color = RGB(255, 242, 204)
ElseIf tablo(i, 1) = k(n) And Not WorksheetFunction.IsEven(n) Then
Range("A" & i & ":F" & i).Interior.Color = RGB(153, 204, 255)
End If
Next i
Next n
End Sub
Cela fonctionne parfaitement, il suffira de redimensionner les "Range" le cas échéant. Merci à vous Joco7915 et aussi gmb.