Calcul sous VBA

Bonjour à tous,

je reviens vers vous pour une nouvelle demande d'aide.

je vous explique la situation, je voudrais coller une formule que j'ai écris sous vba dans une cellule d'une ligne à chaque fois que j'appuie sur un bouton.

quand j'appuie sur le bouton il doit me mettre la formule dans la cellule par exemple A24 et si je appui a nouveau il doit me mettre la formule dans la cellule A25 et ainsi de suite. ( c'est pour remplir un tableau) Mais la formule utilise certaines cellules de sa ligne exemple la cellule A24 doit avoir =SOMME(B24:D24), la cellule A25 doit avoir =SOMME(B25:D25) sauf que je n'arrive pas a faire en sorte que quand je copie la formule il prenne en compte les autres cellules de la ligne.

a = Range("A" & Rows.Count).End(xlUp).Row + 1

formule = "=somme(B & a:D & a)"

SH.Range("A" & a).Formula = formule

voici la formule plus exactement que j'essaye de faire correspondre mais quand je fais la copie il me mets =somme(B&A:D&a)

alors que j'aimerais =somme(B24:D24)

je vous remercie de prendre du temps pour me répondre

Bonjour Snyyzer,

Je te propose ce code VBA :

Option Explicit

Private Sub CommandButton1_Click()
  Dim lig&: lig = Cells(Rows.Count, 1).End(xlUp).Row + 1
  If lig < 24 Then lig = 24
  Cells(lig, 1).Formula = "=SUM(B" & lig & ":D" & lig & ")"
End Sub

Cordialement,

dhany

vous êtes génial!!

je vous remercie infiniment ça va énormément m'aider.