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

recopier le contenu de plusieurs feuilles dans une feuille recap

  • Initiateur de la discussion Initiateur de la discussion laby
  • 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 !

laby

XLDnaute Nouveau
Bonsoir,

J'aimerai recopier le contenu de plusieurs tableaux (1 tableau identique par feuille) dans une feuille "recap". Je précise que c'est uniquement recopier les données.

merci de votre aide 🙂
 

Pièces jointes

Re : recopier le contenu de plusieurs feuilles dans une feuille recap

Merci de vos réponses.

Bqtr c'est effectivement ce que je cherchais, un grd merci 😉

Si c'est pas trop te demander j'ai juste un petit souci : quand un tableau est vide, la macro copie la ligne de titre (ligne 2) dans le recap. Y a t'il une possibilité d'y remedier.

Merci
 
Re : recopier le contenu de plusieurs feuilles dans une feuille recap

J'ai encore une question. Quelle ligne je dois modifier pour selectionner que certaines feuilles (exemple : feuil1, feuil3, feuil4).

Sub Report()
Dim ws As Worksheet
Dim lign As Long, derlign As Long
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
lign = Sheets("recap").Range("A65536").End(xlUp).Offset(1, 0).Row
If ws.Name <> "recap" Then
derlign = ws.Range("A65536").End(xlUp).Row
If derlign = 2 Then
ws.Rows("3" & ":" & derlign + 1).Copy
Else
ws.Rows("3" & ":" & derlign).Copy
End If
Sheets("recap").Range("A" & lign).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next
Sheets("recap").Range("A65536").End(xlUp).Offset(1, 0).Activate
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

En faite, ce que je veux faire c'est une deuxième macro identique dans le classeur pour faire un 2e tableau dans une nouvelle feuille "recap2" mais sur celui-ci je compte masquer des colonnes. Le souci avec ta macro c'est qu'elle sélectionne toutes les feuilles créées dans le classeur.

merci
 
Re : recopier le contenu de plusieurs feuilles dans une feuille recap

Re,

Voici comment procéder. La macro sélectionne uniquement les feuilles listées dans cette ligne de code et ignore les autres:

Code:
For Each ws In Sheets(Array("[COLOR=blue]B1[/COLOR]", "[COLOR=blue]B3[/COLOR]", "[COLOR=blue]B5[/COLOR]"))

Le code complet pour ne traiter que les feuilles B1,B3,B5 :

Code:
Sub Report()
Dim ws As Worksheet
Dim lign As Long, derlign As Long
Application.ScreenUpdating = False
For Each ws In Sheets(Array("B1", "B3", "B5"))
  lign = Sheets("recap").Range("A65536").End(xlUp).Offset(1, 0).Row
  derlign = ws.Range("A65536").End(xlUp).Row
     If derlign = 2 Then
        ws.Rows("3" & ":" & derlign + 1).Copy
     Else
        ws.Rows("3" & ":" & derlign).Copy
     End If
   Sheets("recap").Range("A" & lign).PasteSpecial Paste:=xlPasteValues, _
   Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next
Sheets("recap").Range("A65536").End(xlUp).Offset(1, 0).Activate
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Bonne journée
 
Re : recopier le contenu de plusieurs feuilles dans une feuille recap

bonjour à vous,
en vous lisant je vois un apercu de ce que je recherche.
J'aimerais si possible créer une feuille "commande" avec les qui reprenderai tous les produits qui figurent dans mes différentes feuilles "plats".
Pour ne pas être difficile il faudrait que lorsqu'un produit figure dans une feuille ou l'autre il me fasse le cumule dans la colone quantité mais que ce produit ne figure qu'une seule fois dans la feuille commande.
 
Re : recopier le contenu de plusieurs feuilles dans une feuille recap

Flûte, j'essai d'envoyer un fichier attaché mais j'ai l'impression de ne pas y être arrivé.
Je n'ai même pas pu finir en vous disant merci de me mettre sur la voie, alors merci à celle ou celui qui pourra m'aider.
Bien vous Keks.
 
- 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

Réponses
3
Affichages
116
Réponses
3
Affichages
139
  • Question Question
Microsoft 365 Souci de copie
Réponses
8
Affichages
220
Réponses
10
Affichages
358
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…