Somme de colonne

[Aurore]

Bonjour,

J'ai un tableau contenant un certain nombre de colonne et de ligne (nombre que je ne connais pas à l'avance)
Il faudrait que je fasse la somme pour chaque colonne de l'ensemble des valeurs de ces colonnes. Le problème c que ne connaissant pas le nombre et de lignes et de colonnes à l'avance, la fonction somme ne marche pas

voici ma ligne de code
Feuil2.Cells(1000, j) = "=SUM(range(Tableau(j) & "5:" & Tableau(j) & nb_el + nb_el_PF))" qui ne fonctionne pas à cause des " "

tableau(j) est défini comme un string du style "A", "B"...
Pourriez vous me dire de quelle manière je pourrais m'y prendre pour additionner toutes les valeurs

Merci

 

[Moa]

Salut Aurore !

Si tu n'as pas de lignes et colonnes vides dans ton tableau :

Tu écris cette formule par exemple en A1 :

=NbVal(A3:A65000)

Ce qui va te donner le nombre de lignes que contient ton tableau

En A2 :

=NbVal(B2:IV2)

Ce qui va te donner le nombre de colonnes

Et maintenant, tu n'a plus qu'à récupérer dans une variable, la valeur de ces deux cellules.

En théorie tu auras besoin de la fonction Offset.

@ +

Moa

 

[Aurore]

Merci Moa,

Mais j'ai contourné le pb.
J'ai bien compté combien j'vais de ligne et pour lasomme j'ai pris la somme de la première colonne et j'ai mis le code qui permet d'élargir la formule à toutes les colonnes
Je laisse le code pour ceux qui auraient le même pb

Feuil2.Cells(1000, 1) = "=SUM(A5:A999)"
Application.CutCopyMode = False
Feuil2.Range("A1000").AutoFill Destination:=Feuil2.Range("A1000:HH1000"), Type:=xlFillDefault
Feuil2.Columns("A:HL").EntireColumn.AutoFit