Bonjour à tous,
dans ma partie de programme ci-dessous :
Je veux colorier en jaune la ligne si la valeur dans la colonne I est inférieur à -5
Je veux colorier en vert la ligne si la valeur dans la colonne I est comprise entre -5 et 20
en rouge si c'est plus de 20.
Le programme fonctionne, mais quand on vérifie, certaines lignes ne sont pas colorier dans la bonne couleur.
De même, la cellule selectionnée avant le lancement du programme est automatiquement coloriée en jaune.
Je n'arrive pas à voir où sont les erreurs, malgré le fait que j'ai décortiqué le programme ligne par ligne.
Merci de votre aide
Je vous joins un exemple.
la variable nbligne correspond au nombre de ligne calculé précédement.
For k = 3 To nbligne
If Cells(k, "I").Value < -5 Then Rows(k & ":" & k).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
If Cells(k, "I") > 20 Then Rows(k & ":" & k).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
If Cells(k, "I") >= -5 And Cells(k, "I") <= 20 Then Rows(k & ":" & k).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next
End Sub
dans ma partie de programme ci-dessous :
Je veux colorier en jaune la ligne si la valeur dans la colonne I est inférieur à -5
Je veux colorier en vert la ligne si la valeur dans la colonne I est comprise entre -5 et 20
en rouge si c'est plus de 20.
Le programme fonctionne, mais quand on vérifie, certaines lignes ne sont pas colorier dans la bonne couleur.
De même, la cellule selectionnée avant le lancement du programme est automatiquement coloriée en jaune.
Je n'arrive pas à voir où sont les erreurs, malgré le fait que j'ai décortiqué le programme ligne par ligne.
Merci de votre aide
Je vous joins un exemple.
la variable nbligne correspond au nombre de ligne calculé précédement.
For k = 3 To nbligne
If Cells(k, "I").Value < -5 Then Rows(k & ":" & k).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
If Cells(k, "I") > 20 Then Rows(k & ":" & k).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
If Cells(k, "I") >= -5 And Cells(k, "I") <= 20 Then Rows(k & ":" & k).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next
End Sub