Autres Recherche Vba

[BalighTomy]

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


Userform5 oté : 12

merci d'avance

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

 

[sylvanu]

Bonjour,
Supprimez le Call devant Msgbox.
Msgbox est une instruction. Un Call est un appel à une macro.