Ouvrir un formulaire et le remplir automatiquement

[maval]

Bonjour,

J'ai sur une première feuille la carte de France, chaque Shapes a un nom représentent le département "FR-29" ect... sur une autre feuille nommer "Département" il y a; les Région, les départements, les codes postal ect...
J'aimerais que lorsque je clique sur une Shapes de la carte de france ex: Finistère ouvrir mon formulaire et le remplir automatiquement a l'aide des textbox.

je joint mon fichier exemple

 

[Paritec]

Re : Ouvrir un formulaire et le remplir automatiquement

Bonjour maval le forum

le remplir automatiquement a l'aide des textbox.

Tu veux remplir l'userform à l'aide des textboxs??
ou tu veux remplir les textbox à l'aide de la base?? enfin de la feuille Département??
a+
Papou

 

[CHALET53]

Re : Ouvrir un formulaire et le remplir automatiquement

Bonjour,

Je n'ai pas le temps d'aller jusqu'au bout
tu complètes ta procédure Sub selection (avant End sub)

dpt = Range("AD23") + 2 ' N° de ligne
UserForm1.Td1 = Sheets("Départements").Cells(dpt, 3)
UserForm1.Show


a+

 

[maval]

Re : Ouvrir un formulaire et le remplir automatiquement

Bonjour Papou

Oui en faite lorsque je clic sur un département de ma carte j'aimerai que le formulaire s'ouvre avec les textbox rempli en fonction de la feuille Département.
@+

 

[CHALET53]

Re : Ouvrir un formulaire et le remplir automatiquement

clicque sur le département 56 pour voir

 

[Paritec]

Re : Ouvrir un formulaire et le remplir automatiquement

Bonjour tous
alors voilà
a+
Papou

 

[maval]

Re : Ouvrir un formulaire et le remplir automatiquement

Re,

Merci beaucoup sa fonctionne nickel

Bon dimanche a tous