Lier ou fusionner différentes feuilles

[PyC]

Bonjour à tous,
Aprés avoir fait une recherche au sujet de mon problème sur le forum je n'ai pas trouvé la solution (ou du moins pas comprise). Voila, c'est une des premieres fois que j'utilise Excel et j'ai créer un classeur comprenant 8 feuilles. Sur la premiére il ya le nom et des caractéres administratifs puis sur les autres feuilles, différentes caractéristiques se rapportant aux différentes personnes de la feuille 1. Je me rends compte maitenant de mon erreur et du fait que je n'aurais du faire q'une seule feuille mais en fait ayant 60 items pour chaque personne, je trouvais plus pratique de passer d'une feuile à l'autre plutot que de naviguer dans une grande feuille unique. Je pensais que les lignes de chaque feuille serait lier les unes aux autres si bien que quand j'appliquerais un filtre dans une feuille, seule cette ligne apparaitrait dans toute les feuilles. J'ai bien compris en lisant les différents posts que cela ne marchait pas comme ca. J'aimerais savoir si il est maintenant possible de "fusionner" toutes ces feuilles en une seule où figurerais sur la meme ligne chaque personne et les 60 items lui correspondant (qui sont à l'heure actuelle éparpiller dans mes 8 feuilles).
En vous remerciant d'avance,
Pierre-Yves

 

[papapaul]

Re : Lier ou fusionner différentes feuilles

Salut, 🙂
Un peu compliqué pour moi mais voici une macro
qui devrais te permettre de "rapatrier" toutes les données de tes feuilles
dans une seule.
Tu crée une feuille vierge en premier à gauche et tu éxécutes la macro
ci-dessous, peut-être un début ?
Après faut voir, comment sont disposées tes données.
A éviter les lignes et colonnes vides sinon ca risque de bugger.

Sub x_feuilles _vers_1_feuille()
Dim Ligne, Nombre As Long
Application.ScreenUpdating = False
For Nombre = Sheets.Count To 2 Step -1
Ligne = Range("a65536").End(xlUp).Row + 1
Sheets(Nombre).Range("A1").CurrentRegion.Copy
Sheets(1).Activate
Range("A" & Ligne).Select
ActiveSheet.Paste
Next Nombre
Application.ScreenUpdating = True
End Sub

Bon courage 😉

 

[Spitnolan08]

Re : Lier ou fusionner différentes feuilles

Bonjour PyC, Papapaul,

Je me suis permis Papapaul de modifier ton code (Que j'ai trouvé bien vu sur le principe😉 )pour coller au plus près à la question de PyC :

Sub x_feuilles_vers_1_feuille()
Dim Ligne, Nombre As Long
Application.ScreenUpdating = False
Ligne = 1 '***Si tes données commencent en ligne 1, sinon possibilité d'utiliser la ligne suivante :
'Ligne = Range("A1").End(xlDown).Row + 1
    For Nombre = 2 To Sheets.Count
        Colonne = Range("IV1").End(xlToLeft).Column + 1
        Sheets(Nombre).Range("A1").CurrentRegion.Copy
        Sheets(1).Activate
        Cells(Ligne, Colonne).Select
        ActiveSheet.Paste
    Next Nombre
Application.ScreenUpdating = True
End Sub

Cordialement