zone déroulante VBA

Bonjour

j'aurais besoin de vos lumières !!!!!


voilà je vais être bref et explicit je l'espère :)

j'ai une liste d'élément sur un classeur A

ex :
( classeur A)
A B
1 livre Blanc
2 pomme jaune
3 poire verte
4 cerise rouge
5 caramel bruin


dans une autre classeur ( B) je désire créer une liste déroulante appelant
les éléments de la colonne A dans la cellule A1. jusque là je pense que cela ne devrait pas poser de problème.

Ensuite je désire lorsque je sélectionne un élément de la liste déroulante (classeur B cellule A1)que je puisse afficher aussi dans mon classeur B cellule B1 l'élément correspond de la même ligne du classeur A

soit : si je sélectionne poire que Verte s'inscrive dans le classeur B dans la cellule B1.

Je débute et recherche le code vba d'une tel apllication.

Voilà en vous remerciant d'avance

Bonjour,

Bien sûr c'est faisable avec quelques lignes de code en VBA.

A priori je pense que vous simplifiez pour l'instant votre problème, car sinon je ne vois pas l'utilité d'une procédure VBA pour ce cas qui devrait se solutionner très simplement par une formule Excel.

voilà

je vous écoute !! auriez vous besoin de mon fichier de départ en voici les annexe. a placer dans la racine C:/

TTOtos.xlsest le fichier de départ en l'ouvrant dans le cadre en haut à droite se trouve la liste déroulante qui fait appel au fichier contactbiorem.xls qui doit s'être ouvert en même temps. mon but est d'inscriptles réference de l'élément sélectionné dans la zone déroulante et de pouvoir écrire par exemple le numéros de fax y correspondant

en vous remerciant d'avance

Bonjour,

Ci-joint votre fichier modifié (j'ai également modifié le nom pour que vous puissiez faire des essais).

Regardez si cela vous convient.

bonjour et merci pour votre application

il est vrai que cette fonction de sélectionner est très intuitive mais lorsque je sélectionne un nom pour la première fois tout s'affiche normalement. hors lorsque je sélectionne un deuxième nom il y a un confilt dans le module affi_clic que vous avez créé.

merci à vous

Bonjour Jstas,

Vous modifiez la procédure suivante :

Code:

---

1 2 3 4 5 6 7

Sub Affect_cli() Set ws = Workbooks("ContactsBiorem.xls").Worksheets("Feuil1") adr = ws.Cells(lng + 2, 10) vil = ws.Cells(lng + 2, 11) & " " & ws.Cells(lng + 2, 12) fax = ws.Cells(lng + 2, 8) Set ws = Nothing End Sub

---