recapitulatif de plusieurs onglets

Efgé

XLDnaute Barbatruc

• 14 Janvier 2012

• #2

Re : recapitulatif de plusieurs onglets

Bonjour fifounet,

...copier une ligne A2:Z2 (toujours la même) de plusieurs onglets (25) dans un 1er onglet "recap" en les incrémentant en A2:Z2 B2;Z2 etc..

Cliquez pour agrandir...

Si on suis ta question on va écraser la ligne 2 de la feuille Récap à chaque récupération de données.
Un petit fichier exemple me paraît nécessaire.
A te re lire
Cordialement

 

Vote positif 0 Vote négatif

fifounet

XLDnaute Occasionnel

• 14 Janvier 2012

• #3

Re : recapitulatif de plusieurs onglets

Merci Efgé
Je viens de bidouiller une macro trouvée sur le forum, qui donne ceci:
Sub recapstat()
Workbooks("statistiques_new.xls").Activate
Sheets("recap").Select
Sheets("recap").[A1].CurrentRegion.Offset(0, 0).Clear
For s = 2 To Sheets.Count
Range(Sheets(s).[A2], Sheets(s).[V2]).Copy _
[A65000].End(xlUp).Offset(1, 0)
Next s
End Sub

Ca fonctionne !
Peut-etre qu'on peut simplifier?

 

Vote positif 0 Vote négatif

fifounet

XLDnaute Occasionnel

• 14 Janvier 2012

• #4

Re : recapitulatif de plusieurs onglets

Effectivement mon 1er exemple était foireux !
je voulais dire : en les incrémentant en A2:Z2 A3;Z3 A4:Z4 etc.
désolé.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 14 Janvier 2012

• #5

Re : recapitulatif de plusieurs onglets

Re
Si "ça fonctionne" tout va bien
Cordialement

Edit:

On peux voir ça...

VB:

Sub test()
Dim s&
With Sheets("recap")
    .[A1].CurrentRegion.Clear
    For s = 2 To Sheets.Count
        Sheets(s).Range("A2:Z2").Copy .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)
    Next s
End With

Cordialement

 

Dernière édition: 14 Janvier 2012

Vote positif 0 Vote négatif

fifounet

XLDnaute Occasionnel

• 15 Janvier 2012

• #6

Re : recapitulatif de plusieurs onglets

Bonjour,
Merci Efgé, ton code à l'air plus simple donc je l'ai adopté.
cdt

 

Vote positif 0 Vote négatif