Sujet Précédent Sujet Suivant

Excel 2010: modifier ma macro

Résolu/Fermé
Ju@nita Messages postés 149 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 8 août 2024 - 29 juin 2015 à 20:25
Ju@nita Messages postés 149 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 8 août 2024 - 30 juin 2015 à 13:57
Bonjour,

J'ai une macro dont j'aimerais modifier une section car les besoins ont un peu changés. Mais comme ce n'est pas moi qui ai composé cette section, ça vient de ce forum, je ne sais pas comment la modifier (pas assez calée).
voici le segment:
Columns("E:E").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399945066682943
End With

Le but étant de colorer seulement les montants qui se trouvent dans la colonne F. Le hic, c'est que je me retrouve maintenant avec des montants négatifs dans cette même colonne. Il faudra qu'ils soient colorés aussi.
Pouvez-vous m'aider svp ?
merci


A voir également:

2 réponses

Réponse 1 / 2
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
29 juin 2015 à 22:06
Bonjour,

Essaie avec : 
    Columns("E:E").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=NON(ESTVIDE($E1))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.399945066682943
    End With

A+
0
Réponse 2 / 2
Ju@nita Messages postés 149 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 8 août 2024
30 juin 2015 à 13:57
ça n'a pas tout à fait donné ce que je voulais.
Par contre, j'ai fini par trouver la réponse.
Je devais remplacer le Operator:=xlGreater par Operator:=xlNotEqual

là, ça marche.

merci quand même.
bonne journée.
0