Facturation

[NICOALBERT]

Bonjour le forum,

Y a t'il un moyen lorsque l'on clic sur "ajouter au panier" d'enlever le nombre d'article des stocks dans les onglets correspondant.

@+ NICOALBERT

 

[Paritec]

Re : Facturation

Bonsoir Nicoalbert,
si tu nous disais ce que doit faire le bouton ajouter au panier??
Car si tu n'as pas de valeur en colonne D tu n'as rien à déduire mais une fois validé ton ajout au panier on fait quoi on efface la page , la ligne , on transfère en commande??? bref c'est facile si on sait quoi faire pas quand on ne sait rien
a+
papou🙂

 

[NICOALBERT]

Re : Facturation

Re-bonjour,

en faite lorsque l'on clic sur "ajouter au panier" sa remplie le tableau "Bon de commande" et sa ajoute 1 à la reference sélectionner dans SORTIE et sa addition par rapport au nombre déjà présent dans la cellule.(Exemple: je sélectionne 1 bracelet Référence BRA001 , je clic sur clic sur le bouton sa remplie le tableau bon de commande et sa marque 1 dans la colonne SORTIE de la référence BRA001 , et si il y avait déjà 1 dans la cellule sa additionne donc 2)

@+ NICOALBERT

 

[Paritec]

Re : Facturation

re nicoalbert,
oui ok pour le débit mais cela ne dis pas si on efface la ligne de la feuille ou se trouve le bouton ajouter au panier?????????
a+
papou🙂

 

[NICOALBERT]

Re : Facturation

Désoler je n'avait pas compris ta question , si on efface les donées de la colonne D de la feuille LISTE et que l'on clic sur le bouton sa efface seulement les information du Bon de commande mais sa ne doit pas agir sur les autres onglets.

@+ NICOALBERT

 

[NICOALBERT]

Re : Facturation

Re-bonsoir,

Existe t'il tout simplement un moyen par exemple de faire la somme de BRACELET!H4+LISTE!D2 lorsque l'on clic sur "Ajouter au panier" et de mettre le résultat en BRACELET!H4. Et la même chose pour les autres Références . Sachant qu'il peut y en avoir de nouvelle entre deux .

@+ NICOALBERT

 

[NICOALBERT]

Re : Facturation

Re-Bonsoir le forum,

Je viens de réaliser un bout de code désoler pour le résultat je débute mais il réalise ce que je cherche ,mais le problème est que si je rajoute une ligne au bracelet le calcule sera forcément faux. est ce que quelqu'un à une idée.

@+ NICOALBERT

 

[NICOALBERT]

Re : Facturation

Bonjour le Forum,

Je viens de modifier mon code car il ne fonctionnait pas comme je le voulait.mais en faite ce que je cherche c'est que sa fasse la même chose mais avec conditions (SI en colonne D de la feuille LISTE <> de 0 alors recherche la référence de la colonne A dans les autres onglets et additionner ce nombre a la cellule SORTIE correspondante.

Est ce que quelqu'un a une idée?

@+ NICOALBERT

 

[Paritec]

Re : Facturation

Bonjour Nicoalbert le forum
moi je veux bien t'aider mais tu ne mets aucune indication de ce que tu as et de ce que tu veux obtenir dans ton fichier alors je t'ai posé une question tu as répondu à moitié alors excuses moi mais si tu ne fais pas d'effort, après tout c'est pour toi
quand tu auras envie d'expliquer comme il faut comment tu utilises le fichier et ce que tu veux que l'on fasse je le ferai
C'est simple pour toi c'est ton fichier mais pour celui qui découvre il faut chercher alors que si tu expliques comme il faut c'est tout simple
a+
papou🙂

 

[NICOALBERT]

Re : Facturation

Bonjour Paritec,

En faite ce que je recherche tout simplement c'est enlever du stock l'article choisi à chaque clic sur le bouton ( Si je je met 1 Article en BRA001 dans "LISTE" et que je clic , sa me retire du stock 1 article BRA001 de l'onglet BRACELET)

@+ NICOALBERT

 

[Paritec]

Re : Facturation

Re bonjour Nicolas,
Bon tu es buté comme un ... tu sais avec les grandes oreilles, alors voilà une macro qui fait ce que tu veux mais qui remet la ligne que tu as débité à zéro dans la feuille liste, mais je reste persuadé que c’est pas cela qu'il faut faire, pour ton fichier, mais bon tu testes et tu nous redis tu lies bien sur la macro valider au bouton ajouter au panier.
Pourquoi remettre à zéro ta ligne de la feuille liste ?? réfléchi un peu au pourquoi.
a+
papou🙂

Sub Valider()
    Dim fin&, i&, lig&
    With Feuil3
        fin = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 2 To fin
            If .Cells(i, 4) <> "" And Mid(.Cells(i, 1), 1, 3) = "COL" Then
                lig = Feuil2.Columns("A:A").Find(.Cells(i, 1)).Row
                Feuil2.Cells(lig, 8) = Feuil2.Cells(lig, 8) + .Cells(i, 4)
                .Cells(i, 4) = ""
            End If
            If .Cells(i, 4) <> "" And Mid(.Cells(i, 1), 1, 3) = "BRA" Then
                lig = Feuil1.Columns("A:A").Find(.Cells(i, 1)).Row
                Feuil1.Cells(lig, 8) = Feuil1.Cells(lig, 8) + .Cells(i, 4)
                .Cells(i, 4) = ""
            End If
        Next i
    End With
End Sub

 

[Paritec]

Re : Facturation

re nicoalbert le forum
bon alors voilà le fichier
a+
papou🙂

 

[Paritec]

Re : Facturation

Re Nicoalbert,
pas trop intéressé par les réponse que l'on te fait !!!
a+
papou🙂

PS: une autre version avec des ajouts a+