Vider toutes les textbox dans l'userform

Bonour Forum,

La question bête du jour

Ci-dessous le Code :

Ce code me permet via la TextBox d'un Userform d'effectuer une recherche et d'afficher les résultats trouvés dans toutes les TextBox de l'Userform. Mais je ne parviens pas à rafraîchir l'ensemble des TextBox lors d'une nouvelle recherche ou bien si celle-ci n'a pas été fructueuse (voir le code en bas).

Private Sub Button_Rechercher_Click()

' Si rien dans le champ de saisie

If UserForm2.Désignation.Text = "" Then

MsgBox "Vous devez saisir une Recherche"

End If

' Recherche de la donnée puis selection de la ligne si donnée trouvée

Dim x As Long

ActiveSheet.Activate

' On recherche dans la Ligne 1 colonne A, si la case contient la même valeur que notre champ de recherche

For x = 4 To Range("A65535").End(xlUp).Row

If UCase(Range("A" & x)) Like "*" & UCase(UserForm2.Désignation.Value) & "*" Then

' Si on a trouvé on va à "Trouve"

GoTo Trouve

Exit For

End If

' Sinon on passe à la ligne suivante

Next x

' Si on ne trouve rien, on va à "Erreur"

GoTo Erreur

Exit Sub

' Recherche trouvée, on retrouve notre programme pour charger le formulaire

Trouve: LigneActive = x

UserForm2.Désignation.Value = ActiveSheet.Cells(LigneActive, "A").Value

UserForm2.Entrée.Value = ActiveSheet.Cells(LigneActive, "D").Value

UserForm2.Puht.Value = ActiveSheet.Cells(LigneActive, "E").Value

UserForm2.Pvte.Value = ActiveSheet.Cells(LigneActive, "G").Value

UserForm2.Dlc.Value = ActiveSheet.Cells(LigneActive, "J").Value

UserForm2.TextBox_Stock.Value = ActiveSheet.Cells(LigneActive, "F").Value

UserForm2.TextBox_Etat.Value = ActiveSheet.Cells(LigneActive, "I").Value

UserForm2.TextBox_Sortie.Value = ActiveSheet.Cells(LigneActive, "H").Value

Exit Sub

' Message d'erreur

Erreur: MsgBox ("Requête non trouvée !"), vbRetryCancel

'Décharge nouvelle recherche'

If Response = vbRetry Then

Désignation.text = "" ne décharge pas mon Textbox ?

Me.Désignation=""non plus ?

TextBox.Désignation =""non plus ?

End If

End Sub

Ooops !

J'ai trouvé ....

Faut corriger If Response = vbRetry Then

par If Response = Retry Then