XL 2016 MACRO COULEUR

Douds68160

XLDnaute Occasionnel

• 20 Avril 2017

• #2

Bonjour MCJ,
Une MFC?
Bonne journée

 

Pièces jointes

• MCJ.xlsx

  9.4 KB · Affichages: 24

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 20 Avril 2017

• #3

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,

 

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 23 Avril 2017

• #4

Bonjour,

Personne n'est inspiré ?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Avril 2017

• #5

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é.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Avril 2017

• #6

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 23 Avril 2017

• #7

Bonjour à toutes et à tous,

Une autre suggestion en pièce jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - mcj1997 - Pourcentage rouge ou vert.xlsm

  17.8 KB · Affichages: 27

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Avril 2017

• #8

Hello DoubleZero 🙂

 

Vote positif 0 Vote négatif