Prob avec Mon List_Order

Bonjour à Tous,

Je me permets de vous demander de l'aide. J'ai créé un onglet pour le suivi de mes commandes : Date cde- Nom fournisseurs, Qu , Article etc...

Mon article et ma quantité bascule bien sur mon List_Order lorsque je clique sur ajouter mais lorsque je souhaite écrire une deuxième commande pour le même fournisseurs sur le même List_Order cela s'ajoute mais lorsque enregistre j'ai un problème sur les quantités et sur les clients. Il me copie sur mon tableau que les dernières information .

Quelqu'un aurait une idée

Candide

Bonjour,

J'ai créé un onglet pour le suivi de mes commandes

C'est l'onglet Stock ou fiche ?

Le fichier est très minimaliste car les combo ne contiennent rien à l'ouverture de l'usf.
Pouvez-vous donner un exemple concret afin de reproduire votre souci

Rem :
- vous utilisez des Rowsource dans votre USF. Comme dit à maintes reprises, évitez d'utiliser cette instruction qui pose parfois des soucis. Remplacez là par la méthode ADDITEM ou LIST
- Dans les tableaux au format structuré, vous ne devez jamais préparer vos tableaux à l'avance. Donc vous ne devez jamais avoir de lignes vides après la dernière ligne complétée ou dans le tableau.

Il y a quelques modifications à faire dans votre fichier à ce sujet notamment

bonjour Dan,

Oui c'est bien dans l'onglet Stock - l'onglet "ajouter un mouvement"

mes données s'inscrivent bien dans l'encadré entouré. Par ex :

Fournisseur ZZZ

1er ligne :

- article Ø 89/ 190 - quantité 20 - client AAA

2ème ligne

- article Ø 89/250 - quantité 50 - Client ABC

Mais quand je clique sur Enregistrer il indique sur les 2 lignes de mon tableau le bon fournisseur, mais sur la quantité et le nom du client il va prendre le dernier inscrit soit

Fournisseur ZZZ qu 50 - Client ABC

J'espère avoir été plus claire

Re,

D'abord dans votre colonne B de la feuille stock il y a des cellules avec liste déroulante que vous devez supprimer

dans l'USF essayez votre code Enregistrer comme ceci

Private Sub CommandButton2_Click() 'enregistrer
Dim Dl As Integer, lig As Integer, ligne As Integer

If Me.List_Order.ListCount > 0 Then 'Controle si la liste n'est pas vide
    If MsgBox("Voulez-vous enregistrer cette transaction ?", vbYesNo) = vbYes Then

        For ligne = 0 To Me.List_Order.ListCount - 1
            'ajouter une nouvelle ligne dans notre tableau
            With Sheets("Stock").ListObjects(1)
                If .ListRows.Count = 0 Then
                    .ListRows.Add: lig = 1
                Else: .ListRows.Add: lig = .ListRows.Count 'insérer à la dernière ligne
                End If
                    'afficher nos informations dans la base de donnée
                    With .DataBodyRange
                        .Item(lig, 1) = Me.Info1
                        .Item(lig, 2) = Me.Txt_DateCde
                        .Item(lig, 8) = Me.TextBox3
                        .Item(lig, 9) = Me.TextBox2

                        'Controler si c'est un fournisseur ou un client
                        If Me.Label_type = "Fournisseur" Then
                            .Item(lig, 4) = Me.Cbx_Type
                        Else
                            .Item(lig, 3) = Me.Cbx_Type
                        End If

                        'ajouter les données de la zone de liste
                        .Item(lig, 5) = Me.List_Order.List(ligne, 0)
                        .Item(lig, 6) = Me.List_Order.List(ligne, 1)
                        .Item(lig, 13) = Me.List_Order.List(ligne, 2)
                        .Item(lig, 14) = Me.Cbx_Type2
                        .Item(lig, 15) = Me.TextBox4
                        .Item(lig, 16) = Me.Cbx_Type3
                        .Item(lig, 17) = Me.TextBox5
                        .Item(lig, 18) = Me.Cbx_OuiNon
                        .Item(lig, 19) = Me.TextBox6
                    End With
            End With
        Next ligne

    MsgBox "Classement est fait"
    Unload Me
    ThisWorkbook.Save
    End If

End If
End Sub

Après on peut regarder les autres choses si vous voulez

Cordialement

Yes - Cela fonctionne

Merci Dan

Re

Dois je regarder plus loin dans votre fichier

Si non -->

Cordialement

Re bonjour Dan,

Merci cela fonctionne magnifiquement ... Je vais continuer à travailler sur ce tableau avec les alertes en cas de dépassement de date, l'onglet modif etc...

Merci du coup de main . Je me mets au boulot