Consolidation de données dans 1 onlget

Efgé

XLDnaute Barbatruc

• 1 Août 2011

• #2

Re : Consolidation de données dans 1 onlget

Bonjour oliverthekid, le fil, le forum
Une proposition par macro:

VB:

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
    End If
Next F
Application.ScreenUpdating = True
End Sub

Cordialement

 

Pièces jointes

• oliverthekid(2).xls

  58 KB · Affichages: 68

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 1 Août 2011

• #3

Re : Consolidation de données dans 1 onlget

Bonjour, oliverthekid, Efgé 🙂, le Forum,

Une autre suggestion dans le fichier joint.

A bientôt.

 

Pièces jointes

• 00 - oliverthekid.xls

  60.5 KB · Affichages: 73

Vote positif 0 Vote négatif

O

oliverthekid

Guest

• 1 Août 2011

• #4

Re : Consolidation de données dans 1 onlget

Bonjour Efgé, DoubleZero,

Merci pour vos réponses, les 2 marchent très bien!

A bientot,

Oli.

 

Vote positif 0 Vote négatif

O

oliverthekid

Guest

• 11 Août 2011

• #5

Re : Consolidation de données dans 1 onlget

Bonjour,

@ DoubleZero: Est-il possible de changer la range, pour que la macro prenne toutes les données de la cellule B3 à la cellule B20, meme si il n'y a rien?

Merci!

Olivier.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 11 Août 2011

• #6

Re : Consolidation de données dans 1 onlget

Bonjour, oliverthekid, Efgé 🙂, le Forum,

Sans certitude de pouvoir répondre au nouveau besoin 😱... un fichier exemple pourrait-il être joint ?

A bientôt 🙂.

 

Vote positif 0 Vote négatif

O

oliverthekid

Guest

• 11 Août 2011

• #7

Re : Consolidation de données dans 1 onlget

Pardon, voila la piece jointe!

Le but est d'avoir une liste (dans l'onglet "list") constituée de toutes les données présentes dans chaque onglet, de B3 à maximum l20.

Merci!

 

Pièces jointes

• OLI LISTING EXAMPLE.xls

  33 KB · Affichages: 66
• OLI LISTING EXAMPLE.xls

  33 KB · Affichages: 65
• OLI LISTING EXAMPLE.xls

  33 KB · Affichages: 65

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 11 Août 2011

• #8

Re : Consolidation de données dans 1 onlget

Bonjour à toutes et à tous,

@ oliverthekid,

A mon grand regret, je n'ai encore trouvé aucune solution "propre" 🙁.

Si personne d'autre ne venait à la rescousse, je posterais mon "brouillon".

A bientôt 🙂.

 

Dernière édition: 11 Août 2011

Vote positif 0 Vote négatif

O

oliverthekid

Guest

• 11 Août 2011

• #9

Re : Consolidation de données dans 1 onlget

Merci pour votre aide DoubleZero!

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 11 Août 2011

• #10

Re : Consolidation de données dans 1 onlget

Re-bonjour,

En attendant mieux..., voici mon brouillon 😱.

Bon courage 🙂.

 

Pièces jointes

• 00 - oliverthekid V2.xls

  57 KB · Affichages: 85

Vote positif 0 Vote négatif

O

oliverthekid

Guest

• 11 Août 2011

• #11

Re : Consolidation de données dans 1 onlget

Bonjour Forum,

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 11 Août 2011

• #12

Re : Consolidation de données dans 1 onlget

Re-bonjour,

Voici un nouveau fichier à tester.

A bientôt 🙂.

 

Pièces jointes

• 00 - oliverthekid V3.xls

  68.5 KB · Affichages: 88

Vote positif 0 Vote négatif

O

oliverthekid

Guest

• 12 Août 2011

• #13

Re : Consolidation de données dans 1 onlget

Bonjour,

Merci pour ta réponse DoubleZero, effectivement ta nouvelle macro marche tres bien.
J'ai compris que tu avait changer la range de la copie des données (B20 au lieu de B65000), en revanche pourrais tu m'expliquer quel effet cela a eu d'enlever le End(x1Up) (voir ci dessous)?

merci!



Range(Sheets(s).[B3], Sheets(s).[B20].End(xlToRight)).Copy _
[B65000].End(xlUp).Offset(1, 0)

Range(Sheets(s).[B3], Sheets(s).[B65000].End(xlDown).End(xlToLeft)).Copy _
[B65000].End(xlUp).Offset(1, 0)

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 12 Août 2011

• #14

Re : Consolidation de données dans 1 onlget

Bonjour, le Fil, le Forum,

oliverthekid à dit:

... en revanche pourrais tu m'expliquer quel effet cela a eu d'enlever le End(x1Up)...

Cliquez pour agrandir...

Cette première ligne signifie que nous copions la plage de cellules allant de B3 à la dernière cellule renseignée de la colonne B.

Code:

Range(Sheets(s).[B3], Sheets(s).[B65000].End(xlUp).End(xlToRight)).Copy [B65000].End(xlUp).Offset(1, 0)

Cette seconde ligne fixe des limites : nous importons la plage de cellules allant de B3 à B20.

Code:

Range(Sheets(s).[B3], Sheets(s).[B20].End(xlToRight)).Copy [B65000].End(xlUp).Offset(1, 0)

Attention : j'aperçois une ânerie 😡 dans le fichier transmis hier, à 19h46. Il faut remplacer l'avant dernière ligne de code.

Au lieu de :

Code:

Application.ScreenUpdating = False

Ecrire :

Code:

Application.ScreenUpdating = True

Bonne continuation 🙂.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Août 2011

• #15

Re : Consolidation de données dans 1 onlget

Bonsoir le fil


Une variante de la variante

Code:

Sub a()
Dim s As Worksheet
Application.ScreenUpdating = False
For Each s In Worksheets
If Not s.Name Like "LIST" Then
s.[B2].CurrentRegion.Offset(1, 0).Copy Sheets("LIST").[B65536].End(xlUp).Offset(1, 0)
End If
Next s
End Sub

 

Vote positif 0 Vote négatif