High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Userform combobox et textbox

Dernière réponse le 5 jun 2009 à 16:28:53 definitif, le 4 jun 2009 à 16:29:25 
 Signaler ce message aux modérateurs

Bonjour,


Je suis débutante sur VBA et je cherche à mettre en page une feuille excel en utilisant userform.

J'ai créé un combobox répertoriant toutes les informations de ma liste dans la colonne A et je voudrais que lorsque quelqu'un choisi choisi un element dans la colonne A le résultat de la colonne B apparaisse dans le textbox.

Par exemple :

A B
5 mineur
9 mineur
18 Majeur


Est ce que quelqu'un peut m'aider ???? Je peux reformuler si c'est pas trés claire

Merci beaucoup

Configuration: Windows XP Internet Explorer 6.0

Meilleures réponses pour « Userform combobox et textbox » dans :
VBA : Trouver Hdc d'une feuille Excell et Userform VoirPour démontrer la façon de trouver les Hdc j'ai ajouté deux petits exemples de dessin. En cliquant sur la Feuil1 l'Userform est affiché. Mettre le pointeur sur l'UF, maintenir le bouton gauche enfoncé et déplacer la souris. En fermant l'UF la sub...
Posez votre question Répondre

1

pijaku, le 4 jun 2009 à 16:35:55

Salut,
Tu lances la recherche du résultat de ta combobox1 dans la colonne A :
Dim val as string
val = combobox1.value
Range("A1").Select ' ou A1 est la première cellule de ta liste
Do while activecell <> val
activecell.offset(1 , 0).select
loop
Et ensuite tu "importes" la valeur correspondante de la colonne B dans ton textbox1 :
textbox1.value = activecell.offset(0,1).select
ça devrait fonctionner. Ce qui vaut la peine d'être fait vaut la peine d'être bien fait.

   
Répondre à pijaku

2

definitif, le 4 jun 2009 à 16:48:11

Dsl je suis une GROSSE débutante ! :p

J'ai rentré le code sous combobox :

Private Sub ComboBox1_Change()
Dim val As String
val = ComboBox1.Value
Range("D6").Select
Do While ActiveCell <> val
ActiveCell.Offset(1, 0).Select
Loop
End Sub

puis dans mon textbox j'ai mis le code suivant :

TextBox1.Value = ActiveCell.Offset(0, 1).Select


J'ai du oublié de faire quelque chose par ce que ca marche pas !

   
Répondre à definitif

3

michel_m, le 4 jun 2009 à 16:52:54

Bonjour,

excusez d'intervenir dans cette discussion

Pijaku:

Val est un mot réservé en VBA: appelle cette variable "valeur" par ex
tu dis que valeur est du type string, t'es sûr? il faut que ca soit du m^me type que ce qu'il y a sur la feuille XL

si la liste par en A1
lig= columns(1).find(valeur,range("A65536"))
textbox1=cells(lig,2)

t'évite une boucle et la vision du déplacement de la cellule active pour l'utilisateur

Surtout, Ne prends pas mal ce que je viens de te dire, on m'a fait aussi ce genre de remarques et ca m'a fait progresser
Cordialement, Michel

   
Répondre à michel_m

4

pijaku, le 4 jun 2009 à 16:57:54

T'inquiète je sais que ma syntaxe laisse à désirer ayant appris seul avec Excel97.
Tu prends le relais pour lui indiquer ou placer ce code?
Merci encore.
Je relirais ce fil demain matin.
@+ Ce qui vaut la peine d'être fait vaut la peine d'être bien fait.

   
Répondre à pijaku

5

michel_m, le 4 jun 2009 à 17:14:29

Bah non, continue...

j'vais regarder un truc dont je suis pas sûr: type de la donnée renvoyé par le combo
je fais faire une maquette et utiliser l'espion du débogage... Cordialement, Michel

   
Répondre à michel_m

6

michel_m, le 4 jun 2009 à 17:31:06

Re,

si on fait
Private Sub ComboBox1_Click()
valeur = ComboBox1
lig = Columns(1).Find(valeur, Range("A65536")).Row
Unload UserForm1
End Sub

valeur est du type string
et ce n'est pas génant si les données en feuille XL sont des nombres
Tu avais donc raison! tu vois que... Cordialement, Michel

   
Répondre à michel_m

7

definitif, le 4 jun 2009 à 17:52:49

Merci infiniment à tous les deux !!!!

J'aimerai juste rajouter une information les résultats sur la colonne B son sous forme texte est ce que ça va changer quelque chose?

Je testerai le code demain xD

   
Répondre à definitif

8

michel_m, le 4 jun 2009 à 18:01:53

les résultats sur la colonne B son sous forme texte est ce que ça va changer quelque chose?
non Cordialement, Michel

   
Répondre à michel_m

9

definitif, le 5 jun 2009 à 13:26:18

Re,

J'ai du mal à comprendre ou est ce que je dois enregistrer le code j'ai bien essayé dans

Private Sub ComboBox1_Change()

mais ça à pas l'air de marcher ....

Un petit coup de pouce xD

   
Répondre à definitif

10

pijaku, le 5 jun 2009 à 14:03:47
  • +1

Re-
Je reviens comme promis sur le sujet.
Explications sur ce qu'a fait michel :
Private Sub ComboBox1_Click() -----> action lorsque l'on clique sur combobox
valeur = ComboBox1 -----> tout est dit, on définit le contenu du combobox comme variable
lig = Columns(1).Find(valeur, Range("A65536")).Row ----> renvoie le numéro de la ligne correspondante à la valeur cherchée
Unload UserForm1 ---->ici je ne pige pas l'utilité on unload l'userform...
End Sub

Ca fonctionne, mais ne renvoie que le numéro de ligne. Puisque tu es débutante un p'tit coup de main?
voilà :
Private Sub UserForm_Activate() 'Lors de l'activation du Userform
ActiveSheet.Range("A1").Select 'tu sélectionnes la 1ère valeur à inscrire dans ta combobox
Do While ActiveCell <> "" 'tant que la cellule est non vide
ComboBox1.AddItem ActiveCell 'tu ajoutes la valeur contenue dans la cellule à ta liste déroulante
ActiveCell.Offset(1, 0).Select ' tu sélectionnes la cellule suivante dans la colonne A
Loop 'et hop on recommence.
End Sub
ça tu l'avais fait.
Ensuite :
Private Sub ComboBox1_Change()
valeur = ComboBox1 'expliqué plus haut
lig = Columns(1).Find(valeur, Range("A65536")).Row 'expliqué plus haut
TextBox1.Value = Range("B" & lig).Value 'la valeur du textbox = valeur de la cellule B & ligne
End Sub
ça fonctionne pas trop mal.
Bon courage Ce qui vaut la peine d'être fait vaut la peine d'être bien fait.

   
Répondre à pijaku

11

 definitif, le 5 jun 2009 à 16:28:53

C'est génial merci beaucoup tu es un super prof !!!

A plus !

   
Répondre à definitif
Posez votre question Répondre
Ils ont besoin de votre aide