[Excel VBA] additions de plusieurs feuilles

Question

Bonjour, 
je vais essayer de vous expliquer mon problème:

je suis débutante en VBA et j'ai un fichier excel avec une feuille "résumé" dans laquelle je veux additionner des plages de cellules d'autres feuilles,
en bref, je veux que dans la cellule A1 de la feuille résumé, il y ait A1 de la feuille 2 + A1 de la feuille 3 ... 
Le problème est que je le nombre de feuilles n'est pas connu à l'avance.
Voici le code que j'ai mais qui ne fonctionne pas:

Sub calcul()
    Dim somme(5) As Variant
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer
    n = ThisWorkbook.Worksheets.Count
    For i = 0 To 4
        For j = 1 To n
            somme(i) = somme(i) + Worksheets(j).Range("A1:A5").Cells(i).Value
        Next j
    Next i
    Range("A1:A5").Value = somme
End Sub

L'erreur provient de la ligne "somme(i)=somme(i)+....."  le débogage renvoit "erreur définie par l'application ou par l'objet"

Merci pour votre aide si précieuse

Polux31 · Answer

Bonjour,

J'avoue ne pas avoir bien compris ce que tu cherchais à faire en lisant ton code.

Voilà 2 méthodes qui, je pense, peuvent t'aider.

A noter ici les méthodes parcourent les 6 premières lignes de la colonne A de chaque feuille sauf de la feuille "résumé". A toi de l'adapter si ça te convient.

Sub test()
Dim i As Long
Dim j As Long

For i = 1 To Worksheets.Count
    For j = 1 To 6
        If Worksheets(i).Name <> "résumé" Then
            Worksheets("résumé").Cells(j, 1).Value = Worksheets("résumé").Cells(j, 1).Value + Worksheets(i).Cells(j, 1).Value
        End If
    Next j
Next i

End Sub

Sub test2()
Dim sh
Dim j As Long

For Each sh In Worksheets
    For j = 1 To 6
        If sh.Name <> "résumé" Then
            Worksheets("résumé").Range("A" & j).Value = Worksheets("résumé").Range("A" & j).Value + sh.Range("A" & j).Value
        End If
    Next j
Next sh

End Sub

Bon courage

;o)

PtitDab · Answer

Merci Polux
j'essaierai ca demain et je te tiens au courrant.
Bonne soirée

[Excel VBA] additions de plusieurs feuilles

2 réponses

Newsletters