VBA : fonction sur toute les cellules d'une plage selectionner

Résolu/Fermé

Kaanor Messages postés 2 Date d'inscription lundi 29 février 2016 Statut Membre Dernière intervention 29 février 2016 - 29 févr. 2016 à 16:04
Kaanor Messages postés 2 Date d'inscription lundi 29 février 2016 Statut Membre Dernière intervention 29 février 2016 - 29 févr. 2016 à 16:20

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

A voir également:

VBA : fonction sur toute les cellules d'une plage selectionner
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Kaanor Messages postés 2 Date d'inscription lundi 29 février 2016 Statut Membre Dernière intervention 29 février 2016
29 févr. 2016 à 16:20

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters