VBA_Somme d'une colonne - Départ connu vers fin de colonne

**cridule** · 04/01/2019, 16h41

Bonjour,

Je souhaite faire la somme d'une colonne mais les lignes sont variables selon mes tableaux
J'explique

Je suis en A1
Je veux la somme de A5 à la dernière ligne de mon tableau
En temps normal j'utilise =somme(A5 et Maj+CTRL+Shift bas me fait arriver directement au dernier chiffre de ma colonne

Comment on écrit ça dans VBA ?

Merci

**Stephan001** · 04/01/2019, 16h53

Bonjour,

les solutions sont multiples, mais en voilà 2 :

Cells(Rows.Count, 1).End(xlUp).Row (présente sur ce même forum)

ou

DerniereLigne = Range("A1").CurrentRegion.End(xlDown).Row (sans doute aussi présente

)

Cordialement,

**cridule** · 04/01/2019, 17h02

Oulala....
Je n'ai pas précisé que je n'avais aucune notion en VBA
Donc là je fais un copier coller et ça ne fonctionne pas :-)

Comment tu écris ça ?
Sachant qu'en A1 il me faut le total de : A5 à fin de colonne

**BENNASR** · 04/01/2019, 17h34

à mettre dans la feuille appropriée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(1, 1) = Application.Sum(Range(Cells(5, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)))
End Sub

un exemple