Microsoft 365 Incrémentation de ligne via bouton

[frelon]

Bonjour à tous,
J'ai créer un formulaire, ou l'utilisateur sélectionne avec une liste déroulante un produit et ensuite avec une rechercheX il affiche les données.
J'aurais besoin d'ajouter ces lignes a la feuille commande camion, et ceci a chaque fois que l'utilisateur appuis sur le bouton ajouter (les ligne s'incrémente automatiquement).

Merci a tous.

 

[sousou]

Bonjour.
Je pense que tu n'as pas bien lu la charte, et je ne pense pas que tu auras des réponses en multipliant les demandes.

 

[frelon]

Je suis d'accord avec toi, je n'arrive pas a supprimer l'autre post. Ce n'est pas intentionnel Si tu sais comment supprimer un poste je suis ok

 

[fanch55]

Bonjour,
sans un petit fichier exemple expurgé, il sera difficile de t'aider .
Déjà je peux te suggérer de mettre une date ou clé dans la commande Camion,
cela évitera de rajouter des doublons à chaque fois que le bouton Ajouter est activé .

 

[frelon]

Voici le fichier (je ne trouver pas ou insérer un fichier

 

[fanch55]

A voir si c'est l'attendu ....

 

[frelon]

Top Merci c'est exactement ce que je voulais !!!!! Top Merci fanch55

 

[frelon]

A voir si c'est l'attendu ....

J'ai besoin que si un article est déja connu dans la commande camion le nombre de quantité s'ajoute a celui déja connu; c'est possible ?

 

[fanch55]

J'ai besoin que si un article est déja connu dans la commande camion le nombre de quantité s'ajoute a celui déja connu; c'est possible ?

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

 

[frelon]

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

Merci !!!!