Modification d'un code VBA
Bonjour,
Dans le code ci-dessous,
Sub Somme()
Dim Dernière_ligne As Long, ShtR As Worksheet
Set ShtR = Sheets("Démo Dernière_ligne")
Dernière_ligne = ShtR.Range("B" & Rows.Count).End(xlUp).Row
[B65000].End(xlUp)(2).Formula = "=sum(B2:B4)"
End Subj'aurais voulu remplacer la référence B4 de la ligne
[B65000].End(xlUp)(2).Formula = "=sum(B2:B4)"de manière à utiliser le numéro de la dernière ligne trouvée, quelque chose du genre
[B65000].End(xlUp)(2).Formula = "=sum(B2:B&DERNIÈRE_LIGNE)"Pouvez-vous m'aider ?
Bonnes salutations.
Bonjour,
Comme ceci :
[B65000].End(xlUp)(2).Formula = "=sum(B2:B" & Dernière_ligne & ")"Une remarque, évite de mettre des accents dans les variables comme dans le nom de tes feuilles. Cela pourrait te causer des soucis.
Amicalement
Merci beaucoup pour ta réponse et pour ton conseil.
Bonnes salutations.