VBA : fonction sur toute les cellules d'une plage selectionner [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
lundi 29 février 2016
Statut
Membre
Dernière intervention
29 février 2016
-
Messages postés
2
Date d'inscription
lundi 29 février 2016
Statut
Membre
Dernière intervention
29 février 2016
-
Bonjour,

Je cherche à réaliser une macro qui colorerai les cases de ma sélection en fonction de la valeur (Un peu comme la mise en forme conditionnel mais avec plus que 3 possibilité)

Mon problème est le suivant, je n'arrive pas à programmer la désignation des cellule sélectionner

voici un bout de mon code bricoler avec ce que j'ai pu trouver sur les forum :

For Each Cells In Active.Range
If Cells.Value < 8 Then
Cells.Font.Color = RGB(32, 24, 0)
ElseIf Cells.Value > 8 And Cellule.Value < 10 Then
Cells.Font.Color = RGB(96, 0, 0)
Else
Cells.Font.Color = RGB(96, 0, 128)
End If
Next

L'important n'est pas la programmation des couleurs mais bien la partie désignation des cellules.

Merci de votre aide

1 réponse

Messages postés
2
Date d'inscription
lundi 29 février 2016
Statut
Membre
Dernière intervention
29 février 2016

Bon en fait j'ai trouvé tout seul :)

voilà mon auto correction si jamais quelqu'un a le même problème



Dim cellule As Range

For Each cellule In Selection
If cellule.Value < 8 Then
cellule.Interior.Color = RGB(32, 24, 0)
ElseIf cellule.Value > 8 And cellule.Value < 10 Then
cellule.Interior.Color = RGB(96, 0, 0)
Else
cellule.Interior.Color = RGB(96,25, 0)
End If
Next cellule

End Sub