Modif cellules par userform

[NIKYST]

Salut à tous,

J'ai crée un userform pour retrouver une commande dans une base. Ensuite sur le meme, je veux pouvoir modifier deux paramètres et écraser les anciens. J'arrive à retrouver la bonne cellule mais lorsque j'essaie de remplacer les valeurs, Excel me sort du userform alors que je n'ai rien demandé...

Pour etre plus clair, un fichier (extrait de la base) ci joint.

Merci d'avance

Nikyst

 

[bqtr]

Re : Modif cellules par userform

Bonjour NIKYST,

Essaye comme ceci:

Private Sub CommandButton1_Click()

LIGNE = TextBox1.Value
On Error GoTo Fin

TextBox2.Value = Sheets("données").Columns("L:L").Find(What:=LIGNE).Offset(0, 12).Value
TextBox3.Value = Sheets("données").Columns("L:L").Find(What:=LIGNE).Offset(0, 9).Value
Exit Sub

Fin:
MsgBox "Valeur inconnue", vbCritical, "Erreur:"
TextBox1 = ""
TextBox1.SetFocus

End Sub

Private Sub CommandButton2_Click()
LIGNE = TextBox1.Value
Sheets("données").Columns("L:L").Find(What:=LIGNE).Offset(0, 12) = TextBox2.Value
End Sub

Private Sub CommandButton3_Click()
LIGNE = TextBox1.Value
Sheets("données").Columns("L:L").Find(What:=LIGNE).Offset(0, 9) = TextBox3.Value
End Sub

J'ai ajouté une gestion d'erreur au cas où le N° saisie dans le textbox1 n'est pas trouvé dans la base de donnée.

A+

 

[NIKYST]

Re : Modif cellules par userform

Super, merci beaucoup pour ces réponses !!!

A bientot,

Nikyst