Macro copier les onglets dans un seul onglet
Résolu/Fermé
zagus
Messages postés
53
Date d'inscription
mercredi 23 juillet 2008
Statut
Membre
Dernière intervention
16 avril 2012
-
22 sept. 2008 à 13:48
zagus Messages postés 53 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 16 avril 2012 - 29 sept. 2008 à 16:54
zagus Messages postés 53 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 16 avril 2012 - 29 sept. 2008 à 16:54
A voir également:
- Excel copier tous les onglets dans un seul
- Liste déroulante excel - Guide
- Restaurer onglets chrome - Guide
- Formule excel - Guide
- Copier une vidéo youtube - Guide
- Si et excel - Guide
8 réponses
shuya89
Messages postés
470
Date d'inscription
jeudi 22 mai 2008
Statut
Membre
Dernière intervention
28 novembre 2014
39
22 sept. 2008 à 14:36
22 sept. 2008 à 14:36
et ben c simple tu fait une macro qui selectionne tout et et qui copie/colle sur ta page excel voila
cordialement SHuya
cordialement SHuya
zagus
Messages postés
53
Date d'inscription
mercredi 23 juillet 2008
Statut
Membre
Dernière intervention
16 avril 2012
3
29 sept. 2008 à 11:09
29 sept. 2008 à 11:09
le probleme c'est que j'ai des lignes qui se rajoutent au fur et à mesure dans mes onglets.
je ne peux donc pas définir de plage de ligne pour indique à la macro ou coller.
Si je lui demande de copier les colonnes, ca va effacer l'onglet precedent.
Il faudrait que je demande à la macro de commencer à coller l' onglel à partir de la premiere ligne non vide dans l'onglet "sauvergarde" mais je ne sais pas comment m'y prendre.
Il faudrait aussi pour eviter de raisonner en colonne, lui demander de selectionner pour la copie toutes les lignes jusqu'à ce qu'elle rencontre une ligne vide mais pareil je ne sais pas comment faire.
Si quelqu'un pouvait m'aider.
en vous remerciant par avance
je ne peux donc pas définir de plage de ligne pour indique à la macro ou coller.
Si je lui demande de copier les colonnes, ca va effacer l'onglet precedent.
Il faudrait que je demande à la macro de commencer à coller l' onglel à partir de la premiere ligne non vide dans l'onglet "sauvergarde" mais je ne sais pas comment m'y prendre.
Il faudrait aussi pour eviter de raisonner en colonne, lui demander de selectionner pour la copie toutes les lignes jusqu'à ce qu'elle rencontre une ligne vide mais pareil je ne sais pas comment faire.
Si quelqu'un pouvait m'aider.
en vous remerciant par avance
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
29 sept. 2008 à 11:50
29 sept. 2008 à 11:50
Bonjour,
Pas très sympa de poser ta question dans plusieurs forums: peut-^tre que dans "bureautique" actuellement, qqn envoie une bonne réponse...
Donc, je contribue peut-être pour rien; la prochaine fois, précise le et avertis si ton pb est résolu car à force les contributeurs se découragent d'aider pour rien.
si tu colles en colonne A
taligvide=range("A65536").end(xlup).row+1
Pas très sympa de poser ta question dans plusieurs forums: peut-^tre que dans "bureautique" actuellement, qqn envoie une bonne réponse...
Donc, je contribue peut-être pour rien; la prochaine fois, précise le et avertis si ton pb est résolu car à force les contributeurs se découragent d'aider pour rien.
si tu colles en colonne A
taligvide=range("A65536").end(xlup).row+1
zagus
Messages postés
53
Date d'inscription
mercredi 23 juillet 2008
Statut
Membre
Dernière intervention
16 avril 2012
3
29 sept. 2008 à 13:37
29 sept. 2008 à 13:37
en fait j ai posté le mess sans regarder dans quel forum...désolé..c'est pour ca que je l'ai remis dans le bon forum.
merci pour ta réponse.
merci pour ta réponse.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
29 sept. 2008 à 13:39
29 sept. 2008 à 13:39
OK, mais signale le dans le forum "bureautique" d'avance merci
zagus
Messages postés
53
Date d'inscription
mercredi 23 juillet 2008
Statut
Membre
Dernière intervention
16 avril 2012
3
29 sept. 2008 à 16:12
29 sept. 2008 à 16:12
j'ai integre la formule que tu m'as donné michel_m, cependant le p12 se colle avant le p11 et si il y a plus de 2 portefeuille, il me demande si je veux remplacer le contenu des cellules de destination.
il y a forcement une erreur mais je ne sais pas où, peux-tu m'aider stp
Sub sauvergarde()
Sheets("p11").Select
range("A1").CurrentRegion.Select
Selection.Copy
Sheets("sauvegarde").Select
range("A3").Select
ActiveSheet.Paste
Sheets("p12").Select
range("A1").CurrentRegion.Select
Selection.Copy
Sheets("sauvegarde").Select
taligvide = range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste
Sheets("p13").Select
range("A1").CurrentRegion.Select
Selection.Copy
Sheets("sauvegarde").Select
taligvide = range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste
il y a forcement une erreur mais je ne sais pas où, peux-tu m'aider stp
Sub sauvergarde()
Sheets("p11").Select
range("A1").CurrentRegion.Select
Selection.Copy
Sheets("sauvegarde").Select
range("A3").Select
ActiveSheet.Paste
Sheets("p12").Select
range("A1").CurrentRegion.Select
Selection.Copy
Sheets("sauvegarde").Select
taligvide = range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste
Sheets("p13").Select
range("A1").CurrentRegion.Select
Selection.Copy
Sheets("sauvegarde").Select
taligvide = range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
29 sept. 2008 à 16:46
29 sept. 2008 à 16:46
Re,
voici ta macro optimisée à copier -coller à la place de ta 1° mouture
Sub sauvergarder()
Application.ScreenUpdating = False
Sheets("p11").Range("A1").CurrentRegion.Copy Sheets("sauvegarde").Range("A3")
Sheets("p12").Range("A1").CurrentRegion.Copy Sheets("sauvegarde").Range("A" & Range("A65536").End(xlUp).Row + 1)
Sheets("p13").Range("A1").CurrentRegion.Copy Sheets("sauvegarde").Range("A" & Range("A65536").End(xlUp).Row + 1)
End Sub
Bonne soirée
voici ta macro optimisée à copier -coller à la place de ta 1° mouture
Sub sauvergarder()
Application.ScreenUpdating = False
Sheets("p11").Range("A1").CurrentRegion.Copy Sheets("sauvegarde").Range("A3")
Sheets("p12").Range("A1").CurrentRegion.Copy Sheets("sauvegarde").Range("A" & Range("A65536").End(xlUp).Row + 1)
Sheets("p13").Range("A1").CurrentRegion.Copy Sheets("sauvegarde").Range("A" & Range("A65536").End(xlUp).Row + 1)
End Sub
Bonne soirée
zagus
Messages postés
53
Date d'inscription
mercredi 23 juillet 2008
Statut
Membre
Dernière intervention
16 avril 2012
3
29 sept. 2008 à 16:54
29 sept. 2008 à 16:54
merci beaucoup..je n'aurais jamais trouvé
bonne soirée
bonne soirée