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

Комментарии •