soucis recherche multi critères dans userform

  • Initiateur de la discussion Initiateur de la discussion xadocle
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

xadocle

XLDnaute Nouveau
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
 
Re : soucis recherche multi critères dans userform

Bonjour,

merci beaucoup de votre aide, je rencontre cela dit encore un petit soucis :
les données que j'ai saisies (en onglet bdd) ne sont pas toutes renseignées il y à au moins 3800 lignes, c'est pour cela que j'étais parti sur un "CmdFindInter".

les données saisies ne s'incrémentent pas dans les bonnes colonnes dans l'onglet BDD.

merci beaucoup de votre aide, vue que je suis débutant.

cdt,
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
271
Réponses
5
Affichages
712
Retour