Bonjour à vous tous,
Pourriez-vous m'indiquer la syntaxe à employer dans le cas ci-dessous:
J'ai la position de la dernière ligne employée:
DerniereCelluleRemplie51 = Columns("AD:AD").Find("*", Range("AD1"), , , xlByRows, xlPrevious).Row
puis je souhaite dans la formule ci-dessous:
Range(b3).Select
ActiveCell.FormulaLocal = _
"=SI(C9="""";"""";SI($BA2="""";"""";$BA2-E9)"
Remplacer les chiffres en rouge par ma variable <DerniereCelluleRemplie51>, du style:
Range(b3).Select
ActiveCell.FormulaLocal = _
"=SI(C"& DerniereCelluleRemplie51 &"="""";"""";SI($BA2="""";"""";$BA2-E"& DerniereCelluleRemplie51 &")"
mais cela ne marche pas, j'ai l'indication 'Erreur d'exécution 1004: etc'
Donc n'étant pas un pro de VBA, je pense que la syntaxe n'est pas bonne, mais est-ce possible de faire?
Merci pour vos conseils et bonne journée !!
Pourriez-vous m'indiquer la syntaxe à employer dans le cas ci-dessous:
J'ai la position de la dernière ligne employée:
DerniereCelluleRemplie51 = Columns("AD:AD").Find("*", Range("AD1"), , , xlByRows, xlPrevious).Row
puis je souhaite dans la formule ci-dessous:
Range(b3).Select
ActiveCell.FormulaLocal = _
"=SI(C9="""";"""";SI($BA2="""";"""";$BA2-E9)"
Remplacer les chiffres en rouge par ma variable <DerniereCelluleRemplie51>, du style:
Range(b3).Select
ActiveCell.FormulaLocal = _
"=SI(C"& DerniereCelluleRemplie51 &"="""";"""";SI($BA2="""";"""";$BA2-E"& DerniereCelluleRemplie51 &")"
mais cela ne marche pas, j'ai l'indication 'Erreur d'exécution 1004: etc'
Donc n'étant pas un pro de VBA, je pense que la syntaxe n'est pas bonne, mais est-ce possible de faire?
Merci pour vos conseils et bonne journée !!