Problème de formule dans une macro VBA Résolu/Fermé

Question

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

pijaku · Answer

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

Problème de formule dans une macro VBA

1 réponse

Discussions similaires