Problème formule dans VBA
Bonjour, j'ai une macro avec une formule insérée :
Range("AV1").Select 'selectionne la cellule AV1
ActiveCell.FormulaR1C1 = "Délai" 'Ecrit Délai dans cellule
Range("AV2").Select 'Selectionne la cellule AV2
ActiveCell.FormulaR1C1 = _
"=IF(RC[-2]<>"""",DATEDIF(RC[-45],RC[-2],""D""),"" "")" 'Execute la formule
Range("AV2").Select 'Recopie la formule
Selection.AutoFill Destination:=Range("AV2:AV10000")
Range("AV2:AV10000").Select
Worksheets("Data").Visible = False 'cache la feuille Data
et je voudrai remplacer la formule par celle ci :
=SI(AT2<>"";SI.CONDITIONS(AT2-C2 <=30;"<= 30 j.";AT2-C2 <=60;"<= 60 j.";AT2-C2 <=90;"<= 90 j.";VRAI;"> 90 j.");" ")
Mais cela fonctionne pas avec un copié-collé.
Range("AV1").Select 'selectionne la cellule AV1
ActiveCell.FormulaR1C1 = "Délai" 'Ecrit Délai dans cellule
Range("AV2").Select 'Selectionne la cellule AV2
ActiveCell.FormulaR1C1 = _
"=SI(AT2<>"";SI.CONDITIONS(AT2-C2 <=30;"<= 30 j.";AT2-C2 <=60;"<= 60 j.";AT2-C2 <=90;"<= 90 j.";VRAI;"> 90 j.");" ")" 'Execute la formule
Range("AV2").Select 'Recopie la formule
Selection.AutoFill Destination:=Range("AV2:AV10000")
Range("AV2:AV10000").Select
Worksheets("Data").Visible = False 'cache la feuille Data
Je dois louper une manip
Merci
Bonjour,
Une fois votre nouvelle formule mise en place dans votre cellule, basculez sur l'éditeur VBA et ouvrez la fenêtre exécution (Ctrl-G)
Dans la première ligne, tapez
? ActiveCell.Formula2R1C1Vous allez récupérer la syntaxe de votre formule.