VBA Adaptation ExecuteExcel4Macro

bof

XLDnaute Occasionnel
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 :
Code:
    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

XLDnaute Impliqué
Re : VBA Adaptation ExecuteExcel4Macro

Bonjour,

Tu veux obtenir quelque chose comme ceci :

VB:
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
 
Dernière édition:

Statistiques des forums

Discussions
311 733
Messages
2 082 008
Membres
101 864
dernier inscrit
elrecruiter