VBA EXCEL associer combo box/ text box
Résolu/Fermé3 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
6 nov. 2008 à 11:11
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+
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
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
6 nov. 2008 à 11:12
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
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
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
6 nov. 2008 à 13:41
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
https://www.cjoint.com/
A+
Pour ma part je souhaite que plusieurs propositions te soit faite
Pour joindre un exemple avec ce lien
https://www.cjoint.com/
A+
6 nov. 2008 à 11:59
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.
6 nov. 2008 à 12:03
Michel
6 nov. 2008 à 12:07