Copie de plusieurs feuilles dans une nouvelle vierge.

néné06

XLDnaute Accro

• 20 Février 2010

• #2

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Bonsoir clementptpf

Tu veux copier à la suite ou à coté ???

A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 20 Février 2010

• #3

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Voici un petit exemple qui collera a la suite les feuilles en feuil6

si cela convient voir les retouches dans la macro

Cordialement
Néné06

 

Vote positif 0 Vote négatif

C

clementptpf

Guest

• 25 Février 2010

• #4

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Bonjour,

Merci pour cet exemple, ça semble correspondre effectivement à ce que je souhaite.
Je vais essayer avec mon fichier et je te tiens au courant (un peu booké en ce moment 🙁 ).

Merci.

 

Vote positif 0 Vote négatif

C

clementptpf

Guest

• 9 Mars 2010

• #5

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Voilà, j'ai intégré mes données avec la macro que tu as faite.
Je l'ai lancé et j'ai cherché d'où venait le problème, j'ai trouvé mais je n'ai pas réussi à le résoudre.

D'après les tests que j'ai pu faire, j'en suis arrivé au constat suivant :
- Toutes les lignes des onglets ne sont pas prises en compte (ça marche avec l'exemple que tu m'as envoyé mais pas avec mon fichier). Apparemment, la copie s'arrête lorsqu'il y a une ligne dont les colonnes C à H sont vides
- Il y a un bug lors du copier-coller de la ligne mais je ne sais pas pourquoi (sur l'onglet "Adulte")

Merci pour ton aide.

 

Pièces jointes

• Test.zip

  25.1 KB · Affichages: 98
• Test.zip

  25.1 KB · Affichages: 96
• Test.zip

  25.1 KB · Affichages: 101

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mars 2010

• #6

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Bonsoir


Un autre possibilité de macro

Code:

Sub a()
Dim i As Long
With Sheets("Synthèse")
    For i = 1 To 5
    .Range("A65536").End(xlUp).Offset(1).Resize(Sheets(i).[A65536].End(xlUp).Row - 1, 8).Value = Sheets(i).Range(Sheets(i).[A2], Sheets(i).[A65536].End(xlUp)).Resize(, 8).Value
    Next
End With
End Sub

 

Dernière édition: 10 Mars 2010

Vote positif 0 Vote négatif

C

clementptpf

Guest

• 9 Mars 2010

• #7

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Ha ouais, pas mal.
J'ai fait un petit cumul des 2 et j'arrive à un résultat sympa.

Par contre, est-ce qu'il y a un moyen de récupérer en même temps les mises en forme ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mars 2010

• #8

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Re


Oui en modifiant le code pour utiliser le copier/coller.

Code:

Sub acc()
Dim i As Long
With Sheets("Synthèse")
    For i = 1 To 5
Sheets(i).Range(Sheets(i).[A2], Sheets(i).[A65536].End(xlUp)).Resize(,  8).Copy .Range("A65536").End(xlUp).Offset(1)
    Next
End With
End Sub

 

Dernière édition: 10 Mars 2010

Vote positif 0 Vote négatif

C

clementptpf

Guest

• 10 Mars 2010

• #9

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Voici le fichier et ce que ça donne. Comme je l'ai mis plus haut, j'ai fait un mixe pour arriver à mes fins mais ça marche (c'est pas pour de la grande cuisine 🙂).

Merci à vous 2.

 

Pièces jointes

• Test.zip

  28.2 KB · Affichages: 61
• Test.zip

  28.2 KB · Affichages: 62
• Test.zip

  28.2 KB · Affichages: 61

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Mars 2010

• #10

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Re



Pourquoi ne pas simplement utiliser ceci ?

Code:

Sub Creation_Synthese()
Dim i As Long
With Sheets("Synthèse")
    For i = 1 To 5
Sheets(i).Range(Sheets(i).[A2], Sheets(i).[A65536].End(xlUp)).Resize(, 8).Copy .Range("A65536").End(xlUp).Offset(1)
    Next
End With
End Sub

Le résultat est le même non ?

PS: j'ai simplifié aussi les codes de mes autres messages.

 

Dernière édition: 10 Mars 2010

Vote positif 0 Vote négatif

C

clementptpf

Guest

• 10 Mars 2010

• #11

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Pas tout à fait.
Si tu supprimes toutes l'intégralité des colonnes de l'onglet "Synthèse" et que tu lances la macro, le résultat est le suivant :
- la première ligne est vide (donc sans les titres)
- les filtres sont sur la seconde ligne

C'est pour palier à ce problème que j'ai un peu bidouillé et pris un peu de ton script et un peu du premier pour arriver à ce que je voulais 😀, je ne suis pas un pro en VB 😛.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Mars 2010

• #12

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Re



Quel est l'intérêt de supprimer les titres pour le recopier ensuite 😕

Autant les laisser sur la feuille Synthèse non ?

 

Vote positif 0 Vote négatif

C

clementptpf

Guest

• 10 Mars 2010

• #13

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Oui, effectivement.

Dans mon idée, la feuille était initialement vierge, c'est pour ça mais en laissant la première ligne, ça marche sans problème.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Mars 2010

• #14

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

Re

Une petite dernière pour la route

C'est cadeau 😉

Code:

Sub a_b()
Dim i As Long, r_a_z
With Sheets("Synthèse")
r_a_z = MsgBox("Voulez-vous réinitialisez la feuille Synthèse?" & Chr(13) & "avant la recopie des données.", vbQuestion + vbYesNo, "COMPILATION DES DONNEES")
    If r_a_z = vbYes Then
    .Rows("2:65536").Delete
    For i = 1 To 5
    .Range("A65536").End(xlUp).Offset(1).Resize(Sheets(i).[A65536].End(xlUp).Row - 1, 8).Value = Sheets(i).Range(Sheets(i).[A2], Sheets(i).[A65536].End(xlUp)).Resize(, 8).Value
    Next
    Else
    End
    End If
End With
End Sub

 

Vote positif 0 Vote négatif

C

clementptpf

Guest

• 10 Mars 2010

• #15

Re : Copie de plusieurs feuilles dans une nouvelle vierge.

ok merci 🙂

 

Vote positif 0 Vote négatif