Aide complement macro couleur

  • Initiateur de la discussion Initiateur de la discussion almas
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

almas

XLDnaute Occasionnel
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
 

Pièces jointes

Re : Aide complement macro couleur

Bonjour,

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

Exemple sans boucle for :
Code:
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+
 
Dernière modification par un modérateur:
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😛
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
460
Réponses
1
Affichages
795
Réponses
0
Affichages
898
Réponses
2
Affichages
833
Retour