PB avec Consolidate

[anch_bapar]

Bonjour à tous,

Je suis un peu novice dans le vba, et surtout autoditacte...

Mais me voila confronter à un probleme avec Consolidate...

Je voudrais créer une macro qui consolide l'ensemble des onglets présents dans le classeur, je teste sur deux onglets avant de boucler sur l'ensemble des onglets mais ca marche pas...

Avez vous une astuce?

Voila la version qui marche mais bon je peux pas boucler...


Sub Consol_ok()

Dim liste1 , liste2 As String

liste1 = "Onglet1!consol"
liste2 = "Onglet2!consol"

Worksheets("Consolidation").Range("B7").Consolidate _
Sources:= _
Array(liste1, liste2), _
Function:=xlSum, _
TopRow:=False, _
LeftColumn:=True, _
CreateLinks:=False

End Sub

Et la une version que j'aurais aimé mais qui marche pas...

Sub Consol_NoOk()

Dim liste, liste1, liste2 As String

liste1 = "Onglet1!consol"
liste2 = "Onglet2!consol"
liste = liste1 & ", " & liste2

Worksheets("Consolidation").Range("B7").Consolidate _
Sources:= _
Array(liste), _
Function:=xlSum, _
TopRow:=False, _
LeftColumn:=True, _
CreateLinks:=False

End Sub

Je vous remercie d'avance des aides...

Christophe

 

[BOISGONTIER]

Re : PB avec Consolidate

Bonsoir,


Sub Macro1()
Dim Temp()
ReDim Temp(1 To 4)
For i = 1 To 4
Temp(i) = Sheets(i).Name & "!R1C1:R10C3"
Next i
Sheets("recap").[A1].Consolidate Sources:=Temp, _
Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
End Sub

JB

 

[anch_bapar]

Re : PB avec Consolidate

Merci JB...