Modif apres recherche VBA

Private Sub CommandButton1_Click()
If UserForm4.TextBox6.Text = "" Then
GoTo Erreur
End If
' Recherche de la donnée puis selection de la ligne si donnée trouvée

Dim x As Long
Sheets("Bon_cadeau").Activate
' On recherche dans la Ligne 1 colonne A, si la case contient la même valeur que notre champ de recherche
For x = 1 To Range("F65535").End(xlUp).Row
If UCase(Range("F" & x)) Like "*" & UCase(UserForm4.TextBox6.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

UserForm4.TextBox1.Value = Sheets("Bon_cadeau").Cells(LigneActive, "A").Value
UserForm4.TextBox2.Value = Sheets("Bon_cadeau").Cells(LigneActive, "C").Value
UserForm4.TextBox3.Value = Sheets("Bon_cadeau").Cells(LigneActive, "D").Value
UserForm4.TextBox5.Value = Sheets("Bon_cadeau").Cells(LigneActive, "E").Value
Exit Sub

' Message d'erreur

Erreur: MsgBox ("Requête non trouvée et/ou Accents non acceptés !")
Sheets("Bon_cadeau").Activate
Exit Sub

End Sub

Private Sub CommandButton2_Click()
Sheets("Bon_cadeau").Cells(LigneActive, "G").Value = UserForm4.TextBox7.Value
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox6_Change()

End Sub

Private Sub UserForm_Activate()

End Sub

Private Sub Label1_Click()

End Sub

Cliquez pour agrandir...