Discussion :

[ricoree78]

bonjour
je souhaite boucler sur une colonne A et en fonction du contenu de la cellule OK ou NOK mettre du rouge ou du vert
ce code ne marche pas je ne trouve pas pourquoi
pouvez vous m'aider svp ?
Merci

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
 
Dim Cell As Range
Dim x As Integer
 
'récupère le numéro de la dernière ligne non vide
'dans la colonne A
x = Range("A65536").End(xlUp).Row
 
'Boucle sur les cellules de la colonne A
For Each Cell In Range("A2:A" & x)
 
    Phrase = Cell
 
    If Phrase = "OK" Then
    With Selection.Interior
        .ColorIndex = 45
        .Pattern = xlSolid
    End With
 
   ElseIf Phrase = "NOK" Then
    With Selection.Interior
        .ColorIndex = 43
        .Pattern = xlSolid
    End With
 
Next Cell
 
End Sub

[Invité]

Bonjour

Déjà tu déclare ta variable x comme un entier, déclare là comme un long, car au delà de 32000 lignes tu auras un soucis

puis

Code :

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

1
2
 
For Each Cell In Range("A2:A" & x & "")

Dejà dans un premier temps.
Et soit plus explicit, donne nous le message d'erreur s'il y en as et où s'arrête le programme

Starec

[ricoree78]

j ai le message Next sans for qui saffiche comme erreur

[Invité]

Re

il te manque un "End if" avant le next cell

Starec

[ricoree78]

ca ne marche pas il colore en rouge la cellule sur laquelle je me trouve lorsqu j'execute la macro

[Invité]

Re

C'est normal, car avec l'instruction

Code :

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

1
2
3
4
5
 
With Selection.Interior
        .ColorIndex = 45
        .Pattern = xlSolid
    End With

tu colorie la cellule sélectionné, donc active, il faut avant que tu sélectionnes la cellule

Code :

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

1
2
 
range("A" & x & "").select

Starec