Probléme de copie différentes feuilles
Résolu/Fermé
carotte78
Messages postés
46
Date d'inscription
mardi 12 février 2013
Statut
Membre
Dernière intervention
3 juin 2013
-
13 févr. 2013 à 10:19
Morgothal Messages postés 1235 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 - 13 févr. 2013 à 17:17
Morgothal Messages postés 1235 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 - 13 févr. 2013 à 17:17
A voir également:
- Probléme de copie différentes feuilles
- Lien copie - Forum Android
- Copie cachée - Guide
- Lien copié - Forum Android
- Super copie - Télécharger - Gestion de fichiers
- Ce fichier contient l'historique des livres empruntés à la bibliothèque. combien de titres différents contient-il ? ✓ - Forum Excel
2 réponses
eriiic
Messages postés
24512
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
24 mars 2023
7 168
Modifié par eriiic le 13/02/2013 à 11:36
Modifié par eriiic le 13/02/2013 à 11:36
Bonjour,
averc ton nom de feuille en A1 :
=INDIRECT(A1&"!B3")
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
averc ton nom de feuille en A1 :
=INDIRECT(A1&"!B3")
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
Morgothal
Messages postés
1235
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
179
13 févr. 2013 à 11:37
13 févr. 2013 à 11:37
Bonjour,
Pour moi, il faudrait passer par du VBA pour pouvoir récupérer des infos sur les feuilles et les inscrire dans la 21ème.
Quelque chose dans ce goût la :
Peut-être qu'un autre aura une meilleure solution que moi !
Pour moi, il faudrait passer par du VBA pour pouvoir récupérer des infos sur les feuilles et les inscrire dans la 21ème.
Quelque chose dans ce goût la :
Sub parse_feuille()
Dim feuille As Worksheet
Dim i As Integer
i = 1
For Each feuille In Worksheets
If feuille.Name = Sheets(Sheets.Count).Name Then
Exit Sub
End If
Sheets(Sheets.Count).Cells(i, 1) = feuille.Range("A1")
i = i + 1
Next
End SubCette macro prend l'info des cellule A1 de toutes les feuilles et les met en colonne A, en commençant par A1, la seconde feuille en A2, etc. A adapter donc.
Peut-être qu'un autre aura une meilleure solution que moi !
carotte78
Messages postés
46
Date d'inscription
mardi 12 février 2013
Statut
Membre
Dernière intervention
3 juin 2013
13 févr. 2013 à 13:05
13 févr. 2013 à 13:05
Bonjour Morgathal,
Je n'ai pas pu vous dire merci plus tôt de votre réponse et m'en excuse. J'ai essayé votre macro mais malheureusement ca ne marche pas. Cependant vous m'avez donné une ligne de conduite et je vous en remercie :)
Bonne journée.
Carotte78
Je n'ai pas pu vous dire merci plus tôt de votre réponse et m'en excuse. J'ai essayé votre macro mais malheureusement ca ne marche pas. Cependant vous m'avez donné une ligne de conduite et je vous en remercie :)
Bonne journée.
Carotte78
Morgothal
Messages postés
1235
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
179
13 févr. 2013 à 13:34
13 févr. 2013 à 13:34
Oui cette ligne reste à adapter :
Pour ce qui est de la plage d'arrivée, c'est le "Cells(i, 1)", qui correspond à la ligne i et colonne 1.
Le i est initialisé au début, avec "i = 1".
Et pas de problèmes pour le remerciement ;-)
Sheets(Sheets.Count).Cells(i, 1) = feuille.Range("A1")Le "Range("A1") est la plage de départ, si c'est une ligne de cellule, ça devient "Range("A1:A5") par exemple.
Pour ce qui est de la plage d'arrivée, c'est le "Cells(i, 1)", qui correspond à la ligne i et colonne 1.
Le i est initialisé au début, avec "i = 1".
Et pas de problèmes pour le remerciement ;-)
carotte78
Messages postés
46
Date d'inscription
mardi 12 février 2013
Statut
Membre
Dernière intervention
3 juin 2013
13 févr. 2013 à 15:43
13 févr. 2013 à 15:43
Merci beaucoup :) je n'ai pas le temps d'essayer aujourdhui (reunion sur reunion ) mais je vous tiens au courant! bonne soirée :)
carotte78
Messages postés
46
Date d'inscription
mardi 12 février 2013
Statut
Membre
Dernière intervention
3 juin 2013
13 févr. 2013 à 15:56
13 févr. 2013 à 15:56
En fait, ayant du temps j'ai essayé rien ne marche je ne comprend pas. Mes données sont bien en A1 et je veu qu'elles soient en A2 de mon autre feuille mais quiu que je fasse sa ne me fait rien. je pense être une maudite du macro :)
carotte78
Messages postés
46
Date d'inscription
mardi 12 février 2013
Statut
Membre
Dernière intervention
3 juin 2013
13 févr. 2013 à 15:59
13 févr. 2013 à 15:59
J'ai peut etre oublié de vous preciser que les deux premieres feuilles ne sont pas les memes ( mode d'emploi) c'est a partir de la 3eme feuille que tout est pareil. pardon si cela était important :) merciii
13 févr. 2013 à 11:45
13 févr. 2013 à 12:34
=INDIRECT(A1&"!B3")
te ramène Feuil1!B3 (la cellule B3 de feuil1)
Que ça ne t'empêche pas de dire merci également à morgothal.
C'est terrible ça qu'il faille réclamer pour la politesse minimum !!!
eric
13 févr. 2013 à 13:03
Merci de votre aide.
13 févr. 2013 à 13:57
Bien sûr, lorsqu'on est débordé la 1ère chose à zapper est la politesse.
Désolé mais je n'arrive pas à me faire à cet état d'esprit, et je ne cherche pas à m'y faire.
Excuse bidon pour moi.
eric