almas
XLDnaute Occasionnel
Bonjour le forum
j 'utilise une macro qui colorie des cellules en fonction d' une légende.
Mais j 'ai un tableau dans lequel j 'aimerai également appliquer cette action .
Seulement je n 'écrit pas manuellement dans les cellules ,cela provient d 'un calcul
Donc j 'aimerai adapter , si cela est possible, pour que ma macro puisse lire les textes et appliquer la couleur en fonction après que les calculs se soit fait.
Par l intermédiaire d 'un bouton par exemple ou encore mieux a la fin des calculs en auto ^^
je vous joint un exemple du tableau (j'ai enlever les formules) avec le code qui marche manuellement
merci d 'avance
le code manuel:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim temoin As Boolean
Dim Ref As Variant
If Not Intersect(Target, Range("C6:AG100")) Is Nothing And Target.Count = 1 And Not temoin Then
temoin = True
Target.Interior.ColorIndex = xlNone
For Each Ref In Sheets("Feuil1").Range("AI10:AI27")
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 'utilise une macro qui colorie des cellules en fonction d' une légende.
Mais j 'ai un tableau dans lequel j 'aimerai également appliquer cette action .
Seulement je n 'écrit pas manuellement dans les cellules ,cela provient d 'un calcul
Donc j 'aimerai adapter , si cela est possible, pour que ma macro puisse lire les textes et appliquer la couleur en fonction après que les calculs se soit fait.
Par l intermédiaire d 'un bouton par exemple ou encore mieux a la fin des calculs en auto ^^
je vous joint un exemple du tableau (j'ai enlever les formules) avec le code qui marche manuellement
merci d 'avance
le code manuel:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim temoin As Boolean
Dim Ref As Variant
If Not Intersect(Target, Range("C6:AG100")) Is Nothing And Target.Count = 1 And Not temoin Then
temoin = True
Target.Interior.ColorIndex = xlNone
For Each Ref In Sheets("Feuil1").Range("AI10:AI27")
If UCase(Target.Value) = UCase(Ref.Value) Then
Target.Interior.ColorIndex = Ref.Interior.ColorIndex
End If
Next Ref
temoin = False
End If
End Sub