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 🙁...