XL pour MAC Remplir le panier d'une vente et l'archiver dans la feuille de l'historique des ventes

[inouuuu]

Salut a tous,
j'essaie d'applique une gestion de vente et de suivi du stock pour gerer une tres petite entreprise. j'ai cree deux modules qui permettent d'ajouter des articles dans le panier du client ensuite valider la vente pour l'archiver dans une feuille "historique des ventes" puis imprimer sa facture>
Mais le probleme en est que, a chaque fois que j'ajoute et produit ensuite vouloir la valider , le code m'induit en erreur au niveau de la verification si la premiere ligne du tableau eu vide ou pas.

Si quelqu'un peut me venir d'urgence en aide

Le code ci-joint


Cordialement

Sub ajouter_panier()



    If Range("C17") = "" Or Range("C24") = "" Or Range("G24") = "" Or Range("H15") = "" Then
        MsgBox ("Ils manquent des infos")
        
        'Si le couleurs de cellule sont vides, alors changer la couleur de fond en jaune
        If Range("C17") = "" Then
            Range("C17").Interior.ColorIndex = 6
        Else
            Range("C17").Interior.ColorIndex = 0
        End If
        
        If Range("C24") = "" Then
            Range("C24").Interior.ColorIndex = 6
        Else
            Range("C24").Interior.ColorIndex = 0
        End If
        
        If Range("G24") = "" Then
            Range("G24").Interior.ColorIndex = 6
        Else
            Range("G24").Interior.ColorIndex = 0
        End If
        
        If Range("H15") = "" Then
            Range("H15").Interior.ColorIndex = 6
        Else
            Range("H15").Interior.ColorIndex = 0
        End If
    Else
    
        'Couleur de fond en blanc pour les cellules C17, C24, G24 et H15
        Range("C17").Interior.ColorIndex = 0
        Range("C24").Interior.ColorIndex = 0
        Range("G24").Interior.ColorIndex = 0
        Range("H15").Interior.ColorIndex = 0
        
        'On teste si la premiere cellule du tableau est vide
        If Range("M16") = " " Then
            Range("M16") = Now()
        Else
            Sheets("CAISSE").ListObjects(1).ListRows.Add.Range(1, 1).Value = Now()
        End If
        
        DLT = Range("M45").End(xlUp).Row
        
        Range("N" & DLT) = Range("C15")
        Range("O" & DLT) = Range("C24")
        Range("P" & DLT) = Range("E24")
        Range("Q" & DLT) = Range("G24")
        Range("R" & DLT) = Range("C25")
        Range("S" & DLT) = Range("C26")
        Range("U" & DLT) = Range("C17")
        
        'Remettre a zero
        Range("C24") = ""
        Range("C26") = ""
        Range("G24") = ""
        
        
        
    End If
End Sub

Sub valider_vente()


    'Controler s'il y a une commande dans la liste
     If Range("M16") = "" Then
        MsgBox "Il n'y a pas de commande"
    Else
        If Sheets("HISTORIQUE DES VENTES").Range("B14") = "" Then
            'Selectionner les donnees dun tableau
            Range("Table15").Select
            Selection.Copy
            
            'Coller le tout dans le tableau qui se trouve dans la page historique des ventes
            DLT = Sheets("HISTORIQUE DES VENTES").Range("B1048575").End(xlUp).Row
            Sheets("HISTORIQUE DES VENTES").Range("B" & DLT).PasteSpecial
        Else
            Sheets("HISTORIQUE  DES VENTES").ListObjects(1).ListRows.Add
            Sheets("CAISSE").Range("Table12").Select
            Selection.Copy
            
            DLT = Sheets("HISTORIQUE DES VENTES").Range("B1048575").End(xlUp).Row
            Sheets("HISTORIQUE DES VENTES").Range("B" & DLT).PasteSpecial
        End If
        
        'Effacer la liste des courses du panier
        Activesheets.ListObjects(1).DataBodyRange.Rows.Delete
        
        Range("C17") = ""
        Range("C15") = Range("C15")
    End If
    

End Sub

 

[Santulud]

Bonsoir,
je suis en train de créer un fichier quelque peu similaire.
Peux-tu mettre ton fichier en PJ ?
Cela aiderai pour mieux voir le problème

 

[inouuuu]

Le voici

 

[Santulud]

J'ai regardé ton fichier,

le problème viens du fait que tu fait un test en M16 avant de remplir tes autres colonne.
Cela est inutile, et pose problème.

J'ai inversé l'ordre et cela fonctionne très bien chez moi.

Jette un œil et dis moi si cela est mieux

 

[inouuuu]

Salut Santulud,
Toujours le meme probleme, , quand j'ajoute un premier article ca passe, et si j'ajoute un deuxieme article, ca m'affiche l'erreur "Erreur d'automation".

Et c'est la meme erreur quand je veux valider le panier et l'archiver dans l'historique des vente.

 

[Santulud]

Erreur de ma part, un espace en trop...

 

[inouuuu]

Toujours le meme probleme; je pense que on doit faire le test sur le M16 d'une autre maniere . Autrement dit trouver le tableau et chercher la premiere ligne vide.

 

[Santulud]

C'est vrai que le test en M16 ne sert a rien, puisqu'il cherche déjà la première ligne vide avec End(xlup).

Par contre ce que je ne comprend pas, c'est que tout fonctionne très bien chez moi.