XL 2016 MACRO COULEUR

mcj1997

XLDnaute Accro
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,
 

mcj1997

XLDnaute Accro
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,
 

Lone-wolf

XLDnaute Barbatruc
Bonjour mcj :), Doud :)

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

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

XLDnaute Barbatruc
Re

Oubien comme ceci alors

VB:
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
 

Statistiques des forums

Discussions
312 963
Messages
2 093 994
Membres
105 906
dernier inscrit
aifa