Coller différentes onglets dans un onglet unique

Question

Bonjour à tous,
Je souhaiterais coller différents onglets dans un seul onglet "synthèse" par une macro.
J'ai enregistré une macro toute simple (je ne sais pas coder) en l'état (cf mon lien ci dessous).
http://www.cjoint.com/c/GCwlbLtv56m
Or, mes onglets n'auront jamais le même nombre de lignes puisqu'ils seront alimentés, je sais qu'il faut utiliser le code "derlig" pour que la macro me copie colle toutes les lignes jusqu'à la dernière remplie mais je n'y arrive pas :((
Pourriez vous m'aider :) ?
Merci

ThauTheme · Answer

Bonjour Carole, bonjour le forum,
Essaie comme ça :
Sub TESTCOLLERBASE()
Dim B As Worksheet 'déclare la variable B (onglets base)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set B = Worksheets("Base") 'définit l'onglet B
For Each O In Sheets 'boucle sur tous les onglets O du classeur
    If O.Name <> B.Name Then 'condition : si le nom de l'onglet est différent du nom de l'onglet B
        'définit la cellule de destination DEST (A2 si A2 est vide, sinon, la premiere cellule vide de la colonne A de l'onglet B)
        Set DEST = IIf(B.Range("A2").Value = "", B.Range("A2"), B.Range("A1").End(xlDown).Offset(1, 0))
        O.UsedRange.Copy 'copie les cellules éditées de l'onglet O
        DEST.PasteSpecial (xlPasteValues) 'colle les valeurs dans DEST
    End If 'fin de la condition
Next O 'prochain onglet de la boucle
End Sub

ThauTheme · Answer

Re,
Dans ce cas il ne faut pas boucler...
Sub TESTCOLLERBASE()
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
        
Application.ScreenUpdating = False
Worksheets("xxx").Select
'définit la cellule de destination DEST (A2 si A2 est vide, sinon, la premiere cellule vide de la colonne A de l'onglet B)
Set DEST = IIf(B.Range("A2").Value = "", B.Range("A2"), B.Range("A1").End(xlDown).Offset(1, 0))
ActiveSheet.UsedRange.Copy 'copie les cellules éditées de l'onglet O
DEST.PasteSpecial (xlPasteValues) 'colle les valeurs dans DEST

Worksheets("yyy").Select
'définit la cellule de destination DEST (A2 si A2 est vide, sinon, la premiere cellule vide de la colonne A de l'onglet B)
Set DEST = IIf(B.Range("A2").Value = "", B.Range("A2"), B.Range("A1").End(xlDown).Offset(1, 0))
ActiveSheet.UsedRange.Copy 'copie les cellules éditées de l'onglet O
DEST.PasteSpecial (xlPasteValues) 'colle les valeurs dans DEST

Worksheets("zzz").Select
'définit la cellule de destination DEST (A2 si A2 est vide, sinon, la premiere cellule vide de la colonne A de l'onglet B)
Set DEST = IIf(B.Range("A2").Value = "", B.Range("A2"), B.Range("A1").End(xlDown).Offset(1, 0))
ActiveSheet.UsedRange.Copy 'copie les cellules éditées de l'onglet O
DEST.PasteSpecial (xlPasteValues) 'colle les valeurs dans DEST

End Sub

ThauTheme · Answer

Re,
Je confirme. Je suis vraiment un âne !...
Set DEST = IIf(Sheets("synthèse").Range("A2").Value = "", Sheets("synthèse").Range("A2"), Sheets("synthèse").Range("A1").End(xlDown).Offset(1, 0)) 
Remplacer la ligne pour les trois onglets donc 3 fois dans le code...
Ou, le code complet :
Sub TESTCOLLERBASE()
Dim OS as Worksheet 'déclare la variable OS (Onglet Synthèse)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
        
Application.ScreenUpdating = False
Set OS = Worksheets("synthèse") 'définit l'onglet OS
Worksheets("xxx").Select
'définit la cellule de destination DEST (A2 si A2 est vide, sinon, la première cellule vide de la colonne A de l'onglet OS)
Set DEST = IIf(OS.Range("A2").Value = "", OS.Range("A2"), OS.Range("A1").End(xlDown).Offset(1, 0))
ActiveSheet.UsedRange.Copy 'copie les cellules éditées de l'onglet O
DEST.PasteSpecial (xlPasteValues) 'colle les valeurs dans DEST

Worksheets("yyy").Select
'définit la cellule de destination DEST (A2 si A2 est vide, sinon, la première cellule vide de la colonne A de l'onglet OS)
Set DEST = IIf(OS.Range("A2").Value = "", OS.Range("A2"), OS.Range("A1").End(xlDown).Offset(1, 0))
ActiveSheet.UsedRange.Copy 'copie les cellules éditées de l'onglet O
DEST.PasteSpecial (xlPasteValues) 'colle les valeurs dans DEST

Worksheets("zzz").Select
'définit la cellule de destination DEST (A2 si A2 est vide, sinon, la première cellule vide de la colonne A de l'onglet OS)
Set DEST = IIf(OS.Range("A2").Value = "", OS.Range("A2"), OS.Range("A1").End(xlDown).Offset(1, 0))
ActiveSheet.UsedRange.Copy 'copie les cellules éditées de l'onglet O
DEST.PasteSpecial (xlPasteValues) 'colle les valeurs dans DEST

End Sub

Coller différentes onglets dans un onglet unique

3 réponses

Discussions similaires

Newsletters