Modif apres recherche VBA

[africanism]

Bonjour a tous.
je vous demande votre aide car je ne suis pas un pro vb et je cherche a faire une modif dans une feuille excel apres une recherche userform.

Je m'explique j'ai une feuille bon_cadeau dans cette feuille j'ai plusieur information qui vont de la colonne A > G

j'ai un userform dans lequel j'ai plusieur textbox .

j'ai un textbox n°bon dans lequel j'inscrit le numero de bon et quand je clic sur recherche il m'inscrit les données dans les textbox adequat. jusque la tout va bien.

ma question j'ai un textbox7 (effectuer) dans lequel je voudrais inscrire (oui ou non)avec en dessous un bouton modifier (CommandButton2) et qu'il ajoute en plus (oui ou non )au bon qui a ete recherché .

est possible .

j'espere m'ettre bien explique.

voici mon code userform.

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

 

[Pierrot93]

Re : Modif apres recherche VBA

Bonjour,

petite remarque au passage, plutôt qu'une boucle, perso j'utiliserais la méthode "find", sera d'une exécution plus rapide sur un nombre emportant de données...

bon après midi
@+