combobox et textbox

marmotte · 29 Juin 2003

bonjour le forum

je sais que ma question vas vous paraitre simple mais je bloque depuis ce matin

je desire avoir dans un combobox une liste deroulante modifable de la colonne A et suite a ce clic de la combobox que dans mon userform soit indiqué dans le textbox le texte correspondant dans la colonne B

j'ai essayé avec plusieurs modeles depuis ce matin et ca marche pas donc j'aimerais qu'une personne gentille (il y en a bcp ici) explique en detail comment faire
je me souvient que thierry avait fait une tres bonne explication sur un userform donc si quelqu'un prenait un peu de temps pour faire de meme avec ce que je demande ce serait tres sympa
j'ai remis le lien de la demo de thierry
http://www.excel-downloads.com/html/French/forum/download.php?finfo=1,28771,2546/USF-Rudiments-Basic.zip

bon dimanche a vous et merci d'avance

marmotte

et longue vie a ce forum il est genial

Vériland · 29 Juin 2003

Bonsoir Marmotte,

C'est vrai qu'on est gentil sur ce forum...lool...alors comme tu l'est également, je te joins la réponse dans le fichier joint...

Donc en résumé, selon la selection de la Combo s'affichera dans la Textbox, le texte (ici un mot) correspondant à la donnée située dans la colonne B...

enfin...pas de blabla...va voir le fichier c'est plus concret...loool

marmotte · 29 Juin 2003

re bonsoir
la mi-temps du match

merci d'avoir repondu aussi vite
je vais essayer dans mon fichier la c'est clair donc je devrais y arrivé

si j'ai un probleme je sais ou m'adresser

a plus
marmotte

marmotte · 30 Juin 2003

plantage du code

je plante losque je valide mes donnees mais la je bloque
je vous joint mon fichier

merci d'avance
marmotte

ZON · 30 Juin 2003

Re: plantage du code

Bonsoir Marmotte,

dans ta procédure Private Sub CommandButton1_Click() tu vides ta combo, normal que l'évenment change s'exécute...

A+++

Rv_Mikey · 30 Juin 2003

Bonsoir à toutes et tous,

Voilà Marmotte à quoi doit ressembler ton code de combo pour que ca fonctionne.
Ici ca fonctionne, a chaque validation les trois s'efface.

Private Sub combocode_change()
Dim code As Integer

If UserForm1.Combocode.ListIndex = -1 Then
Exit Sub
End If
code = UserForm1.Combocode.ListIndex + 1
Textnom = Sheets("mouvement").Range("c" & code).Value

End Sub

salut et bon courage.....

combobox et textbox

marmotte

Guest

Vériland

Guest

Pièces jointes

marmotte

Guest

marmotte

Guest

Pièces jointes

ZON

Guest

Rv_Mikey

Guest

Discussions similaires