VBA Adaptation ExecuteExcel4Macro

[bof]

bonjour,
Le problème est simple :
Vous prenez une cellule contenant un nombre
Vous lui appliquez un Format Conditionnel
La condition : peu importe...
Le format à appliquer : (NumberFormat) = "0.00"
Et vous validez cette mise en forme conditionnelle.
Si vous devez modifier cette MFC l'enregistreur de macro vous dit :

    Cells.FormatConditions.Delete
    Range("C1:G1").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=2"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    ExecuteExcel4Macro "(2,1,""0.00"")"
    Selection.FormatConditions(1).StopIfTrue = False

Mais voilà le hic !
Quand vous voulez modifier cette MFC (et même si vous ne modifiez rien du tout et que vous exécutez cette macro enregistrée) VBA vous renvoie une erreur 1004
et surligne ExecuteExcel4Macro "(2,1,""0.00"")"

Quelle solution de contournement ? (étant entendu que ce que je veux modifier c'est le champ d'application de la macro, pas le format à appliquer !)

Merci

A+

 

[MichD]

Re : VBA Adaptation ExecuteExcel4Macro

Bonjour,

Tu veux obtenir quelque chose comme ceci :

Sub test()
With Worksheets("Feuil1") 'nom de la feuille à adapter
    With .Range("C1:G1")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=2"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).NumberFormat = "0.00"
        .FormatConditions(1).StopIfTrue = False
    End With
End With
End Sub

 

[bof]

Re : VBA Adaptation ExecuteExcel4Macro

Bonjour MichD,
Exactement !! Impeccable...

Merci,
Bonne soirée.
A+