Bonjour,
merci d'avance de prendre le temps de lire ma demande.
voilà j'ai créé un userform dans lequel j'aimerai faire une recherche sur 4 critères combobox :
nom, libelle, entite, ....
le soucis que je rencontre est que je n'arrive pas à faire une recherche sur 4 critères, afin que les données qui y sont rattachées remontent dans les textbox concernées.
de plus lorsque je saisie les données dans les textbox et que je valides cela rempli la ligne E1441 et non celle que je souhaites comme la E3 (bien précisée dans le textbox).
exemple de mon VBA recherche :
Private Sub CmdFindInter_Click()
Dim i As Integer, Ctrl As Control, Trouve As Boolean
'#### Une DM existante a-t-elle été sélectionnée
Trouve = False
If pilot.ListIndex <> -1 Then
If silot.ListIndex <> -1 Then
If libelle.ListIndex <> -1 Then
If buconcernee.ListIndex <> -1 Then
'#### Recherche de la ligne de la DM existante
For i = LigneInseree To DerniereLigne
If Trim(Sheets("BDD").Range("A" & i)) = Trim(pilot.Value) Then
Trouve = True
Exit For
End If
Next i
If Not Trouve Then
'#### Recablage des contrôles vers la bonne ligne si elle existe ou LigneInseree par défaut
For Each Ctrl In Me.Controls
Select Case TypeName(Ctrl)
Case "ComboBox", "TextBox"
If UCase(Ctrl.ControlSource) Like "BDD!*" Then
Ctrl.Enabled = True
Ctrl.ControlSource = Left(Ctrl.ControlSource, 5) & i
End If
Case Else
'Debug.Print TypeName(Ctrl)
End Select
Next
End If
End If
End If
End If
End If
End Sub