Gestion des stocks

[anthoYS]

Bonsoir,

Sur mon fichier, l'on peut apercevoir divers marchandises stockés.

Le but est d'accélérer le processus gérant les consommations et réapprovisionnements.
En fait, tout est clairement expliqué dans le fichier.
Cependant je vous détaille de façon concise mon soucis.
Il faut ajouter des mises en forme conditionnelle (fonction du niveau de stock), et ajouter le bon code aux boutons de commandes insérés entre autres.

Il s'agit donc d'améliorer le fichier existant ou j'ai commencer, mais par manque de maîtrise de l'outil Excel, j'ai du m'en remettre à vous.

Merci par avance.

 

[anthoYS]

Re : Gestion des stocks

Re,

C'est nickel Dull.

Autre précision s'il vous plaît, ou peut-on changer la couleur de fond (violet) et la police (rouge) de l'user form?

Merci par avance.

 

[noviceAG]

Re : Gestion des stocks

Bonsoir AnthoYS, le Forum,
De mémoire et sauf erreur, dans vba, tu double clique sur l'Usf et tu fais Affichage, Propriétés, et c'est dans les trois premières ligne des propriétés
Au plaisir.

 

[anthoYS]

Re : Gestion des stocks

Merci, ça marche.

 

[anthoYS]

Re : Gestion des stocks

Bonjour,

Je reviens sur mon problème, mais simplement concernant le destockage.

Je souhaite enlever une unité par clic, et non pas en passant par l'USF pour enlever une unité, ceci serait une perte de temps.
Entre cliquer une seule fois sur un bouton de commande et ouvrir l'USF par un clic puis une saisi du chiffre un par le clavier (plus long). On constate un gain de temps.

Merci, voir le fichier joint.

 

[CB60]

Re : Gestion des stocks

Re
Je ne suis pas refractaire au bouton, mais, mais j'imagine le boulot en fonction du nombre de ligne.
La j'ai enlever l'USF et mis un click droit qui enleve une unitée

 

[anthoYS]

Re : Gestion des stocks

Re,

Merci CB60.

Or, autre problème concernant le renvoie de "#valeur#".

En fait je joint un fichier expliquant ce qui est attendu, autrement dit, si date de peremption existe, compter le nombre de jour qui manque pour y parvenir, dans les autres cas si cellule =''nulle" ou "" (vide) alors ne rien mettre -laisser vide-.

Merci par avance

 

[noviceAG]

Re : Gestion des stocks

Bonjour AnthoYS, le Forum,
Essaie ceci :

=SI(G3="NULLE";"";SI(G3-AUJOURDHUI()=0;"Aujourd'hui";SI(G3-AUJOURDHUI()=1;"Demain";SI(AUJOURDHUI()-G3=1;"Hier";SI(G3>AUJOURDHUI();"Dans "&SI(DATEDIF(AUJOURDHUI();G3;"m")>0;DATEDIF(AUJOURDHUI();G3;"m")&" mois et ";"")&DATEDIF(AUJOURDHUI();G3;"md")&" jours";"Il y a "&SI(DATEDIF(G3;AUJOURDHUI();"m")>0;DATEDIF(G3;AUJOURDHUI();"m")&" mois et ";"")&DATEDIF(G3;AUJOURDHUI();"md")&" jours")))))

Bonne continuation et bon Week-end

 

[CB60]

Re : Gestion des stocks

Bonjour
Avant la formule que tu a dans ta cellule ajoute cela:
SI(OU(G2="nulle";G2="");"";
ensuite ta formule
et
)

 

[anthoYS]

Re : Gestion des stocks

Bonjour à vous (noviceAG, CB60), le forum

Merci pour vos formules ; mais noviceAG, saches que ta formule amène des #NOM#.
Pour ce qui est de CB60, j'ai tenté d'insérer la formule, mais pour part, je n'y suis pas arrivé.

A+

 

[CB60]

Re : Gestion des stocks

Re
Voici ton fichier avec la formule

 

[anthoYS]

Re : Gestion des stocks

Merci à toi.
Bonne fin de journée.

 

[anthoYS]

Re : Gestion des stocks

Bonjour,

Qui peut m'expliquer?
Je souhaite en fait, associer l'USF2 (permettant de saisir la quantité destocké) et le clic droit à côté (cellule voisine) qui permettrait d'enlever une unité par clic.

J'ai essayé dans mon fichier d'ou l'onglet est "GestSt".

Quand je réalisé le clic droit, un message d'erreur appaît :

Erreur de compilation : Nom ambigu detecté : Worksheet_BeforeDoubleClick

Le code de la feuille est celui-ci :

[COLOR="Lime"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean[/COLOR])
Cancel = True
If Not Application.Intersect(Target, Range("d:d")) Is Nothing Then Reapprovisionnement.Show
If Not Application.Intersect(Target, Range("j:j")) Is Nothing Then Destockage.Show

End Sub

Et vient en surbrillance -est selectionné- (couleur verte) dans le code

 

[jeanpierre]

Re : Gestion des stocks

Bonjour anthoYS, le fil,

Sans voir ton code dans son intégralité, difficile de te dire, mais n'aurais-tu pas 2 procédures "Worksheet_BeforeDoubleClick" dans le code de ta feuille ?

Bon AM.

Jean-Pierre

 

[anthoYS]

Re : Gestion des stocks

Encore mieux : j'ai renommé mes USF mais maintenant quand je clique sur la cellule pour ajouter des quantité, voici ce qui apparaît :

Erreur d'execuition '424'

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(Target, Range("D😀")) Is Nothing Then UserForm1.Show
If Not Application.Intersect(Target, Range("j:j")) Is Nothing Then UserForm2.Show

End Sub

 

[anthoYS]

Re : Gestion des stocks

Oui. Est-ce incompatible?