[VBA-E] boucler sur une colonne

Version imprimable

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:

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

14/02/2007, 15h49
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:

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
14/02/2007, 15h53
ricoree78

j ai le message Next sans for qui saffiche comme erreur
14/02/2007, 15h55
Invité

Re

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

Starec
14/02/2007, 15h59
ricoree78

ca ne marche pas il colore en rouge la cellule sur laquelle je me trouve lorsqu j'execute la macro
14/02/2007, 16h02
Invité
Re

C'est normal, car avec l'instruction
Code:

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:

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

voici mon nouveau code

Code:

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

Code:

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

14/02/2007, 16h21
ricoree78

marche pas ce code
14/02/2007, 16h22
Invité

Re

Je viens de réditer

Starec
14/02/2007, 16h34
ricoree78

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

un case peu-être ...?

Code:

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

14/02/2007, 17h26
ricoree78

impecable
merci
14/02/2007, 20h04
AlainTech

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