XL 2016 MACRO COULEUR

[mcj1997]

Bonjour,

Je cherche une macro qui me permettrait sur une zone sélectionnée (pas toujours la même) avec des % de remplir les cases en vert si % > 30% et en rouge celles < 25%.

Merci d'avance,

 

[Douds68160]

Bonjour MCJ,
Une MFC?
Bonne journée

 

[mcj1997]

Merci pour cette proposition, toutefois je ne suis pas parti sur une MFC car dans mon tableau je ne veux pas traiter toutes les colonnes et dans l'exemple la MFC me l'impose y compris pour les valeurs qui ne sont pas en %.

Cordialement,

 

[mcj1997]

Bonjour,

Personne n'est inspiré ?

 

[Lone-wolf]

Bonjour mcj 🙂, Doud 🙂

Faudrait savoir. D'abord tu parle d'une zone sélectionnée, ensuite je ne veux pas traiter toutes les colonnes??🙄

Donc si je ne dis pas de conneries, la zone est par exemple F5:F15 alors?! Sinon met un fichier avec le résultat souhaité.

 

[Lone-wolf]

Re

Oubien comme ceci alors

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, x#, critere

    x = (0.3 * 100) / 100   'Equivaut à 30%
    critere = Format(x, "0%")

    If Not Intersect(Target, [G2:G65536]) Is Nothing And Target.Count = 1 Then
        Set cel = ActiveCell.Offset(0, -1)  'Cellules colonne F
        If cel.Text >= critere Then
            ActiveCell.Offset(0, -1).Interior.Color = vbGreen
        Else
            ActiveCell.Offset(0, -1).Interior.Color = vbRed
        End If
    End If
End Sub

 

[DoubleZero]

Bonjour à toutes et à tous,

Une autre suggestion en pièce jointe.

A bientôt 🙂

 

[Lone-wolf]

Hello DoubleZero 🙂