Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour copier des informations standardisées existantes dans de nombreux onglets

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Papayo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

Papayo

XLDnaute Nouveau
Bonjour,

J'ai un fichier Excel 2011 avec de nombreux onglets.
Chacun de ces onglets comporte un tableau au même format
JE voudrais rapatrier ces données en liste au sein d'un seul onglet.
Si quelqu'un a une solution globale merci !
Sinon, j'ai essayé de décomposer en créant une macro qui va me copier le tableaux de l'onglet 5 par exemple, dans l'onglet 1:
Sub Essai()
'
'Essai Macro
Sheets(5).Select
Range("D1:G21").Select
Selection.Copy
Sheets("Feuil2").Select
Range("C6").Select
ActiveSheet.Paste
Next
End Sub
Mon problème est le suivant. Je voudrais pouvoir mettre une variable dans la fonction sheets (ici sheets(5)), idéalement en lui demandant d'aller chercher la valeur de l'onglet (ici 5) dans la cellule A1 de l'onglet feuille 2 par exemple, pour pouvoir indiquer quel onglet copier (j'ai plusieurs fichier avec des onglets qui peuvent aller de 15 à 40).
En d'autre terme, je voudrais pouvoir incrémenter la variable X dans la fonction sheets(X).select, en prenant pour valeur de X l'information qui se trouve dans la cellule A1 de l'onglet feuille 2.
Je n'y arrive pas. Commet faire Merci !!
 
Trier par date Trier par votes
Re : Macro pour copier des informations standardisées existantes dans de nombreux on

Bonsoir Papayo

public x as String

x= Sheets(Feuil2).cells(1,1) 'Donne à x le nom de la cellule(1,1)de la feuil2

Sheets(x).select

A+
 
Vote positif 0 Vote négatif
Re : Macro pour copier des informations standardisées existantes dans de nombreux on

Je te souhaite la bienvenue sur le Forum

Si tu pouvais systématiquement ajouter une pièce jointe avec ce que tu as et ce que tu désires, tu auras, dans beaucoup de cas, pour des questions plus ardues, beaucoup plus de réponses.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro pour copier des informations standardisées existantes dans de nombreux on

J'ai copié collé et ai donc

ub Essai()
Sheets("Feuil2").Select
Public x As String
x = Sheets(Feuil2).Cells(1, 1)
Sheets(x).Select
Range("D1:G21").Select
Selection.Copy
Sheets("Feuil2").Select
Range("C6").Select
ActiveSheet.Paste
Next
End Sub
Mais cela ne fonctionne pas...
 
Vote positif 0 Vote négatif
Re : Macro pour copier des informations standardisées existantes dans de nombreux on

néné06 à dit:
Je te souhaite la bienvenue sur le Forum

Si tu pouvais systématiquement ajouter une pièce jointe avec ce que tu as et ce que tu désires, tu auras, dans beaucoup de cas, pour des questions plus ardues, beaucoup plus de réponses.

A+
Cliquez pour agrandir...

Bonsoir. Je joins mon fichier comme suggéré (merci pour cette info)
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour copier des informations standardisées existantes dans de nombreux on

ce que tu as écrit

Sub Essai()
Sheets("Feuil2").Select
Public x As String
x = Sheets(Feuil2).Cells(1, 1)
Sheets(x).Select
Range("D1:G21").Select
Selection.Copy
Sheets("Feuil2").Select
Range("C6").Select
ActiveSheet.Paste
Next
End Sub

ce que tu dois écrire

Public x As String


Sub Essai()
Sheets("Feuil2").Select
x = Sheets(Feuil2).Cells(1, 1)
Sheets(x).Select
Range("D1:G21").Select
Selection.Copy
Sheets("Feuil2").Select
Range("C6").Select
ActiveSheet.Paste
Next
End Sub
 
Vote positif 0 Vote négatif
Re : Macro pour copier des informations standardisées existantes dans de nombreux on

Il est préférable que tu n'envoie que la partie qui pose problème et éviter de poster des données confidentielles.

A+
 
Vote positif 0 Vote négatif
Re : Macro pour copier des informations standardisées existantes dans de nombreux on

néné06 à dit:
Regardes l'exemple et suivre avec le pas à pas

A+
Cliquez pour agrandir...

Désolé d'inister, mais j'ai copié la macro dans celle ci

Sub Essai()
Sheets("Feuil2").Select
x = Sheets("Feuil2").Cells(1, 1)
Sheets(x).Select
Range("D1:G21").Select
Selection.Copy
Sheets("Feuil2").Select
Range("C6").Select
ActiveSheet.Paste
End Sub
et ce la bloque à chaque fois sur la fonction Sheets(x).Select avec l'indication "l'indice n'appartient pas à la sélection... Je déprime !
 
Vote positif 0 Vote négatif
Re : Macro pour copier des informations standardisées existantes dans de nombreux on


PS: comme je ne connais pas le nom de tous les onglets, je veux utiliser les nom sheets(1), sheets(2) etc. Le problème ne viendrait il pas de là ?
 
Vote positif 0 Vote négatif
Re : Macro pour copier des informations standardisées existantes dans de nombreux on

Tu dois avoir en a1 de la feuille 2 le nom d'une feuille déja crée.
exemple :banane ou alors tu renome une feuille "10" puisque tu as 10 en cellule A1

A+
 
Vote positif 0 Vote négatif
Re : Macro pour copier des informations standardisées existantes dans de nombreux on

Essayes ce code est analyse le
ce code copie toutes les feuilles avec la zone à la suite
Sub Essai()
Sheets(3).Select
Range("D1:G21").Select
Selection.Copy
Sheets("Feuil2").Select
Cells(6, 3).Select
ActiveSheet.Paste
For x = 4 To Sheets.Count
Sheets(x).Select
Range("D1:G21").Select
Selection.Copy
Sheets("Feuil2").Select
num = Cells.Find("*", , , , , xlPrevious).Row
Cells(num, 3).Select
ActiveSheet.Paste
Next x
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
676
Phil69970
R
  • Question Question
Microsoft 365 Recherche le code VBA pour replacer les informations de corrections de facture dans sa base de données avec comme référence le numéro de facture.
Réponses
2
Affichages
134
vgendron
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
360
AtTheOne
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
211
job75
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
315
job75
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
393
Phil69970
R
  • Question Question
Microsoft 365 Tableau de progressions
Réponses
10
Affichages
374
Rosario.
R
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
356
sylvanu
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
302
sylvanu
R
  • Question Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
721
robbynasch
R
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
871
loloboc
L
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
694
robpellan52
R
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
835
marie3107
M
M
  • Résolu(e)
XL 2010 Code VBA pour Appeler un onglet avec texte + variable
Réponses
9
Affichages
933
Phil69970
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
442
zendb
Z
B
  • Question Question
XL 2016 Formule Recherche d'une cellule dans plusieurs onglets différents
Réponses
2
Affichages
497
oguruma
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
703
AtTheOne
L
  • Question Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
769
l.et.lilou
L
M
  • Question Question
XL 2021 Générateur Tournoi Ecole de Rugby
Réponses
5
Affichages
641
Magis
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…