Sortir un article du stock

où est écrit ce n°14? quelque part dans la facture? elle semble vide.
cela devrait s'intégrer dans quel code?

Non, le n° 14 est un exemple bien entendu et il se trouve en colonne A de la feuille Stock
je pense que ça devrait faire partie d'un nouveau module ou alors "archiver_factures" ? car je veux prendre la quantité se trouvant en B16-17-18-ou 19 de la facture que j'inscrit après avoir noté en A le numéro de l'article selon la feuille Stock et je veux aller mettre cette quantité en O sur la feuille Stock, mais sur la ligne spécifiée de mon article.
Ici dans l'exemple que je vous ai donné, je prends deux pneus n° 14 et sur la facture il va s'inscrire : Michelin ... 255/45/17 au prix de 175 .... Ensuite je met "2" dans la colonne quantité et j'aimerais que s'inscrive également 2 sur la ligne de l'article 14 de ma feuille Stock en colonne O
cela me permettrait de gérer le stock puisque sur cette feuille stock, j'ai une colonne entrées et lorsque j'aurais la quantité sortie, je pourrais avoir le stock de ce pneu ce jour.
Comme je le disais auparavant, le summum serait que lorsque mon stock du jour est à zéro, la ligne s'efface. Mais ce n'est pas nécessaire.
Un grand merci pour votre aide, j'espère que nous allons y arriver.
Bonne soirée.

donc ce serait utile de créer une sub qui reçoit en paramètre le N° d'article et la quantité d'article, et qui ajoute la quantité en colonne O de stock?

un exemple:

Sub updstock(article As Integer, quantite As Integer)
Dim cl As Range
Set cl = Sheets("Stock").[a2]
Do While cl <> article And cl <> ""
    Set cl = cl.Offset(1)
Loop
If cl = article Then
    cl.Offset(, 14) = cl.Offset(, 14) + quantite
Else
    MsgBox ("article manquant")
End If
End Sub

ou bien ceci, qui supprime la ligne de stock quand on a tout consommé:

Sub updstock(article As Integer, quantite As Integer)
Dim cl As Range
Set cl = Sheets("Stock").[a2]
Do While cl <> article And cl <> ""
    Set cl = cl.Offset(1)
Loop
If cl = article Then
    cl.Offset(, 14) = cl.Offset(, 14) + quantite
    If cl.Offset(, 5) = cl.Offset(, 14) Then
        cl.EntireRow.Delete
    End If
Else
    MsgBox ("article manquant")
End If
End Sub

Bonjour,
décidément je pense être nul !
je viens d'essayer : j'ai placé ton code dans un nouveau module (ici module 2) et je veux le faire démarrer ... rien , il ne m'a donné aucun nom de macro.
Dois je placer ce module à l'intérieur de mon premier module ?
dois je créer un sub updstock() ?
Sinon, maintenant je comprends tout ton code : une boucle pour vérifier où se trouve l'article, si on ne trouve pas affichage de "article manquant" , sinon appeler updstock
mais je ne vois toujours pas où je peux intégrer ce code ?
A toute fins utiles je te joins à nouveau mon fichier, où tu peux vérifier mon code.
Merci encore
https://www.cjoint.com/c/KHtiTaJ14cI

si tu veux démarrer via une macro, supprime le private devant

sub tst

.
sinon, tu positionnes le curseur dans la

sub tst

, et tu fais f5.

j'ai regardé ton dernier fichier.
l'instruction

Call updstock(14, 2)

doit se trouver à l'intérieur d'une sub, par exemple à la place de l'instruction

Sheets("Stock").Range("O" & ligne).Value = Sheets("Facture").Range("B16").Value

.

merci, j'essaie cela de suite