Discussion :

[ANTHOTJ]

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


J'ai fait ce qui suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub ComboBox2_Change()
......................................etc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub ComboBox3_Change()
.....................................

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub ComboBox4_Change()
...............................................