VBA : fonction sur toute les cellules d'une plage selectionner
Résolu
Kaanor
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Kaanor Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Kaanor Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
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
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
1 réponse
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
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
