Discussion :

[young 25]

Bonjour à tous et à toutes

Je souhaite mettre en couleur une cellule( colonne B) par rapport à la valeur d'une autre cellule ( colonne A)avec une macro.
J'ai fait une macro qui met en couleur la colonne A mais je ne trouve pas comment faire pour la colonne B.

Je vous joins le fichier

Merci d'avance
A+

[patricktoulon]

bonjour
il est rare q'un forumeur ouvre un fichier déposer en 1er message du post
depose plutot le code que tu a plus ou moins élaboré

il faudrais que l'on ai plus de renseignements sur la condition entre la colonne "a" et "b"
exemple;
si on doit comparer les cellules meme ligne en colonne "a" et "b"

ou si les lignes sont différentes

mais dans tout les cas tu a tout ca avec

fait une recherche sur :

1° sheet_selection_change 'agit apres avoir modifié une cellule


2° range intersect ' renseigne si une cellule dans une plage précisée a été modifié
normalement avec ca tu devrais facilement comprendre

reviens au cas ou

au plaisir

[BlueMonkey]

Bonjour,

En complément, une autre piste en partant du code du fichier.

S'il s'agit simplement de mettre à couleur dans la colonne B au lieu de la A,
la fonction Offset(0, 1) permet de travailler sur la colonne 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
24
25
26
27
28
29
 
Sub Rectangle1_Clic()
 
    Dim ZoneModifier As Range
    Dim cellule As Range
    'Affecte une couleur en fonction de la valeur de la cellule
    Set ZoneModifier = Range("A4:A385")
    Dim c As Integer
 
    For Each cellule In ZoneàModifier
        Select Case cellule
            Case Is = ""
                c = 2
            Case Is = "Bleu"
                c = 5
            Case Is = "Verte"
                c = 4
            Case Is = "Orange"
                c = 46
            Case Is = "Rose"
                c = 7
            Case Is = "Jaune"
                c = 6
        End Select
 
        cellule.Offset(0, 1).Interior.ColorIndex = c
    Next
 
End Sub

[young 25]

Bonjour à tous et à toutes,
Merci à vous BlueMonkey et patricktoulon.
Cela fonctionne bien, je suis novice en macro et votre aide a été précieuse sur ce coup.
Si j'ai bien compris la fonction offset permet de se décaler offset(0,1)

Si j'ai un offset (1 , 1) je me décale d'une case à droite et une en bas.

Si j'ai saisi le truc cela doit être cela.

Merci encore et trés bon week-end
A+

[BlueMonkey]

Bonjour,

Si j'ai bien compris la fonction offset permet de se décaler offset(0,1)
Si j'ai un offset (1 , 1) je me décale d'une case à droite et une en bas.

Effectivement Offset(<nb ligne>,<nb colonne>) permet de décaler un objet du type Range (voir FAQ).

Je suis novice en macro[...]

Dans ce cas je conseil d'étudier la solution de Patricktoulon qui est basée sur les évènements reçu par une plage (= un objet du type Range)
depuis la feuille d'un classeur. (voir FAQ)

Et si la solution est suffisante, ne pas oublier de noter le sujet comme
Bon week-end.

[young 25]

Merci pour ce retour et j'ai pris la solution proposée par Patricktoulon et cela fonctionne.

Bon dimanche