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

réunir plusieurs feuilles contenant chacune un tableau

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion juju1994
  • 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
J

juju1994

XLDnaute Nouveau
Bonjour,
J'ai dans un classeur contenant 10 feuilles qui représentent 10 sociétés différentes. A l'intérieur de chaque feuille il y a un tableau qui regroupe les employés qui travaille dans cette société avec différentes informations (famille, nom, fixe, mobile, société). Est-il possible de réunir ces 10 tableaux dans une unique feuille? je ne veux pas réunir les 10 tableaux en un seul, juste qu'il soit les uns à coté des autres pour que une fois tous réunis, je puisse imprimer cette feuille. De meme il faudrait que si je modifie, ajoute, ou supprime un employé dans une société, le changement se fasse dans la feuille finale.
Je suppose qu'il faut faire une macro mais je ne vois pas comment faire.
Merci de votre aide.
 
Trier par date Trier par votes
Re : réunir plusieurs feuilles contenant chacune un tableau

bonjour,
J'ai oublié de préciser un détail, les tableaux je vais les réunir dans 2 feuilles : une feuille avec que les fixe et une deuxième avec que les mobiles, comment fait-on parce que les fixes et les mobiles sont parfois mélangés?
Merci
 
Vote positif 0 Vote négatif
Re : réunir plusieurs feuilles contenant chacune un tableau

Bonjour,

Regarde cet autre topic: post 5: le fichier test
vous avez peut etre le meme besoin: des tableaux sur plusieurs onglets à mettre dans le meme..
après tu parles de fixe..mobile.... ???
 
Vote positif 0 Vote négatif
Re : réunir plusieurs feuilles contenant chacune un tableau

voila le fichier exemple.
Feuil1 = tableau brut mélangé pour les société
Fixe = tableau ou il doit y avoir que les fixes
mobile = tableau ou il doit avoir que les mobiles
ABC = employés de la société ABC
AZE = employés de la société AZE
ZER = employés de la société ZER*

J'ai une macro dans module qui fait permet le tri des employés dans Feuil1 et les ajoutes dans le tableau correspondant a leurs société
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : réunir plusieurs feuilles contenant chacune un tableau

ouh laa. vite. retire ce fichier..tu vas te faire gronder
il faut juste un fichier exemple sans aucune donnée confidentielle. la tu nous mets un accès direct à une liste officielle de nom, société et numéro de tel..

met un fichier avec juste deux ou trois lignes et des noms et numéro bidon
 
Vote positif 0 Vote négatif
Re : réunir plusieurs feuilles contenant chacune un tableau

bon sinon, vu que j'ai eu le temps de regarder:
je vois que tu as déjà tous les éléments pour faire ce que tu souhaites
si j'ai bien compris: tu veux ventiler la feuill1 dans les onglets Fixe et mobile tout comme tu l'as déjà fait pour les onglets de société.

il te suffit donc juste de recopier la dernière boucle de ton code et la modifier pour les onglets fixe et mobile
à rajouter en fin de macro. juste avant le end sub

Code: 
'boucle de transfert dans Fixe ou mobile
For x = 1 To derniereligne - 1
    'comparaison du nom de la société avec le nom de la feuille
    onglet = Replace(plage(x, 1), 1, -1, vbTextCompare)
    'derniere cellule non vide colonne A de l'onglet en cours
    dernierelignecolonne = Worksheets(onglet).Range("A" & Rows.Count).End(xlUp).Row + 1
    'copie infos
    Range(plage(x, 1), plage(x, 5)).Copy Worksheets(onglet).Range("A" & dernierelignecolonne)
Next x

Note: il faut que tu rajouttes un onglet "Convergent". sinon, tel quel. ca plante
 
Vote positif 0 Vote négatif
Re : réunir plusieurs feuilles contenant chacune un tableau

merci de ta réponse pendant que je modifier le message j'ai pas vu ce que tu avais mis. Le problème c'est qu'il faut pas d'onglet convergent
 
Vote positif 0 Vote négatif
Re : réunir plusieurs feuilles contenant chacune un tableau

Dans ce cas,
il suffit de rajoutter un test sur le nom de l'onglet

Code: 
'boucle de transfert dans Fixe ou mobile
For x = 1 To derniereligne - 1
    'comparaison du nom de la société avec le nom de la feuille
    onglet = Replace(plage(x, 1), 1, -1, vbTextCompare)
    If onglet <> "Convergent" Then
        'derniere cellule non vide colonne A de l'onglet en cours
        dernierelignecolonne = Worksheets(onglet).Range("A" & Rows.Count).End(xlUp).Row + 1
        'copie infos
        Range(plage(x, 1), plage(x, 5)).Copy Worksheets(onglet).Range("A" & dernierelignecolonne)
    End If
Next x
 
Vote positif 0 Vote négatif
Re : réunir plusieurs feuilles contenant chacune un tableau

ca marche pour les fixe et mobile mais les convergent apparaissent nul part. Il faudrait que leur fixe apparaissent dans l'onglet fixe et que leur mobile apparaissent dans l'onglet mobile.
 
Vote positif 0 Vote négatif
Re : réunir plusieurs feuilles contenant chacune un tableau

ha. et donc. avec ceci?
j'allais justement te dire que dans le cas ou il y a deux numéros de tel, il y a allait avoir un manque.. ;-)

Code: 
Sub lstentreprise()
 Dim derniereligne As Long 'ligne
 Dim dernierelignecolonne As Integer 'colonne
 Dim feuille As Worksheet
 Dim plage As Range
 
'remise à zero des infos dans tous les onglets
For Each feuille In Worksheets
    'test si onglet société
    If feuille.Name <> "Feuil1" Then
        'remise à zero cellules
        Worksheets(feuille.Name).Cells.ClearContents
        'copie des titres colonnes
        Worksheets("feuil1").Range("A1:E1").Copy Worksheets(feuille.Name).Range("A1")
    End If
Next feuille

'derniere cellule non vide colonne A de feuil1

derniereligne = Worksheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row
'mise en memoire des infos
Set plage = Worksheets("feuil1").Range("A2:E" & derniereligne)
'boucle de transfert infos dans onglets
For x = 1 To derniereligne - 1
    'comparaison du nom de la société avec le nom de la feuille
    onglet = Replace(plage(x, 5), 1, -1, vbTextCompare)
    'derniere cellule non vide colonne A de l'onglet en cours
    dernierelignecolonne = Worksheets(onglet).Range("A" & Rows.Count).End(xlUp).Row + 1
    'copie infos
    Range(plage(x, 1), plage(x, 5)).Copy Worksheets(onglet).Range("A" & dernierelignecolonne)
Next x
 
'boucle de transfert dans Fixe ou mobile
For x = 1 To derniereligne - 1
    'comparaison du nom de la société avec le nom de la feuille
    onglet = Replace(plage(x, 1), 1, -1, vbTextCompare)
    If onglet <> "Convergent" Then
        'derniere cellule non vide colonne A de l'onglet en cours
        dernierelignecolonne = Worksheets(onglet).Range("A" & Rows.Count).End(xlUp).Row + 1
        'copie infos
        Range(plage(x, 1), plage(x, 5)).Copy Worksheets(onglet).Range("A" & dernierelignecolonne)
    End If
    If onglet = "Convergent" Then
        'si le convergent a un numéro de fixe
        If (plage(x, 3) <> "") Then
            onglet = "Fixe" 'on va recopier le convergent dans l'onglet fixe
            'derniere cellule non vide colonne A de l'onglet en cours
            dernierelignecolonne = Worksheets(onglet).Range("A" & Rows.Count).End(xlUp).Row + 1
            'copie infos
            Range(plage(x, 1), plage(x, 5)).Copy Worksheets(onglet).Range("A" & dernierelignecolonne)
            'puis on efface le numéro de mobile qui a été copié inutilement
            Worksheets(onglet).Range("D" & dernierelignecolonne).ClearContents
        End If
        
        If plage(x, 4) <> "" Then
            onglet = "Mobile" 'on va recopier le convergent dans l'onglet Mobile
            'derniere cellule non vide colonne A de l'onglet en cours
            dernierelignecolonne = Worksheets(onglet).Range("A" & Rows.Count).End(xlUp).Row + 1
            'copie infos
            Range(plage(x, 1), plage(x, 5)).Copy Worksheets(onglet).Range("A" & dernierelignecolonne)
            'puis on efface le numéro de fixe qui a été copié inutilement
            Worksheets(onglet).Range("C" & dernierelignecolonne).ClearContents
        End If
    End If
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

M
  • Résolu(e)
XL 2021 Tableaux successifs avec colonnes de largeur différente
Réponses
2
Affichages
193
MATLEA
M
I
  • Résolu(e)
XL 2021 VBA - importer des tableaux dans un fichier excel
2 3
Réponses
44
Affichages
915
fanch55
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
236
Sissou71
S
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
741
Renaud22
R
C
  • Question Question
XL 2016 Récapitulatif de plusieurs feuilles sur un tableau (en fonction de dates)
Réponses
11
Affichages
134
job75
C
  • Résolu(e)
XL 2016 Automatisation de l'alimentation des cellules de plusieurs feuilles Excel (Formules : Recherchev...)
Réponses
10
Affichages
213
micheldu52
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
196
vgendron
D
  • Question Question
XL 2019 Suppression doublons combinés entre deux cellules associées et présentation sous forme de tableau
Réponses
13
Affichages
669
alexga78
A
F
  • Résolu(e)
XL 2019 Power query - Réunir le contenu de plusieurs fichiers xls dans un seul
Réponses
10
Affichages
2 K
Bernard_XLD
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
E
  • Résolu(e)
Autres série de feuilles à incrémenter dans un tableau
Réponses
9
Affichages
139
Etienne
E
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
370
sousou
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
224
fanch55
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
672
AtTheOne
D
  • Question Question
Microsoft 365 Tableau gestion ticket restau
Réponses
3
Affichages
459
yoyo2018
Y
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
508
AtTheOne
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
715
dysorthographie
S
  • Question Question
XL 2021 suite de nombre avec changement tous les 5
Réponses
9
Affichages
581
mapomme
  • Résolu(e)
XL 2010 tableau de comptage sans doublon
2 3
Réponses
44
Affichages
2 K
cathodique
  • Résolu(e)
XL 2021 PB Alimentation Tableau structuré depuis un ListBox
2
Réponses
27
Affichages
656
jeff1494
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…