Consolidation de données dans 1 onlget

[oliverthekid]

Bonjour,

Je cherche à consolider des données présentent sur 100 onglets, et sur chacun des 100 onglets, ces données sont présentent de la cellule B3 à la cellule L16.
Je cherche ici a établir une liste sur 1 seul onglet.

Je vous ai joint un exemple!

Merci pour votre aide!

 

[Efgé]

Re : Consolidation de données dans 1 onlget

Bonsoir le fil, le forum
De passage depuis mes vacances,

@ Efgé: Quand j'applique ton code, la liste s'arrete apres une vingtaine d'onglets, je n'arrive pas a comprendre pourquoi...

Bhein.... moi non plus
Peut être quelqu'un poura-t-il m'expliquer....
Cordialement

 

[Staple1600]

Re : Consolidation de données dans 1 onlget

Bonsoir

Et en tentant la chose ainsi, il se passe quoi ?

Private Sub CommandButton1_Click()
Dim F As Worksheet, TabTemp()
Application.ScreenUpdating = False
For Each F In Worksheets
    If F.Name <> "Onglet de Consolidation" Then
        TabTemp = F.Range(F.Cells(3, 2), F.Cells(Rows.Count, 12).End(xlUp)).Value
        Sheets("Onglet de Consolidation").Cells(Rows.Count, 2). _
        End(xlUp)(2).Resize(UBound(TabTemp, 1), 11) = TabTemp
        Erase TabTemp
    End If
Next F
Application.ScreenUpdating = True
End Sub

EDITION: On vient de me dire dans l'oreillette que cela semble fonctionner.
O joie O Bonheur
(je dis car cela me fait un tit peu de bien vu le temps pourri, tellement pourri, que j'ai pas encore pu me baigner dans la mer cet été)

EDITION2: Bonsoir 00, puisse le Ciel t'entendre

 

[DoubleZero]

Re : Consolidation de données dans 1 onlget

Bonjour, le Fil, le Forum,

... De passage depuis mes vacances...

... Juste pour souhaiter de très bonnes vacances à Efgé et pour envoyer du soleil aux ceusses qui en sont privés ...