Gestion des stocks

anthoYS

XLDnaute Barbatruc

• 12 Août 2009

• #16

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.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 12 Août 2009

• #17

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.

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 12 Août 2009

• #18

Re : Gestion des stocks

Merci, ça marche.

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 14 Août 2009

• #19

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.

 

Pièces jointes

• EtatDesStocks2.xls

  32.5 KB · Affichages: 127

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 14 Août 2009

• #20

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

 

Pièces jointes

• AnthonYs3.zip

  18.3 KB · Affichages: 69

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 14 Août 2009

• #21

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

 

Pièces jointes

• GestSt3.zip

  22.1 KB · Affichages: 53
• GestSt3.zip

  22.1 KB · Affichages: 59
• GestSt3.zip

  22.1 KB · Affichages: 53

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 15 Août 2009

• #22

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

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 15 Août 2009

• #23

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
)

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 15 Août 2009

• #24

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+

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 15 Août 2009

• #25

Re : Gestion des stocks

Re
Voici ton fichier avec la formule

 

Pièces jointes

• GestSt3.zip

  14.5 KB · Affichages: 118
• GestSt3.zip

  14.5 KB · Affichages: 117
• GestSt3.zip

  14.5 KB · Affichages: 119

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 15 Août 2009

• #26

Re : Gestion des stocks

Merci à toi.
Bonne fin de journée.

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 16 Août 2009

• #27

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 :

Code:

[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

 

Dernière édition: 16 Août 2009

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 16 Août 2009

• #28

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

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 16 Août 2009

• #29

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

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 16 Août 2009

• #30

Re : Gestion des stocks

Oui. Est-ce incompatible?

 

Vote positif 0 Vote négatif