1 pièce(s) jointe(s)
Changer la valeur de combobox et textbox à partir d'une combobox
Bonjour,
Pouvez vous m'aider s'il vous plaît?
Je rencontre quelques difficultés, dans le cadre d'un formulaire de recherche.
En effet, j'aimerais qu'à partir des infos taper manuellement dans une combobox que les autres combobox et textbox s'actualise.
Sachant que ceci doit pouvoir changer à partir de 4 combobox
Pièce jointe 167619
J'ai fait ce qui suit:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Private Sub ComboBox1_Change()
Dim ligne As Long
Dim k As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
With ligne = Me.ComboBox1.ListIndex + 6
ComboBox2 = Ws.Cells(ligne, "E")
ComboBox3 = Ws.Cells(ligne, "F")
ComboBox4 = Ws.Cells(ligne, "I")
For k = 1 To 7
Me.Controls("TextBox" & k) = Ws.Cells(ligne, k + 3)
civilité = Ws.Cells(ligne, "C")
Prénom = Ws.Cells(ligne, "D")
Adresse = Ws.Cells(ligne, "G")
Commune = Ws.Cells(ligne, "H")
Date_naissance = Ws.Cells(ligne, "K")
Next k
End Sub |
Dans le cadre du même procéder, j'ai effectué la même chose juste en personnalisant pour chaque combobox:
Code:
1
2
| Private Sub ComboBox2_Change()
......................................etc |
Code:
1
2
| Private Sub ComboBox3_Change()
..................................... |
Code:
1
2
| Private Sub ComboBox4_Change()
............................................... |
