Gestion de stock, soucis ligne débit de stock

]Bonjour,

Après avoir télécharger sur un autre post un fichier du membre AFEH (coucou du Morbihan) je ne comprends pas après avoir essayer à plusieurs reprise de comprendre pour quoi mon stock une fois la facture faite ne débite pas sur l'autre feuille de calcul..

Je pense que ce sont les colonnes qui ne ce suivent pas, après avoir afficher les colonnes de gestion du stock, même manuellement ça ne passe pas.

Je n'ai pas encore envoyé un message au créateur de ce fichier...

Dans l'attente d'une réponse,

Merci !

Bonjour et bienvenue sur le forum

mmchill a écrit :

Je n'ai pas encore envoyé un message au créateur de ce fichier...

Je crois que tu devrais commencer par ça ...

Bye !

" pas encore " rien n'empêche d'avoir de l'aide de d'autres membres ? Je me trompe peut être

mmchill a écrit :

rien n'empêche d'avoir de l'aide de d'autres membres ?

Si : l'absence de fichier joint : le créateur du fichier, lui, sait au moins de quoi il s'agit....

Bye !

Mince, je n'avais pas valider la modification, milles excuses !!!

Hello,

On y est presque ! Un peu d'explication et on pourra aider

En attendant, Essaie de modifier, dans Module2 :

Sub Stock() 'recalcule les stocks
    Application.ScreenUpdating = False
    Sheets("Articles").Select
    Range("D2:D" & DerLign) = Range("H2:H" & DerLign).Value
    Application.ScreenUpdating = True
End Sub

Bonjour,

J'ai modifié dans Module2 comme expliquer mais mon souci demeure toujours (sur la feuille Article) le stock ne se met pas à jour tous seuls, une idée?

Merci SoumZoum !!

Bonjour mmchill et le forum,

De retour de vacances, je retrouve ton message mais comme le dit gmb, pour comprendre ton soucis peux-tu joindre un bout de ton fichier?

A te relire

Henri

Rebonjour,

En fait il manque juste une ligne de code dans le module 2 (il faut définir Derlign)

Sub Stock() 'recalcule les stocks
    Application.ScreenUpdating = False
    Sheets("Articles").Select
    DerLign = Range("a65536").End(xlUp).Row
    Range("F2:F" & DerLign) = Range("I2:I" & DerLign).Value
    Application.ScreenUpdating = True
End Sub
Sub TRI() 'mise en ordre alphabétique
    Application.ScreenUpdating = False
    Sheets("Articles").Select
    DerLign = Range("A65536").End(xlUp).Row
    Range("A2:I" & DerLign).Select
    ActiveWorkbook.Worksheets("Articles").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Articles").Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Articles").Sort
        .SetRange Range("A2:I" & DerLign)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("Commande").Select
    Range("A2").Select
End Sub

A te relire

Henri

Rechercher des sujets similaires à "gestion stock soucis ligne debit"