Microsoft 365 Incrémentation de ligne via bouton

fanch55 à dit:

VB:

Sub Ajouter()
Dim Form As Worksheet: Set Form = Sheets("Formulaire")
Dim Base As Worksheet: Set Base = Sheets("BDD")
Dim Rng As Range

    ' On se positionne sur la ligne du produit dans la base
    ' pour en récupérer la référence et le prix
    Set Rng = Base.Columns(3).Find(Form.[D2])
   
    If Not Rng Is Nothing Then ' devrait normalement toujours être vrai
        Lib = Rng
        Ref = Base.Range("A" & Rng.Row)
        Spx = Base.Range("AH" & Rng.Row)
       ' On travaille la table Camion
        Set Rng = [Camion[fk_product]].Find(Ref)
        If Rng Is Nothing Then ' Ajout d'une nouvelle ligne
            [Camion].ListObject.ListRows.Add AlwaysInsert:=True
            Row = [Camion].ListObject.ListRows.Count
            [Camion[fk_product]].Rows(Row) = Ref
            [Camion[lavel]].Rows(Row) = Lib
            [Camion[qty]].Rows(Row) = Form.[F8]
            [Camion[subprice]].Rows(Row) = Spx
        Else ' ligne existante: on ajoute la quantité
            Row = Rng.Row - [Camion[#Headers]].Row
            [Camion[qty]].Rows(Row) = [Camion[qty]].Rows(Row) + Form.[F8]
       End If
    End If
Set Form = Nothing
End Sub

Cliquez pour agrandir...