bertrand1202
XLDnaute Occasionnel
Bonjour
je souhaite cumuler dans la feuille A dans les colonnes C D E les éléments des autres feuilles du classeur.
Si en feuil1 C5=10et en Feuil2 C5= 5 , j'obiendrai: 15 en C5 en feuille A
Ma macro ne reconnaît pas Ws bien que je l'aies initialisée.
Ci-joint Code:
je souhaite cumuler dans la feuille A dans les colonnes C D E les éléments des autres feuilles du classeur.
Si en feuil1 C5=10et en Feuil2 C5= 5 , j'obiendrai: 15 en C5 en feuille A
Ma macro ne reconnaît pas Ws bien que je l'aies initialisée.
Ci-joint Code:
Code:
[/Sub sommecolonnefeuilles()
Dim c As Byte
Dim vligne As Integer
Dim ws As Worksheet
Dim vsomcolonne As Long
Dim vcellule As Range
For Each vcellule In Range("b5:b" & Range("b65536").End(xlUp).Row)
For Each ws In ActiveWorkbook.Worksheets
For c = 1 To 3
vsomcolonne = vsomcolonne + ws("ws.Name").vcellule(vligne, c)
ws("A").vcellule(vligne, c) = vsomcolonne
Next c
Next ws
Next vcellule
ws("A").vcellule(vligne, c) = vsomcolonne + ws("A").vcellule(vligne, c)
vsomcolonne = 0
End Sub
Merci d'avance de vos éclairages pour que je comprenne le pourquoi du comment. VBA relève encore un peu de la magie pour moi.
merci d'avance.