XL 2013 Extraction de donnée vers un nouveau fichier Excel

[jbsushi]

Bonjour,

J'ai un tableau avec des informations sur des clients.
J'aimerais pouvoir faire une extraction des informations pour un client voulu et faire en sorte de le faire apparaître sur un autre fichier excel.
Etant novice en programmation VBA, je fais appel à votre aide !

Voici mon tableau :




Grâce au bouton "Tri", un Userform apparaît et me permet de sélectionner le client grâce à une Combobox (ComboBox1) et un bouton permet de le valider (CommandButton1).

Pourriez vous m'aider à réaliser le code me permettant de trier la plage de donnée pour le client voulu dans la combobox et de "re-créer" le tableau avec ces informations ?

Je reste à votre disposition pour toutes questions, merci d'avance !!

Ps: Aidez le padawan que je suis ou je sombrerais dans le coté obscur de la force ! Mouhahahaha

Jbsushi

 

[thebenoit59]

Re : Extraction de donnée vers un nouveau fichier Excel

Si tu as ce genre de cellules, c'est plus embêtant.
En effet quand ça va chercher les cellules contenant AXEAU ça remplacera également ce contenu.

Ce que je te conseille, c'est de lister les fournisseurs et ensuite de faire une ligne par fournisseur.

Exemple avec DGM INEO AXEAU:

If Cell.Value = "DGM" & Chr(10) & "INEO" & Chr(10) & "AXEAU" Then Cell.Value = "DGM INEO AXEAU"

Chr(10) correspondant à un renvoi à la ligne

Pour DGM CIAT

If Cell.Value = "DGM" & Chr(10) & "CIAT"" Then Cell.Value = "DGM CIAT"

 

[jbsushi]

Re : Extraction de donnée vers un nouveau fichier Excel

D'accord, je vais tester ça ce weekend, je reviens vers toi lundi en cas de besoin !

Encore merci, c'est vraiment génial l'aide que tu m'apporte !

 

[jbsushi]

Re : Extraction de donnée vers un nouveau fichier Excel

Bonjour Benoit !
J'espère que ton weekend a été bon !

Je remets le nez dans le code de bon matin, je n'ai pas trouvé la motivation Dimanche :'(
Il y a un petit soucis avec ton code, apparemment une erreur de de compilation sur:

If Cell.Value = "DGM" & Chr(10) & "CIAT"" Then Cell.Value = "DGM CIAT"

et

If Cell.Value = "DGM" & Chr(10) & "INEO" & Chr(10) & "AXEAU" Then Cell.Value = "DGM INEO AXEAU"

Le message d'erreur indique : "Erreur de compilation: Attendu: Then ou GoTo"
Et mets en valeur le DGM apres le Cell.Value.

J'essaye de bidouiller pour que ça marche mais je n'arrive pas à trouver :/

Merci d'avance !

 

[thebenoit59]

Re : Extraction de donnée vers un nouveau fichier Excel

Sur la première ligne j'ai mis

"CIAT"" Then

Au lieu de

"CIAT" Then

 

[jbsushi]

Re : Extraction de donnée vers un nouveau fichier Excel

Merde je suis aveugle, je l'avais même pas vu >.<
J'me sens vraiment bête d'avoir demandé de l'aide pour ça :/

 

[thebenoit59]

Re : Extraction de donnée vers un nouveau fichier Excel

Tu me diras si tout fonctionne

 

[jbsushi]

Re : Extraction de donnée vers un nouveau fichier Excel

J'ai 50 lignes à faire, je les finis et je te dis ça

 

[jbsushi]

Re : Extraction de donnée vers un nouveau fichier Excel

Dit moi, peut-on parler par Email ?
Ça me permettrais de te mettre le fichier source que j'utilise, ca sera plus simple pour nous deux et moi ça m'évite de mettre des documents du travail sur le réseau ( même si non confidentiel ^^