MFC sur les cellules contenant un "+"

Bonjour à tous,

Je sollicite votre aide parce que je ne trouve rien sur le net pour répondre à ma question Je ne sais pas si c'est réellement possible.

Voilà, j'ai une base de données, avec des chiffres saisis dans certaines cellules. Dans certaines c'est juste un chiffre, tandis que dans d'autres c'est une addition de chiffres. Je voudrais créer une mise en forme conditionnelle sur les cellules où c'est une addition (donc avec un +).

Si vous avez une idée je suis preneuse !

Merci d'avance.

Bonne journée !

Salut,

Sur Excel 2010, dans l'onglet "Accueil", tu cliques sur "Mise en Forme Conditionnelle", puis "Nouvelle Règle", puis 2eme ligne "Appliquer une mise en forme uniquement aux cellules qui contiennent".

Tu modifies la description, appliquer le "Texte Spécifique" "Contenant" et tu écris +.

Change le format comme tu le souhaites, et ok ...

Bonjour,

Non ça ne marche pas.. Mais je me demande si cela ne fonctionne pas parce que ce sont des formules de calcul les additions.

Bonjour, jowil , lsa039

je me permets d'entrer dans la discussion

Je viens de tester la solution proposée par lsa039 et cela marche bien

le plus simple serait que vous postiez un fichier exemple avec des données anonymes

je vous joins un fichier exemple

Amicalement

Pierrot

Bonjour,

Oui mais en fait c'est pas juste 1+2 dans la cellule, c'est =1+2. C'est vraiment un calcul qui est fait.

Je vous ai mis un fichier en PJ pour que vous voyiez, chez moi ça ne marche pas.

Bonjour,

Il suffit de déclarer les cellules au format Texte

voir votre fichier joint Excel ne reconnait que la valeur affichée et non pas la formule

Pierrot

Oui mais je veux que ça me fasse le calcul de la cellule en fait. C'est pour pouvoir distinguer les cellules où j'ai une addition des autres.

Essaye avec ça :

EDit : en attente de correction

En fait j'ai essayé de faire une macro mais elle ne onctionne pas, d'ailleurs si quelqu'un peut m'éclairer, j'ai une erreur 424, Objet requis.

Sub couleur_si_plus()

'lsa039 le 21/08/2015

Dim macellule As Range, critere As Variant
critere = "*" & "+" & "*"
With Worksheets("Feuil1")
For Each macellule In Selection
If WorksheetFunction.CountIf(macellule.Formula, critere) >= 1 And Mid$(macellule.Formula, 2, 1) <> "[" Then
macellule.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.2499
        .PatternTintAndShade = 0
    End With
End If
Next macellule

End With

End Sub

Sinon, y'a une solution bien plus simple, c'est Recherche/Remplace, tu choisis bien rechercher dans "Formule", et et tu change le format de la cellule.

Remplacer tout, et le toute est joué.

Ah je n'avais même pas pensé au Remplacer par, merci !

Si jamais quelqu'un arrive à corriger ta macro, je l'essaierai, ce sera peut-être plus simple.

Du coup je mets quand même résolu, encore merci !

Grace à l'aide du forum :

    Sub couleur_si_plus()
    'lsa039 le 21/08/2015
       Dim macellule As Range, critere As Variant
        critere = "*" & "+" & "*"
        With Worksheets("Feuil1")
        For Each macellule In Range("A1:A6") 'la plage à adapter
           If macellule.Formula Like critere Then
                With macellule.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .ThemeColor = xlThemeColorAccent6
                    .TintAndShade = -0.2499
                    .PatternTintAndShade = 0
                End With
            End If
        Next macellule
        End With
    End Sub

Merci beaucoup, ça marche très bien !