Autres Recherche Vba

BalighTomy

XLDnaute Nouveau
Bonjour
bref lorsque j’exécute le teste il m'affiche que msgbox


Userform5 oté : 12

merci d'avance
VB:
Private Sub txtrecherche_Change()
On Error GoTo SALAH
If Me.txtrecherche.Value = "" Then
Me.Lbrecherche.Visible = True
On Error Resume Next
Me.TableDonnées.RowSource = Sheets("Sheet13").Range("Données").Address(External:=True)

Else
Me.Lbrecherche.Visible = False

Sheets("Sheet13").Range("S17").Value = "*" & Me.txtrecherche.Value
Sheets("Sheet13").Rang("tableau[#all]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Sheets("Sheet13").Range("S16:S17"), CopyToRange:=Sheets("Sheet13").Range("U17:AB17"), Unique:=False
Me.TableDonnées.RowSource = ActiveSheet.Range("Données2").Address(External:=True)
End If
Exit Sub
SALAH:
Call MsgBox("Désolé, données introuvables", vbInformation, "tatata")
End Sub
 

Pièces jointes

  • testRechercv.xlsm
    727.7 KB · Affichages: 2