Private Sub CommandButton1_Click() 'Declare tes variables Dim Sum As Double Dim I As Integer 'Initialise tes variables I = 1 Sum = 0 'Fait la somme de la colone B qui a une longueur 'variable (donc fait somme jusqu'a ce qu'il n'est rien Do While Cells(I, 2).Value <> "" 'Ici tu p[eux rajouter une condition qui 'depend de ta colonne A 'Fait la somme Sum = Cells(I, 2).Value + Sum I = I + 1 Loop 'Ecrit la somme en bas de colonne B Cells(I, 2).Value = Sum End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question