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

[ricoree78]

voici mon nouveau code

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
 
 
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 Range("A" & x & "").Select: With Selection.Interior
        .ColorIndex = 45
        .Pattern = xlSolid
    End With: ElseIf Phrase = "NOK" Then Range("A" & x & "").Select: With Selection.Interior
        .ColorIndex = 43
        .Pattern = xlSolid
    End With
 
Next Cell

j ai le message end if sans bloc if
avec cette partie grisee If Phrase = "OK" Then Range("A" & x & "").Select: With Selection.Interior

[Invité]

Re

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
 
 
Dim Cell As Range
Dim x As long
 
'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 Range("A" & x & "").interior
               .ColorIndex = 45
               .Pattern = xlSolid
          end with
    else
          with Range("A" & x & "").interior
              .ColorIndex = 43
              .Pattern = xlSolid
        End With
    end if
Next Cell

dans la mesure où tu n'as que deux valeurs possible

Cela devrait être mieux, pas testé

Starec

[ricoree78]

marche pas ce code

[Invité]

Re

Je viens de réditer

Starec

[ricoree78]

perdu ! marche pas
je peux avoir des cellules vides aussi ou bien un autre texte

[SfJ5Rpw8]

un case peu-être ...?

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
30
31
32
 
 
Dim Cell As Range
Dim x As Long
 
'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 & "")
 
    Select Case Cell.Text
 
    Case "OK"
          With Cell.Interior
               .ColorIndex = 45
               .Pattern = xlSolid
          End With
    Case "NOK"
          With Cell.Interior
              .ColorIndex = 43
              .Pattern = xlSolid
        End With
     Case Else 'Pour les autre cas
          With Cell.Interior
              .ColorIndex = xlNone
 
        End With
    End Select
Next Cell
End Sub

[ricoree78]

impecable
merci

[AlainTech]

Et le résolu, on doit le mettre pour toi?