Somme en fin de colonne de dimension variable

[Philippe]

Bonjour à tous,

J'ai un tableau avec deux colonnes : La première nommée Nom et la Seconde nommée Montant, celles ci sont de longueurs variables.

J'aimerais :
sur la première colonne compter le nombre de cellules (avec NBVAL) à la fin de cette dernière.

sur la seconde colonne sommer le montant des cellules à la fin de cette dernière

sachant que ces colonnes sont de longueurs variables, le choix d'une plage ne peut être enregistrée d'autant qu'il y a un titre en en-tête qui ne doit pas être pris en considération.

Merci pour la réponse.

 

[Jean-Marie]

Bonsoir Philippe

Peux-tu mettre un fichier d'exemple, STP

@+Jean-Marie

 

[Ronan]

Bonsoir

Voici un exemple :

Sub compte()
Dim plage_nom, plage_montant, valeur As Range
Dim total_montant As Double
With Sheets("feuil1")
ligne = .Cells(65536, 1).End(xlUp).Row
Set plage_nom = .Range("a2:a" & ligne)
Set plage_montant = .Range("b2:b" & ligne)
.Cells(ligne + 1, 1).Value = plage_nom.Count
total_montant = 0
For Each valeur In plage_montant
total_montant = total_montant + valeur.Value
Next
.Cells(ligne + 1, 2).Value = total_montant
End With
End Sub

@+
Ronan

 

[Philippe]

Merci, pour ton début de réponse mais Ronan m'a fait passer une solution qui me va tout à fait.

Encore MERCI.

 

[Philippe]

Super, un grand merci Ronan, tu m'enlèves une épine du pied comme on dit, après y avoir toute une après midi à essayer de trouver une solution.

Puis je abuser de ton expérience, le rajout d'un concaténation à côté du Nombre de Valeurs dans la colonne A, est ce possible ?

Encore MERCI.

@+
Philippe