Problème avec une boucle
Bonjour,
j'essaie de créer une automatisation des codes couleurs à partir de 4 cellules sur la droite.
Si le client peut nous fournir 3 types de clientèle, alors mettre nom en rouge,
2 types de clientèle alors mettre nom en jaune
ainsi de suite.
J'ai cherché partout et je ne trouve pas pourquoi la boucle ne s'exécute pas normalement.
Il souligne bien que quelques lignes au début et le reste devient gris. De plus, quand je change les champs et je reéssaie la macro, il ne change plus aucune couleur.
Voici le code:
Sub Surligner()
Dim var_compteur As Integer
var_compteur = 0
For i = 6 To 1000
If Cells(i, 11).Value Like "*encore*" Then
var_compteur = var_compteur + 1
Else
var_compteur = var_compteur + 0
End If
If Not Cells(i, 12).Value = 0 And Not Cells(i, 13).Value Like "" Then
var_compteur = var_compteur + 1
Else
var_compteur = var_compteur + 0
End If
If Cells(i, 14).Value Like "*encore*" Then
var_compteur = var_compteur + 1
Else
var_compteur = var_compteur + 0
End If
If var_compteur = 3 Then
Range("A" & i & ":j" & i).Interior.Color = RGB(255, 0, 0)
ElseIf var_compteur = 2 Then
Range("A" & i & ":j" & i).Interior.Color = RGB(255, 255, 0)
ElseIf var_compteur = 1 Then
Range("A" & i & ":j" & i).Interior.Color = RGB(0, 255, 0)
ElseIf var_compteur = 0 Then
Range("A" & i & ":j" & i).Interior.Color = RGB(0, 0, 255)
End If
If Cells(i, 11).Value = "" Or Cells(i, 12).Value = "" Or Cells(i, 13).Value = "" Or Cells(i, 14).Value = "" Then
Range("A" & i & ":j" & i).Interior.Color = RGB(128, 128, 128)
End If
Next
End Sub
Merci beaucoup!!!!
bonsoir,
déplace l'instruction en vert à l'intérieur de ta boucle. j'ai pas cherché à comprendre davantage ton code.
Sub Surligner()
Dim var_compteur As Integer
For i = 6 To 1000
var_compteur = 0
If Cells(i, 11).Value Like "*encore*" Then
var_compteur = var_compteur + 1
Else
var_compteur = var_compteur + 0
End If
If Not Cells(i, 12).Value = 0 And Not Cells(i, 13).Value Like "" Then
var_compteur = var_compteur + 1
Else
var_compteur = var_compteur + 0
End If
If Cells(i, 14).Value Like "*encore*" Then
var_compteur = var_compteur + 1
Else
var_compteur = var_compteur + 0
End If
If var_compteur = 3 Then
Range("A" & i & ":j" & i).Interior.Color = RGB(255, 0, 0)
ElseIf var_compteur = 2 Then
Range("A" & i & ":j" & i).Interior.Color = RGB(255, 255, 0)
ElseIf var_compteur = 1 Then
Range("A" & i & ":j" & i).Interior.Color = RGB(0, 255, 0)
ElseIf var_compteur = 0 Then
Range("A" & i & ":j" & i).Interior.Color = RGB(0, 0, 255)
End If
If Cells(i, 11).Value = "" Or Cells(i, 12).Value = "" Or Cells(i, 13).Value = "" Or Cells(i, 14).Value = "" Then
Range("A" & i & ":j" & i).Interior.Color = RGB(128, 128, 128)
End If
Next
End Sub