Modification par useform d'une feuille excel

Bonjour,

Quelqu'un peu m'aider a réaliser un userForm pour modifier des cellules.

Pièce jointe 138168

Pièce jointe 138169
Mon but est quand on tape le numéro ID (colonne A de la feuille "Donnée Saisie") le reste ce remplis automatiquement pour faire une modification puis validé les modification.

Merci d'avance

Bonjour,
Je te conseille avant tout la lecture de ces tutoriels de Silkyroad :
Utiliser les UserForm en VBA Excel
Utiliser les contrôles dans un UserForm, en VBA Excel

Merci, ceci m'aide a comprendre un peu le VBA, mais j'arrive pas a faire mon formulaire de modication :( mais j'y travail !!

Bonjour, voici un debut de reponse.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub rechercher_Click() Dim Saisie As Range Dim r As Integer 'recherche la valeur de textbox9 dans la colonne A Set Saisie = Columns(1).Find(textbox9.Value, LookIn:=xlValues) 'si une valeur equivalente est trouvée, on note la reference de la ligne(r) If Not Saisie Is Nothing Then r = Saisie.Row 'puis on charge les différents contrôle dans le userform combobox1.Value = Range("b" & r).Value combobox2.Value = Range("c" & r).Value 'etc... Else 'traitement si la valeur saisie n'ait as trouvé End If   End Sub

---

Grand merci Keygen08

Voici mon code fini:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Private Sub CommandButton5_Click() On Error GoTo ErrorHandler Dim Saisie As Range Dim r As Integer 'recherche la valeur de textbox9 dans la colonne A Set Saisie = Columns(1).Find(TextBox9.Value, LookIn:=xlValues) 'si une valeur equivalente est trouvée, on note la reference de la ligne(r) If Not Saisie Is Nothing Then r = Saisie.Row 'puis on charge les différents contrôle dans le userform ComboBox1.Value = Range("b" & r).Value ComboBox2.Value = Range("c" & r).Value CheckBox1.Value = Range("d" & r).Value CheckBox2.Value = Range("e" & r).Value CheckBox3.Value = Range("f" & r).Value CheckBox4.Value = Range("g" & r).Value CheckBox5.Value = Range("h" & r).Value CheckBox6.Value = Range("i" & r).Value CheckBox7.Value = Range("j" & r).Value CheckBox8.Value = Range("k" & r).Value CheckBox9.Value = Range("l" & r).Value CheckBox10.Value = Range("m" & r).Value TextBox3.Value = Range("n" & r).Value CheckBox11.Value = Range("o" & r).Value CheckBox12.Value = Range("p" & r).Value CheckBox13.Value = Range("q" & r).Value TextBox8.Value = Range("r" & r).Value CheckBox14.Value = Range("s" & r).Value CheckBox15.Value = Range("t" & r).Value TextBox4.Value = Range("u" & r).Value TextBox5.Value = Range("v" & r).Value TextBox6.Value = Range("w" & r).Value TextBox7.Value = Range("x" & r).Value     Exit Sub ErrorHandler: MsgBox ("Attention! Saisie non trouvé !!")   End Sub

---