Facture + développeur
HTML-код
- Опубликовано: 14 дек 2024
- MÀJ ARTICLES
Private Sub ComboBox1_Change()
Position = ComboBox1.ListIndex
TextBox1.Value = Feuil1.Cells(Position + 2, 3)
End Sub
Private Sub CommandButton1_Click()
Position = ComboBox1.ListIndex
Feuil1.Cells(Position + 2, 3) = TextBox2.Value
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
ligne = 2
Do While Feuil1.Cells(ligne, 2) inférieur supérieur ""
ComboBox1.AddItem (Feuil1.Cells(ligne, 2))
ligne = ligne + 1
Loop
End Sub
________
NB : replacer inférieur et supérieur par les symboles
MÀJ CLIENTS
Private Sub ComboBox1_Change()
Position = ComboBox1.ListIndex + 2
TextBox1.Value = Feuil3.Cells(Position, 2)
TextBox2.Value = Feuil3.Cells(Position, 3)
TextBox3.Value = Feuil3.Cells(Position, 4)
ListBox1.Value = Feuil3.Cells(Position, 5)
End Sub
Private Sub CommandButton1_Click()
Position = ComboBox1.ListIndex + 2
Feuil3.Cells(Position, 2) = TextBox1.Value
Feuil3.Cells(Position, 3) = TextBox2.Value
Feuil3.Cells(Position, 4) = TextBox3.Value
Feuil3.Cells(Position, 5) = ListBox1.Value
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub Label8_Click()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub UserForm_Activate()
ListBox1.AddItem "Grossiste"
ListBox1.AddItem "Détaillant"
'
Feuil3.Select
ligne = 2
Do While Feuil3.Cells(ligne, 1) inférieur supérieur ""
ComboBox1.AddItem (Feuil3.Cells(ligne, 1))
ligne = ligne + 1
Loop
End Sub