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

Question

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

Kaanor · Answer

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

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

1 réponse

Discussions similaires