Discussion :

[Guillaume_PMO]

Bonjour (re)..!

Je souhaite faire une macro qui colore les cellules de ma colonne A et fonction des valeurs des cellules correspondantes dans la colonne B..

Voici mon essai, mais je n'arrive qu'a colorer la colonne B...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Format()
    Dim PLAGE As Range
    Range("C2").CurrentRegion.Select
    Set PLAGE = ActiveSheet.UsedRange
    For Each PLAGE In Selection
        Select Case PLAGE.Value
        Case Is = "VALEUR"
        PLAGE.Interior.ColorIndex = 45
        End Select
    Next
End Sub

[casefayere]

Bonsoir,
une idée un peu différente, à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Format()
Dim PLAGE As Range, cel As Range, derlg As Long
With ActiveSheet
   derlg = .Range("A" & .Rows.Count).End(xlUp).Row
   Set PLAGE = .Range("A2:A" & derlg)
   For Each cel In PLAGE
      If cel = "toto" Then
         cel(1, 2).Interior.ColorIndex = 45
      End If
   Next cel
End With
End Sub

[groslou2]

Tu peux aussi regarder du côté des mises en forme conditionnelles (format/mise en forme conditionnelle). C'est très facile à utiliser.