goldfinger13
XLDnaute Occasionnel
Bonjour à tous je vous sollicite car je suis bloqué sur une formule.
Je souhaiter effectuer le total en ligne 17 de mon fichier la somme de deux plages ( de la ligne 1 à la ligne 5 et de la ligne 10 à la ligne 16 peut évoluer )et ce sur toutes les colonnes sachant que cela peut aller au delà de la colonne O (dynamique).
J'ai mis le fichier en question en pièce jointe merci par avance pour votre aide.
le bout de code ci dessous bloque au niveau de la déclaration des plages!
[/QUOTE]
Sub Totaliser()
Dim x As Integer
Dim dercol As Integer
Set MaPlage1 = Range(Cells(1, x), Cells(5, x)) 'c'est ici que ça coince
Set MaPlage2 = Range(Cells(10, x), Cells(16, x)) 'et là aussi
MaSomme = Application.WorksheetFunction.Sum(MaPlage1, MaPlage2)
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For x = 1 To dercol
Cells(17, x) = MaSomme
Next x
End Sub
Je souhaiter effectuer le total en ligne 17 de mon fichier la somme de deux plages ( de la ligne 1 à la ligne 5 et de la ligne 10 à la ligne 16 peut évoluer )et ce sur toutes les colonnes sachant que cela peut aller au delà de la colonne O (dynamique).
J'ai mis le fichier en question en pièce jointe merci par avance pour votre aide.
le bout de code ci dessous bloque au niveau de la déclaration des plages!
[/QUOTE]
Sub Totaliser()
Dim x As Integer
Dim dercol As Integer
Set MaPlage1 = Range(Cells(1, x), Cells(5, x)) 'c'est ici que ça coince
Set MaPlage2 = Range(Cells(10, x), Cells(16, x)) 'et là aussi
MaSomme = Application.WorksheetFunction.Sum(MaPlage1, MaPlage2)
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For x = 1 To dercol
Cells(17, x) = MaSomme
Next x
End Sub
Pièces jointes
Dernière édition: