XL 2016 transfert de données de plusieurs feuilles vers une seule VBA ou excel ?

MDAURORE1

XLDnaute Nouveau
Bonjour ,

Je suis gestionnaire de parc et je rencontre un problème .
J'ai plusieurs fichiers que mes gestionnaires de territoire remplissent. Je souhaite transférer les données de chaque feuille vers une seule feuille "parc Global" ( qui me recapitulerait l'ensemble du parc).
Le fichier que me remplissent les gestionnaire commencent par 4 colonnes : Territoire, dossier comptable, code analytique, immat.
Ce sont les données de ces 4 colonnes que je souhaite transférer dans ma feuille "Parc Global".

Est ce que je dois utiliser Excel ou VBA?
Est ce que quelqu'un peut m'aider à trouver la formule ou le code ?

J'ai fait un fichier test mais je n'arrive pas à le mettre en PJ
 

djidji59430

XLDnaute Barbatruc
Capture d’écran 2022-02-23 171144.jpg
Capture d’écran 2022-02-23 171144.jpg
 

djidji59430

XLDnaute Barbatruc
Bonjour à tous,

Tu fais ça avec power query. données==>obtenir des données
Si tu ne l'as pas tu le télécharges, ça fait partie d'Excel
Tu obtiens un tableau dynamique qui se modifie en fonction des tableaux sources
 

Pièces jointes

  • Fichier PArc auto - Test 1.xlsx
    268.7 KB · Affichages: 2

Phil69970

XLDnaute Barbatruc
@MDAURORE1

Tout en image c'est plus parlant :

1645636727654.png

Et tu copie le code 4 au même endroit dans ton fichier

*Attention ton onglet "Parc global" doit exister sinon bug o_O

Et si tu n'as pas l'onglet développeur le 1 sur l'image

1645636947375.png


*Que veux dire "malheureusement cela n'a pas marché" ??
Tu as un message d'erreur ? Lequel ? Autre ? Développe ......


@Phil69970
 

MDAURORE1

XLDnaute Nouveau
@MDAURORE1

Tout en image c'est plus parlant :

Regarde la pièce jointe 1131753
Et tu copie le code 4 au même endroit dans ton fichier

*Attention ton onglet "Parc global" doit exister sinon bug o_O

Et si tu n'as pas l'onglet développeur le 1 sur l'image

Regarde la pièce jointe 1131754

*Que veux dire "malheureusement cela n'a pas marché" ??
Tu as un message d'erreur ? Lequel ? Autre ? Développe ......


@Phil69970
Bonjour Phil

Je viens de refaire la manip, c'est bon ca fonctionne par contre 2 choses
Le transfert des données prends également la reprise des entêtes et je n'ai pas le bouton " Grouper les feuilles"
 

Phil69970

XLDnaute Barbatruc
@MDAURORE1


Le transfert des données prends également la reprise des entêtes
1)Si tes données sont comme sur le fichier test (exactement la même disposition) les entêtes ne sont pas reprises comme sur le fichier test que tu as fourni
Si c'est pas cela explique mieux ou met le fichier


je n'ai pas le bouton " Grouper les feuilles"
2)Pour le bouton ==> Tout en image 🤣
Bien prendre le bouton sous Contrôle ActiveX comme dans l'image

1645705967085.png

Et tu agrandis la zone
1645706153281.png

1645706199320.png


Soit :
Pour t'éviter de trop bidouiller Tu remplaces

VB:
Sub CommandButton1_Click()
Regroupe_Feuilles
End Sub

Par :
VB:
Sub CommandButton1_Click()
CommandButton1.Caption = "Grouper les feuilles"  'Apres la modif tu peux supprimer la ligne
CommandButton1.BackColor = vbGreen  'Apres la modif tu peux supprimer la ligne (couleur verte)
Regroupe_Feuilles
End Sub

OU soit tu mets les mains dans le cambouis : (c'est l'un ou l'autre mais pas les 2) ;)

Sur le bouton ==> clique droit ==> Propriété
1645707608814.png


1645707864857.png
==>
1645707962945.png



Et pour la couleur du bouton

1645708279111.png


Et tu choisis la couleur que tu veux ....

*Merci de ton retour

@Phil69970
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
298 792
Messages
1 971 810
Membres
203 481
dernier inscrit
kamrankaghar