Microsoft 365 décaler le contenu d 'une cellule si celle ci est à 0

[pouetpouetlagalette]

Bonjour,
j'aimerai savoir si il y a une formule qui me permettrait de remonter les informations contenues dans une cellule si la première se retrouve à zéro , pour avoir un suivi des stocks , à savoir qu'une fois que le produit avec la date 1 se retrouve stock 0, la même référence produit, mais avec une autre date prenne sa place.
Merci.

 

[sousou]

Oups!!
Je crois que j'ai compris.
Dans le début du post on parle de stock critique, en fait c'ette condition ne me semble pas nécessaire, j'ai donc dans cette version supprimer cette condition. Critique ou pas le calcul se fera

 

[pouetpouetlagalette]

Oups!!
Je crois que j'ai compris.
Dans le début du post on parle de stock critique, en fait c'ette condition ne me semble pas nécessaire, j'ai donc dans cette version supprimer cette condition. Critique ou pas le calcul se fera

Merci SOUSOU, je fais vivre le document ce week end et je reviens vers toi courant semaine prochaine.

 

[pouetpouetlagalette]

Oups!!
Je crois que j'ai compris.
Dans le début du post on parle de stock critique, en fait c'ette condition ne me semble pas nécessaire, j'ai donc dans cette version supprimer cette condition. Critique ou pas le calcul se fera

Bonjour SOUSOU,
j'ai réussi à faire vivre le fichier et analyser les axes de progression pour rendre l'utilisation au quotidien plus pertinent. Est il possible pour toi sur l'onglet stock boco de reproduire ce que tu m'avais fait sut l'onglet stock bt; à savoir que dès qu'une référence en date est terminée , la deuxième prod remonte, sur le principe du first in first out?
Amitiés.

 

[sousou]

bonjour
en principe tu ajoutes ce code dans le code de la feuille stock boco, et le travail sera le même
A vérifier de près je pense que les deux feuilles ont la même structure



Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set t = Target.Cells(1, 1)
If t.Row > 8 And t.Column = 4 And t <> 0 Then Call valide(t, "sortie")
If t.Row > 8 And t.Column = 3 Then Call valide(t, "entree")
'-------------------------------------------------------------

Application.EnableEvents = True
End Sub

 

[pouetpouetlagalette]

bonjour
en principe tu ajoutes ce code dans le code de la feuille stock boco, et le travail sera le même
A vérifier de près je pense que les deux feuilles ont la même structure



Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set t = Target.Cells(1, 1)
If t.Row > 8 And t.Column = 4 And t <> 0 Then Call valide(t, "sortie")
If t.Row > 8 And t.Column = 3 Then Call valide(t, "entree")
'-------------------------------------------------------------

Application.EnableEvents = True
End Sub

Bonjour SOUSOU, eh ben......pas de bol.

 

[pouetpouetlagalette]

Je remet le fichier là où j'en suis.

 

[sousou]

Tu as mis le code?

 

[pouetpouetlagalette]

Tu as mis le code?

Bonjour SOUSOU, excuses moi pour la réponse tardive.
Je suis venu, j'ai pas vaincu.
Il est clair que j'y arrive pas.
Je peux trouver un tuto sur les macro et codes vba?
Spécial, genre pour les nuls.....

 

[sousou]

Bonjour
J'ai donc ajouter le code dans la feuille stock Boco
Je n'ai pas de tuto particulier sur le vba, mais tu trouveras de nombreux sites faits par les meilleurs souscripteur d'exceldownload , qui te permettront d'évoluer.
Pose des questions, analyse les réponses, et ca va venir....

 

[pouetpouetlagalette]

Bonjour
J'ai donc ajouter le code dans la feuille stock Boco
Je n'ai pas de tuto particulier sur le vba, mais tu trouveras de nombreux sites faits par les meilleurs souscripteur d'exceldownload , qui te permettront d'évoluer.
Pose des questions, analyse les réponses, et ca va venir....

Bonjour SOUSOU,
je te remercie grandement de ta bienveillance.
C'est vrai que quand tu es novice c'est pas simple.
Mais je relativise, même les vieux chênes ont été glands.