Discussion :

[pilounet54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gFZT82]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pilounet54]

une merveille depuis le temps que je cherche merci beaucoup