Discussion :

[nini94]

Bonjour,

débutante en VBA pour Excel, je cherche un moyen de coloriser une case en fonction d'une autre case (sur la même ligne) si et seulement la première case est non vide.
J'ai réussi à le faire pour un cas particulier (ci-dessous) mais je n'arrive pas à le généraliser à toutes les cases voulues.
Dans l'exemple ci-dessous, dès que la case C7 est non vide elle prend la couleur de la case B7. Comment le généraliser à toutes les cases voulues ?

De plus, si je change la couleur dans la case B7, la case C7 ne change pas automatiquement, y-a-t-il une fonction qui permet de mettre à jour la case directement dès que B7 change de couleur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
 
Range("B7").Select
tot = Selection.Interior.ColorIndex
 
Range("C7").Select
If (Range("C7") <> "") Then
 
    With Selection.Interior
        .ColorIndex = tot
    End With
Else
    With Selection.Interior
        .ColorIndex = xlNone
    End With
 
End If
 
End Sub

Merci d'avance,

Bonne journée

[mercatog]

A chaque changement d'une cellule de la colonne C à partir de la ligne 7

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Count = 1 And Target.Column = 3 And Target.Row >= 7 Then
    If Target.Value = "" Then
        Target.Interior.ColorIndex = xlNone
    Else
        Target.Interior.Color = Target.Offset(0, -1).Interior.Color
    End If
End If
End Sub

[Kimy_Ire]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Count = 1 Then
    If (Target.Value <> "") Then
        Target.Interior.Color = Cells(Target.Row, 2).Interior.Color
    Else
        Target.Interior.Color = xlNone
    End If
End If
 
End Sub

Check la colonne 2 (soit B). Si tu modifies une cellule sur la ligne en question, elle prendra la couleur de cette colonne (si tu remplis la cellule) ou rien (si tu ne la remplis pas ou si tu supprimes son contenu) !

Bonne continuation à toi !

EDIT : mercatog first. ^^

[nini94]

Bonsoir,

merci pour vos réponses rapides.
ça fonctionne maintenant impec, il suffit juste d'une dernière petite boucle et tout est ok