Bonjour,
J'utilise dans mon fichier exccel, cette macro :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 _
And Target.Row >= 2 Then
If UCase(Target.Value) = "0" Then
Target.EntireRow.Interior.ColorIndex = 22
Else
Target.EntireRow.Interior.ColorIndex = 0
End If
End If
End Sub
Celle-ci, me permet Lorsque l'Une des case de la collone 8 est egale a 0, de changer toute la couleur de la ligne en question.
N'y connaissant rien en VB, j'essaye, sans trouver la solution, d'ajouter dans cette macro, une option afin qu'en plus de changer la couleur de toute la ligne;
Lorsque la condition précedente est vrai, Cela change la couleur du texte de la collone precedante (soit la collone 7) egalement...
J'ai essayer d'inventer pas mal de ligne de code mais rien n'y fait... la programation soit on connait les "bon" termes soit on n'y arrive pas...
Ce que j'ai essayer :/
Case.(Target.Column -1).Font.ColorIndex = 22 -> J'etait parti sur le principe que la macro se rendant compte que la Case X etait modifier, celle-ci aurai été apte a trouver la case x-1...
Bref j'ai essayer pas mal de chose qui ne fonctionne helas pas :/
