Posez votre question Signaler

VBA EXCEL associer combo box/ text box [Résolu]

madnob - Dernière réponse le 6 nov. 2008 à 14:15
Bonjour,
Je suis actuellement en train de dévelloper un utilitaire simple sur VBA/Excel.
J'ai une combo box qui permet de rechercher le nom d'un client, à partir d'une base de donnée (crée sur un tableur Excel). Une fois, le client sélectionné, je voudrais que son adresse, code postal et ville, s'inscrivent automatiquement dans les text box correspondantes..mais je n'y arrive pas.comment faire? quelle programmation?
Merci d'avance.
Lire la suite 

VBA EXCEL associer combo box/ text box »

7 réponses
Réponse
+0
moins plus
Mike-31 7441Messages postés 17 février 2008Date d'inscription 1 juin 2012Dernière intervention 6 nov. 2008 à 11:11
Salut,

Colonne A tu as Nom Client, en B Adresse qui correspond à Cells(Lgn, 2) de ton code, en C CodePostal qui correspond à Cells(Lgn, 3) de ton code et en D Ville qui correspond à Cells(Lgn, 4) de ton code

Nommes tes texbox Adresse, CodePostal et Ville

Private Sub ComboBox1_Change()
Dim Lgn&
Lgn = ComboBox1.ListIndex + 1

With Tableau
Adresse.Value = .Cells(Lgn, 2)
CodePostal.Value = .Cells(Lgn, 3)
Ville.Value = .Cells(Lgn, 4)
End With
End Sub

A+

 Ajouter un commentaire
madnob - 6 nov. 2008 à 11:59
Adresse.Value = .Cells(Lgn, 2)

il m'indique une erreur sur cette ligne.j'ai bien nommé mes text box. peut etre est ce la cellule qu'il ne reconnait pas?
J'ai bien le nom en colonne A, l'adresse en colonne B, le code postal en C et la ville en D.
michel_m- 6 nov. 2008 à 12:03
Excuses moi de t'avoir dérangé en voulant t'aider

Michel
madnob - 6 nov. 2008 à 12:07
en fait, je n'ai pas compris ce que tu as voulu expliquer!
Ajouter un commentaire
Réponse
+0
moins plus
michel_m 7330Messages postés 2 janvier 2008Date d'inscription 30 mai 2012Dernière intervention 6 nov. 2008 à 11:12
Bonjour,

La fonction "FIND" peut te fournir la ligne où se trouve la valeur cherchée (ici, col A) du style:
lig=Columns(1).Find(lavaleur,range("A1")).row
en supposant que la ligne 1 comporte les étiquettes de champs. Si pas d'étiquette range("A65536") pouR XL<2007
ensuite
tontextbox=cells(Lig,X)
X etant la colonne de la donnée coprrespondante cherchée

Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Mike-31 7441Messages postés 17 février 2008Date d'inscription 1 juin 2012Dernière intervention 6 nov. 2008 à 13:41
Le plus simple, est que tu nous mettes une copie du fichier s'il ne comporte pas de notes confidentielles afin que l'un d'entre nous puisse cerner ton problème et te réponde et éviter tout mal entendu.
Pour ma part je souhaite que plusieurs propositions te soit faite

Pour joindre un exemple avec ce lien

http://www.cjoint.com/

A+

 Ajouter un commentaire
madnob - 6 nov. 2008 à 14:15
problème résolu!
merci!
Ajouter un commentaire
Posez votre question
Ce document intitulé « VBA EXCEL associer combo box/ text box » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?