recopier le contenu de plusieurs feuilles dans une feuille recap

[laby]

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 🙂

 

[pascal21]

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

bonjour
j'ai posé il y a peu la même question
https://www.excel-downloads.com/threads/transmission-de-donnees-dans-un-classeur-ferme.74242/

 

[bqtr]

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

Bonsoir laby, pascal21

Voici un exemple, sur la feuille recap tu as un petit bouton Go.

Bonne journée

 

[laby]

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

 

[bqtr]

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

Re,

Le fichier modifié. Si le tableau est vide la ligne titre n'est plus copiée.

Bon Dimanche

 

[laby]

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

Parfait, merci

 

[laby]

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

 

[bqtr]

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:

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 :

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

 

[laby]

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

ça marche 🙂

merci

 

[keks]

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.

 

[keks]

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.