Affichage dans textbox du résultatd' un combobox.

  • Initiateur de la discussion Initiateur de la discussion Benoit
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

Benoit

Guest
Bonjour à tous,

M' étant inspiré d' un exemple de mdf, j' ai fait un USF qui contient 3 combobox. Dans le 1er je choisis une ville , dans le 2eme je choisis un métier et dans le 3eme je choisis le nom. Jusque là tout fonctionne mais mon problème vient du fait que je voudrais que le N° de téléphone de la personne choisie dans le combobox3 s' inscrive dans la textbox que j' ai placé sous celui-ci. Les N° de téléphone se trouvent en colonne D de la Feuil2.
Si vous avait une idée, je suis preneur.

Merci. Benoit. [file name=test2_20050925112517.zip size=16037]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test2_20050925112517.zip[/file]
 

Pièces jointes

Salut Benoit

Je ne metrise pas bien les commandes que tu utilise alors je te propose une tout autre methode plus basic qui consiste a te deplacer dans ta feuille a la recherche du n° de tel
Ca marche mais attention au doublons dans les noms' j'ai remarqué qu'il n'y en avait pas dans ta BD

Private Sub ComboBox3_Change()
Sheets('Feuil2').Select
Range('c1').Activate
Do Until ActiveCell = ComboBox3.Value
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Loop
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
TextBox1 = ActiveCell.Value
End Sub

Tu peus peut etre ameliorer le format du TextBox1 pour recuperer les espaces entre les chiffres

A+ Franck
 
Re:Affichage dans textbox du résultatd' un combobo

Bonjour benoit, franck, everybody

Une autre proposition directement inspiré du userform de didier.

A placer, dans le module de ton USF :

Private Sub ComboBox3_Change()
Dim i As Long
Dim j As Byte, c As Byte

For i = 1 To UBound(TabTemp)
    c = 0
   
For j = 1 To 3
       
If TabTemp(i, j) = Controls('combobox' & j) Then
            c = c + 1
       
End If
       
If c = 3 Then TextBox1 = Format(TabTemp(i, 4), '0#'' ''##'' ''##'' ''##'' ''##')
   
Next j
Next i


End Sub


salut
 
Re:Affichage dans textbox du résultatd' un combobo

Bonjour ,

Merci Franck pour ta réponse. Ta solution fonctionne bien mais alors que je bataillais pour trouver le format à appliquer pour avoir des N° de téléphone dans ma textbox, je viens de découvrir le code magique d' Hervé qui résoud définitivement mon problème.

Merci à tous les deux pour votre aide.

A plus. Benoit.
 
Re:Affichage dans textbox du résultatd' un combobo

Bonjour ,

Merci Franck pour ta réponse. Ta solution fonctionne bien mais alors que je bataillais pour trouver le format à appliquer pour avoir des N° de téléphone dans ma textbox, je viens de découvrir le code magique d' Hervé qui résoud définitivement mon problème.

Merci à tous les deux pour votre aide.

A plus. Benoit.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
47
Affichages
4 K
Retour