ecriture d'une formule

Bonjour Louis et toi le Forum,

ben il y a tout simplement des erreurs d'écriture dans ta formule...

supposons que tu désires faire la somme de B2:B6 voila ce que tu y mettrais comme code...

ActiveCell.Formula = "=sum(" & (Range("B2").Address(0, 0) & ":" & Range("B6").Address(0, 0) & ")")

la formule =somme(B2:B6) sera inscrite dans la cellule active...

Maintenant il est possible de faire en sorte de demander à ce que la somme se fasse à partir de B2 mais qu'elle prenne aussi en compte la dernière cellule pleine de cette colonne...dans ce cas tu vas inscrire :

ActiveCell.Formula = "=sum(" & (Range("B2").Address(0, 0) & ":" & Range("B2").End(xlDown).Address(0, 0) & ")")

ceci affectera dans la cellule active la formule =somme(B2:B20)...B20 étant ici la dernière cellule qui contient une valeur...

Voilà bonne programmation



PS : Formules à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

Merci Vériland,
ça marche, enfin...
@+