Discussion :

[pouchelop]

Salut, mon problème ressemble un peu au sujet de cette discussion.

Il faudrait que je somme mes colonnes de taille aléatoire sur plusieurs onglets. J'ai donc pensé à ça mais ça marche pas :

Code :

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

1
2
3
4
5
6
7
8
'On recupere la derniere ligne de la feuille
    Sheets(Table(k)).Select
 
    Cells(1048576, q).Select
    Selection.End(xlUp).Select
    derligne = ActiveCell.Row
 
Sheets(Table(k)).Cells(derligne + 2, q) = Application.WorksheetFunction.Sum(Range(Sheets(Table(k)).Cells(2, q).Value & ":" & Range(Sheets(Table(k)).Cells(derligne, q).Value)))

table(k) : un tableau qui contient le nom de tous mes onglets
q : les différentes colonnes à sommer

Si quelqu'un voit une erreur ou a quelque chose à proposer...

Merci d'avance

[mercatog]

Code :

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

1
2
3
4
With Sheets(Table(k))
   DerLigne = .Cells(Rows.Count, q).End(xlUp).Row
   .Cells(DerLigne + 2, q) = Application.Sum(.Range(.Cells(2, q), .Cells(DerLigne, q)))
End With