VBA EXCEL associer combo box/ text box Résolu/Fermé

Question

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.

Mike-31 · Answer

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+

michel_m · Answer

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

Mike-31 · Answer

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

https://www.cjoint.com/

A+

VBA EXCEL associer combo box/ text box

3 réponses

Discussions similaires