VBA - Faire matcher des cellules avec des colonnes d'un autre onglet

Bonjour à tous,

Mon problème est assez compliqué à expliquer. Voir en pièce jointe le fichier Excel de départ.
Le document que j'essai de mettre au point permet à l'utilisateur de créer son propre rapport au format de son client.

J'ai deux onglet :
- Le premier onglet est une liste déroulante de valeur qui permet à l'utilisateur du fichier de sélectionner les colonnes qu'il souhaite avoir dans son rapport.
- dans le deuxième onglet il y a le rapport comprenant toutes les colonnes disponibles avec en en-tête le titre de la colonne.

L'idée est que l'utilisateur sélectionne ses colonnes dans le premier onglet puis que la macro cherche dans le 2ème onglet les colonnes correspondantes, les copie et les colles dans le premier onglet.

J'ai éssayé de faire une macro du type:
Pour chaque cellule de la ligne 1 du premier onglet va chercher la colonne qui matche dans le 2ème onglet et copie colle cette colonne dans le premier onglet. Malheureusement je n'ai pas réussis.

Si quelqu'un voit une solution à mon problème, c'est avec grand plaisir!! ;)

Merci beaucoup

Bonjour romain31200,

Citation:

---

Envoyé par romain31200

Mon problème est assez compliqué à expliquer.

---

Ou peut être peux tu m'expliquer pourquoi ton problème est aussi compliqué. :)

Citation:

---

Envoyé par romain31200

Voir en pièce jointe le fichier Excel de départ.

---

Euh ... Une autre fois peut être...

Bref, un petit récap' du besoin réel pour comprendre ce que je n'ai pas compris:

Tu as une liste déroulante pour sélectionner des champs à exporter.
Tu sélectionnes tes champs.
Tu créés un report (un "état" en français) pour impression par exemple, de la fiche client.

Citation:

---

Envoyé par romain31200

Pour chaque cellule de la ligne 1 du premier onglet va chercher la colonne qui matche dans le 2ème onglet et copie colle cette colonne dans le premier onglet. Malheureusement je n'ai pas réussis.

---

Là, je vois pas...

Mon conseil est d'exrpimer clairement la finalité de ton projet (Plusieurs chemins mènent à Rome, quelqu'un connait surement un raccourci).

Cordialement,

Pellouaille

Bonjour,

Citation:

---

- Le premier onglet est une liste déroulante de valeur qui permet à l'utilisateur du fichier de sélectionner les colonnes qu'il souhaite avoir dans son rapport.
- dans le deuxième onglet il y a le rapport comprenant toutes les colonnes disponibles avec en en-tête le titre de la colonne.

---

=> Sauf incompréhension de ma part, vous n'avez pas besoin du VBA pour faire celà, des fonctions (Excel Anglais) MATCH et H/VLOOKUP le font nativement. Suggestion, organisez votre feuille de data en transposant les lignes et les colonnes

Voir http://fauconnier.developpez.com/tut...el/recherchev/

Hello Pellouaille,

Merci pour ta réponse.
Alors la finalité du projet: en gros j'exporte un rapport de Salesforce avec plusieurs champ (mes en-têtes de colonne) que je mets dans le deuxième onglet de mon fichier Excel.

A partir de ce rapport les futurs utilisateurs de mon fichier devront sélectionnées seulement les champs qui les intéressent pour créer leur rapport sur mesure (en fonction des infos que souhaitent leur client).
Pour leur simplifier la vie, je souhaiterai qu'il puisse se mettre dans le premier onglet, cliquer sur la cellule "A1": sélectionner dans la liste déroulante le champ qu'il souhaite avoir dans la première colonne, cliquer sur la cellule "B1": sélectionner dans la liste déroulante le champ qu'il souhaite avoir dans la deuxième colonne, etc... (les données de la liste déroulante étant les en-têtes des colonnes du rapport présent dans le 2ème onglet).

Une fois que leur mapping est effectué, il faudrait qu'ils n'aient qu'à cliquer sur un bouton qui importe les données (du deuxième onglet) en fonction des champs qu'ils auront sélectionné dans le premier onglet (ex: si la cellule "A1" du premier onglet = "Hotel name", la macro va dans le deuxième onglet pour chercher la colonne qui a comme en-tête "Hotel name", copie la colonne et la colle dans la colonne A du premier onglet).

J'espère que c'est un peu plus clair...

Merci encore pour votre aide.

Bonjour, bonjour !

Citation:

---

Envoyé par romain31200

J'ai éssayé de faire une macro du type … Malheureusement je n'ai pas réussis.

---

Conformément aux règles de ce forum, poster donc le code entrepris balisé via l'icône dédiée # !
Problématique pourtant d'un niveau de débutant …

_____________________________________________________________________________________________________
If you can’t explain it simply, you don’t understand it well enough … (Albert Einstein)

Bonjour,

excel permet de réaliser au moins 95% du boulot

mais si tu veux vraiment une procédure, avec un filtre avancé c'est réglé en quelques lignes VBA (et une fonction existante sur ce forum, lien en bas de message) pour le noyau fonctionnel

- écrire en ligne 1 tous les en-têtes de ta base de données
- masquer les lignes 1 à 3
- proposer des listes de validations basées sur ces en-têtes, en ligne 4
- lancer le filtre avancé (via la fonction) avec pour paramètres : critères = ligne 1 et 2 || plage = ta base de données || Export vers ligne 4

toutes les étapes décrites sont réalisables par Excel et interceptables par l'enregistreur de macro

La fonction en question, tu la trouveras sur l'excellent tutoriel de Philippe Tulliez, au sujet des filtres avancés, que je t'invite à lire pour comprendre ce que je te propose : http://philippetulliez.developpez.co...dvancedfilter/

entraine toi, et reviens avec le (ou les) codes que tu n'arrives pas à adapter

Bonjour Joe,

Tout d'abord merci infiniment pour ton aide.
Cela a fonctionné correctement.

Il me manque juste un dernier point à résoudre.
Ci-dessous le code de mon filtre avancé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Data!$A$1:$CH$1" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With

---

Cela fonctionne mais ma zone de critère varie continuellement. C'est à dire que là j'ai "Formula1:="=Data!$A$1:$CH$1"" mais la fois d'après je peux avoir moins de critères et avoir "Formula1:="=Data!$A$1:$BB$1"".

Comment faire pour que ma formule s'adapte automatiquement à la dernière cellule de la ligne non vide?

Merci d'avance pour ton aide (encore une fois).

Cordialement,

Romain

Bonjour,

en partant du principe que sur ta ligne 1, les données commencent en Colonne A et s'arrêtent à la Colonne "Lambda" sans cellule vide sur la plage

la dernière cellule peut se definir par

Code:

---

Worksheets("data").Range("A1").End(xlToRight)

---

donc, dans ta formule de création de la liste de validation (et pas "filtre avancé" comme tu l'indiques dans ton message), il suffit de remplacer ta dernière cellule écrite en dure, par l'adresse de la dernière cellule qu'on calcule dynamiquement

ce qui donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub toto() With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Data!$A$1:" & Worksheets("Data").Range("A1").End(xlToRight).Address .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub

---

Merci encore Joe,

Bonne journée.

Romain