Zone liste modifiable

[delirium]

Salut
une nouvelle question (et oui encore !!!).
Je voudrais créer un userform avec une "zone liste modifiable" qui la liste de mots dans des cellules (par exemple de A1 à A10) et qui affiche le résultat dans une cellule lié (par exemple B1).

Lorsque l'on est dans l'userform, si l'on selectionne le mot qui correspond à celui de la cellule A1, dans la cellule B2 doit s'afficher 1. Si l'on selectionne le mot qui correspond à celui de la cellule A2, dans la cellule B2 doit s'afficher 2, et ainsi de suite.

Si quelqu'un peut m'aider.

Merci

 

[Pias]

Salut delerium
Regarde dans ce fil une demo de thierry.
<http://www.excel-downloads.com/html/French/forum/messages/1_12684_12684.htm>
je espère t’avoir aidé.

Bonne nuit

Amicalement

...On se lasse de tout sauf d’apprendre !..

 

[Delirum]

Je te remerci de l'info, mais c pas la fonction que je voulais.
Je voudrais le faire avec une "Zone liste modifiable" en anglais "ComboBox".

Or dans le fil que tu m'as passer il sagit d'un "ListeBox".

 

[salim]

salut a tous
je suis nouveau sur le forum
pour répondre a ton pb tu peu utiliser la propriété listfillrange et linked cell
listfillrange=cellules a1:a10 et linked cell b1
en espérant t'avoir aider salim

 

[delirium]

merci de t'on aide, mais je ne trouve pas le code exacte pour que sa marche (je suis totalemnt débutant en VBA, et c'est pas facile).

 

[salim]

tiens essaie d'améliorer ce programme je suis aussi débutant c'est tout ce que je puisse faire dans l'immediat ça marche mais l'index est décalé qud tu clic 1 ça donne 0 et 2 donne 1 j'espère que ça va te mettre sur le voie

 

[salim]

pardonnez moi la manière un peu brutale de présenter mon aide mais j'étais en plein match suede italie j'espère que le fichier s'ouvrira je n'est jamais join de fichier

 

[delirium]

les pièces jointes ne fonctionne paspour le moment.
Peut tu m'envoyé ton fichier sur mon mail "eco-logique@9online.fr"

 

[salim]

bonsoir le fichier t'as été envoyé j'espère qu'il est bien arrivé tiens moi au courant
si non je t'écris le code tu pourra essayer
option explicit
dim derlign as integer
dim plagelist as string
dim varselect as integer

private sub Userform _ Initialize()
derlign=sheets("feuil1").range("a65536").end(xlup).row
plagelist=sheets("feuil1").range("a1:a"&derlign).address
combobox1.rowsource"feuil1!"&plagelist
end sub

private sub combobox1 _ change()
varselect=userform1.combobox1.listindex
shhets("feuil1").range("b2").value=combobox1.listindex+1

tiens moi au courant bon courage

 

[salim]

end sub
j'oublié a la fin du dernier code "listindex+1"

 

[Delirum]

Je te remerci Salim pour ce code