validation donnée changées

bonjour je cherche toujours la validation de données qui pourrai être changer dans le texbox avec l'usage du ScrollBar2 qui me permet de visualiser mais pas d ecrire la nouvelle valeur modifier j'ai ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ScrollBar2_Change() ScrollBar1.Max = Sheets("Bilan").Range("c65000").End(xlUp).Row   Date_du_jour.Value = Range("c" & ScrollBar2.Value).Value ComboBoxdepenses.Value = Range("d" & ScrollBar2.Value).Value TextBox_Libellé.Value = Range("f" & ScrollBar2.Value).Value TextBoxdepenses.Value = Range("i" & ScrollBar2.Value).Value TextBox9.Value = Range("k" & ScrollBar2.Value).Value TextBox10.Value = Range("l" & ScrollBar2.Value).Value End Sub

---

svp donner moi un exemple avec bouton pour valider

Bonjour,

Tu crée le bouton de commande " Modifier "
Et tu adaptes ton code

Code:

---

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

Dim Ligne As Long Private Sub Modifier_Click() Range("c" & Ligne).Value = Date_du_jour.Value Range("d" & Ligne).Value = ComboBoxdepenses.Value Range("f" & Ligne).Value = TextBox_Libellé.Value Range("i" & Ligne).Value = TextBoxdepenses.Value Range("k" & Ligne).Value = TextBox9.Value Range("l" & Ligne).Value = TextBox10.Value End Sub Private Sub ScrollBar2_Change() ScrollBar2.Max = Sheets("Bilan").Range("c65000").End(xlUp).Row Ligne = ScrollBar2.Value Date_du_jour.Value = Range("c" & Ligne).Value ComboBoxdepenses.Value = Range("d" & Ligne).Value TextBox_Libellé.Value = Range("f" & Ligne).Value TextBoxdepenses.Value = Range("i" & Ligne).Value TextBox9.Value = Range("k" & Ligne).Value TextBox10.Value = Range("l" & Ligne).Value End Sub

---

Cordialement.

une merveille depuis le temps que je cherche merci beaucoup

:ccool: