Recherche Via textbox multiples

Bonjour,

Je souhaite faire une recherche via un Userform qui contient 3 textbox.

Si une seule textbox est renseignée, la recherche se fait sur celle-ci, si plusieurs sont renseignées, la recherche se fait sur celles-ci.

Avec en résultat le contenu des colonne D et E correspondants dans un autre Userform (où je pourrais apporter d'autres infos).

Pouvez-vous m'aider ?

Merci d'avance

Salut Paulox,

premier jet rapide!

Pas encore de recherche axée sur les 3 TextBox... Pas vraiment le temps... Ce soir...

Plutôt axé le travail sur les contrôles et la structure du code...

Public Sub REC(ByVal iIdx%)
'
Dim iRow%
'
On Error Resume Next
With Worksheets("Base")
    iRow = .Columns(iIdx).Find(what:=IIf(iIdx < 3, CInt(Me.Controls("txtREC" & iIdx).Text), Me.Controls("txtREC" & iIdx).Text), _
            lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlNext).Row
    If iRow > 0 Then
        For x = 1 To 4
            Me.Controls("txtIN" & x).Text = .Cells(iRow, IIf(x < 4, x, x + 1))
        Next
        Me.Controls("Opt" & Asc(Left(.Cells(iRow, 4), 1)) - 64).Value = 1
        Me.MultiPage1.Value = 0
    Else
        MsgBox "Pas de correspondance !", vbCritical + vbOKOnly, "Recherche"
    End If
End With
On Error GoTo 0
'
End Sub

A+

Bonjour,

Déjà une super approche, ça m'ouvre un peu l'esprit

Il faudrait par contre que le résultat soit dans un autre Userform (que je n'ai pas créé mais un truc tout simple où je pourrais entrer une date2 (date du jour par défaut) (pour renseigner la colonne F) et un bouton valider) et non dans celui de la saisie.

Tu as repris l'ensemble du code, ça fait un sacré ménage par rapport à avant Par contre la saisie ne fonctionne plus maintenant

J'ai créé un autre sujet sur le même fichier (mais pas le même type de question, c'est pour ça que j'en ai fait un autre) :

https://forum.excel-pratique.com/viewtopic.php?f=2&t=133615

Au cas où tu aurais un peu de temps pour t'y pencher un peu

Merci beaucoup pour ton aide