Problème de formule dans une macro VBA

Résolu/Fermé

Dautomne Messages postés 20 Date d'inscription mercredi 22 juillet 2020 Statut Membre Dernière intervention 30 juillet 2020 - Modifié le 22 juil. 2020 à 16:37
Dautomne Messages postés 20 Date d'inscription mercredi 22 juillet 2020 Statut Membre Dernière intervention 30 juillet 2020 - 22 juil. 2020 à 17:19

Bonjour à tous,

Je n'arrive pas à écrire en langage VBA la formule suivante "=SI(NB.SI(D54:D56;""OUI"")<>3;""couleur -->0.249946592608417")".

Pourriez vous m'aider?

Je vous remercie par avance :-)

Sub Macro13()
'
'SOUS-TRAITANCE
       
  Range("G5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With

End Sub

Configuration: Windows / Firefox 78.0

A voir également:

Problème de formule dans une macro VBA
Formule excel - Guide
Formule si et - Guide
Macro word - Guide
Formule moyenne excel - Guide
Macro logiciel - Télécharger - Organisation

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
22 juil. 2020 à 16:42

Bonjour,

Peut-être comme ceci :

Sub Macro13()
'
'SOUS-TRAITANCE
       
    Range("G5").FormatConditions.Add Type:=xlExpression, Formula1:="=NB.SI(D54:D56;""OUI"")<>3"
    Range("G5").FormatConditions(Range("G5").FormatConditions.Count).SetFirstPriority
    With Range("G5").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With

End Sub

Sinon, expliquez avec des mots ce que vous souhaitez...

Dautomne Messages postés 20 Date d'inscription mercredi 22 juillet 2020 Statut Membre Dernière intervention 30 juillet 2020
22 juil. 2020 à 17:19

Merci pour ton aide la macro fonctionne :-).

Discussions similaires

exo pix

je veut créer des codes

formule de calcule

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters