Discussion :

[m4tl4b]

Bonjour,

Je précise que je débute et que mes connaissances sont proches du néant
Je cherche à changer la couleur d'une case si la case voisine a une certaine valeur, par exemple changer la couleur de la case en rouge si la case qui est à sa droite a la valeur "1", et en bleu si la case à sa droite possède la valeur "2".

Merci beaucoup d'avance

[fring]

Bonjour,
Tu peux simplement le faire, sans code, via la Mise en Forme Conditionnelle

Sélectionne la cellule A1
Menu Format --> Mise en Forme Conditionnelle

Condition 1 :
Sélectionne "la formule est" et tu introduits =$B$1=1
Format --> Motif et tu mets la couleur qui va bien

Condition 2 :
même topo en indiquant =$B$1=2

Si tu tiens absolument à le faire via un bout de code VBA
Code à insérer dans l'évènement Change de la feuille concernée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    Select Case Target.Value
        Case 1
            Range("A1").Interior.ColorIndex = 3
        Case 2
            Range("A1").Interior.ColorIndex = 5
        Case Else
            Range("A1").Interior.ColorIndex = xlNone
    End Select
End If
End Sub

Ce code ne fonctionne que pour une seule cellule, si plusieurs cellules yfo adapter

A toi de dire ce que tu souhaites obtenir exactement et par quel moyen

[Gorfael]

Salut m4tl4b, fring et le forum
Je mettrais plutôt

Condition 1 :
Sélectionne "la formule est" et tu introduits =B1=1
Format --> Motif et tu mets la couleur qui va bien
Condition 2 :
même topo en indiquant =B1=2

permettant un coiper format
Attention : 3 possibilités de changement max(+la couleur initiale)
L'ordre des condition peut avoir de l'importance : la 2me ne sera testée que si la première condition n'est pas à VRAI
La 3me, que si la première et la seconde conditions sont à FAUX

Sinon, par macro automatique =>
Clic-droit sur le nom de l'onglet concerné=>Menu contextuel>>Visualiser le code
tu colles la macro suivante :

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
20
21
22
23
 
Private Sub Worksheet_Change(ByVal Target As Range)
'déclaration =========================
Dim Cel As Range
'Test de validité ====================
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
'si les cellule modifièes n'appartiennent pas à la colonneA
'sortir
'traitement ==========================
For Each Cel In Intersect(Target, Columns(1))
'pour chaque cellule modifiée appartenant à A
    Select Case Cel
        Case 1 'cel=1 =>rouge
            Cel.Offset(0, 1).Interior.ColorIndex = 3
            'la cellule de la colonne de droite coloriée en rouge
        Case 2 'cel=2 =>bleu
            Cel.Offset(0, 1).Interior.ColorIndex = 5
        Case Else 'autres valeurs de cel=>aucun
            Cel.Offset(0, 1).Interior.ColorIndex = xlNone
    End Select
Next Cel
'cellule suivante
End Sub

si tu modifies des cellules de la colonne 1 (A), tu colories la cellule de la colonne B de la même ligne
La boucle est nécessaire pour traiter les modification de plusieurs cellules en même temps (effacement, coller)
Si tu as des questions, n'hésite pas
A+