Bonjour le forum,
Je tente de créer un code qui doit servir à modifier les données d'un tableau via un USF avec des TextBox.
Les TextBox de cet USF se remplissent à l'aide d'une sélection d'un combobox.
Seulement lorsque que je clique sur mon bouton après un changement, la TextBox changée garde bien la valeur, mais rien ne change dans le tableau.
Voici le code :
Private Sub Bouton1_Click()
Dim Vnum_ligne As Long
Vnum_ligne = 2
Worksheets('Feuil1').Select
If Range('A' & Vnum_ligne).Value = TextBox1.Value Then
Range('B' & Vnum_ligne).Value = TextBox2.Value
Range('C' & Vnum_ligne).Value = Format(TextBox3.Value, 'MM/DD/YYYY')
Range('D' & Vnum_ligne).Value = TextBox4.Value
Range('E' & Vnum_ligne).Value = TextBox5.Value
Range('F' & Vnum_ligne).Value = Format(TextBox6.Value, 'MM/DD/YYYY')
Range('G' & Vnum_ligne).Value = Format(TextBox7.Value, 'MM/DD/YYYY')
Range('H' & Vnum_ligne).Value = TextBox8.Value
Range('I' & Vnum_ligne).Value = TextBox9.Value
End If
End Sub
Merci de votre aide.
A+
Marc
Je tente de créer un code qui doit servir à modifier les données d'un tableau via un USF avec des TextBox.
Les TextBox de cet USF se remplissent à l'aide d'une sélection d'un combobox.
Seulement lorsque que je clique sur mon bouton après un changement, la TextBox changée garde bien la valeur, mais rien ne change dans le tableau.
Voici le code :
Private Sub Bouton1_Click()
Dim Vnum_ligne As Long
Vnum_ligne = 2
Worksheets('Feuil1').Select
If Range('A' & Vnum_ligne).Value = TextBox1.Value Then
Range('B' & Vnum_ligne).Value = TextBox2.Value
Range('C' & Vnum_ligne).Value = Format(TextBox3.Value, 'MM/DD/YYYY')
Range('D' & Vnum_ligne).Value = TextBox4.Value
Range('E' & Vnum_ligne).Value = TextBox5.Value
Range('F' & Vnum_ligne).Value = Format(TextBox6.Value, 'MM/DD/YYYY')
Range('G' & Vnum_ligne).Value = Format(TextBox7.Value, 'MM/DD/YYYY')
Range('H' & Vnum_ligne).Value = TextBox8.Value
Range('I' & Vnum_ligne).Value = TextBox9.Value
End If
End Sub
Merci de votre aide.
A+
Marc