bomagicmusic
XLDnaute Occasionnel
Bonjour à tous,
J'ai un code ci-dessous qui en fonction de la valeur de la colonne J (de la ligne 7 à 31) me colorie le texte de la colonne N (ligne 7 à 31)en vert, orange ou rouge. ça marche pour la première ligne et je voudrais faire une boucle sur les lignes 7 à 31 qui peux m'aider?
Merci
Private Sub CommandButtonIndicateurs_Click()
Range("J7:J31").Select 'Permet de selectionner plusieurs cellules
Range("N7:N31").Select
For Each Cell In Selection 'Pour chaque cellule dans la selection
If Cells(7, 10).Value < 10 Then
Cells(7, 14).Font.ColorIndex = 4 'Colorie le texte en 4=vert
End If
If Cells(7, 10).Value > 10 And Cells(7, 10).Value < 30 Then
Cells(7, 14).Font.ColorIndex = 44
End If
If Cells(7, 10).Value > 30 Then
Cells(7, 14).Font.ColorIndex = 3
End If
Next
End Sub
J'ai un code ci-dessous qui en fonction de la valeur de la colonne J (de la ligne 7 à 31) me colorie le texte de la colonne N (ligne 7 à 31)en vert, orange ou rouge. ça marche pour la première ligne et je voudrais faire une boucle sur les lignes 7 à 31 qui peux m'aider?
Merci
Private Sub CommandButtonIndicateurs_Click()
Range("J7:J31").Select 'Permet de selectionner plusieurs cellules
Range("N7:N31").Select
For Each Cell In Selection 'Pour chaque cellule dans la selection
If Cells(7, 10).Value < 10 Then
Cells(7, 14).Font.ColorIndex = 4 'Colorie le texte en 4=vert
End If
If Cells(7, 10).Value > 10 And Cells(7, 10).Value < 30 Then
Cells(7, 14).Font.ColorIndex = 44
End If
If Cells(7, 10).Value > 30 Then
Cells(7, 14).Font.ColorIndex = 3
End If
Next
End Sub