Aide complement macro couleur

[almas]

Bonjour le forum

j 'ai besoins de votre science infuse pour un probleme que j arrive pas a résoudre moi même

j' utilise une petite macro qui met la couleur identique à celle d'une liste pour une celule mais...

"Private Sub Worksheet_Change(ByVal Target As Range)

Dim temoin As Boolean
Dim Ref As Variant
If Not Intersect(Target, Range("A1:A600")) Is Nothing And Target.Count = 1 And Not temoin Then
temoin = True
Target.Interior.ColorIndex = xlNone
For Each Ref In Sheets("Base de donnée").Range("B03:B10")
If UCase(Target.Value) = UCase(Ref.Value) Then
Target.Interior.ColorIndex = Ref.Interior.ColorIndex
End If
Next Ref
temoin = False
End If
End Sub
"
j 'arrive pas a faire que mes cellule suivante prennent la même couleur

je joint un petit fichier test et j 'aimerai que les cellules jusqu 'a col7 prennent la même couleur que la cellule col A

merci d avance

 

[Guest]

Re : Aide complement macro couleur

Bonjour,

Un simple Target.Resize(,8).Interior.colorIndex = ... suffit.

Exemple sans boucle for :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Ref As Variant
    If Not Intersect(Target, Range("A1:A600")) Is Nothing And Target.Count = 1 Then
        Target.Interior.ColorIndex = xlNone
        With Sheets("Base de donnée").Range("B3:B10")
            'Utilisation de l'équivalent de la fonction de feuille 'EQUIV' pour retrouver 
            'le numéro d'ordre de l'item cherché dans B3:B10
            Ref = Application.Match(Target.Value, .Cells, 0)
            'S'il est trouvé
            If Not IsError(Ref) Then Target.Resize(, 8).Interior.ColorIndex = .Cells(Ref).Interior.ColorIndex
        End With
    End If
End Sub

A quoi sert la variable 'Témoin' ?
A+

 

[almas]

Re : Aide complement macro couleur

Target.Resize bien ca!^^( j'ai noté ^^)
merci bc HASCO

pour le "temoin" je sais pas
j 'ai jamais vraiment appris le code VBA
je récupérè des macros demander par d autre ou moi même et je les adapte dans mes classeurs en essayant tan que possible de comprendre les actions

mais certaine m 'échappes

 

[Guest]

Re : Aide complement macro couleur

re,

J'ai mis un commentaire dans la macro du post #2.

Au fait Range("B03:B10") s'écrit avantageusement Range("B3:B10").

A+

 

[almas]

Re : Aide complement macro couleur

Merci pour les commentaires