Gestion de stock

Fermé
Starrlaz Messages postés 16 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 5 juillet 2014 - Modifié par Starrlaz le 5/07/2014 à 12:22
Starrlaz Messages postés 16 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 5 juillet 2014 - 5 juil. 2014 à 21:57
Bonjour

Je souhaite votre aide pour realiser ce qui suit:
1) dans la cellule C1, le titre sera remplacé par un bouton de commande (QA).
2) lorsqu'on clic sur QA, apparait un combobox qui affiche la liste des villes de dépôts de la page "liste des villes"
3) une fois la ville choisie, un textbox permettra de rentrer une valeur numérique.
4) après validation par la touche "ok" apparaitra un calendrier qui permettra de choisir la date.
5) une fois la date choisie, la valeur numérique entrée précédemment ira se mettre dans la colonne "C".
6) Sur la colonne "A" en cliquant dans les cellules, permet d'attribuer les dates aux cellules, donc si la date renseignée via notre textbox est identique a l'une des dates dans la colonne "A" la valeur numérique ira juste se mettre dans la colonne "C" sur la ligne correspondant a cette date.
7) si la date est différente, dans ce cas elle se positionnera immédiatement dans la première cellule vide après la dernière date dans la colonne "A" et la valeur num rentrée précédemment ira se loger dans la colonne "C" sur la même ligne que la date rentrée précédemment,

Remarque:
Il ya 3 villes et 2 dépôts Je ne sais pas si cela est réalisable mais si vous avez des propositions pour réaliser ce que je viens de décrire, je suis prenant.

Je vous remercie par avance..
A voir également:

13 réponses

Starrlaz Messages postés 16 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 5 juillet 2014 1
5 juil. 2014 à 12:21
comment puis Je ajouter un fichier?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
5 juil. 2014 à 12:42
Bonjour,

Pour ajouter un fichier Excel:
Workbooks.Add
0
Starrlaz Messages postés 16 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 5 juillet 2014 1
Modifié par Starrlaz le 5/07/2014 à 14:11
Merci du lien :
Pour telecharger le fichier voir lien ci dessous

https://www.cjoint.com/?DGfnp2Sg4Gq
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
5 juil. 2014 à 13:23
Merci pour le lien du fichier ... mais j'en fais quoi du fichier ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Starrlaz Messages postés 16 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 5 juillet 2014 1
5 juil. 2014 à 14:31
La modification du message d'origine n'est pas possible.
Le lien servira a qui voudra m'aider.

Merci.
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
5 juil. 2014 à 16:25
T'aider en quoi ?

Quelle partie du code ne fonctionne pas ?
0
Starrlaz Messages postés 16 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 5 juillet 2014 1
5 juil. 2014 à 19:11
Mon fichier ci comporte le code qui ne fonctionne pas. .
Voir l'userform2.
Sur la page "T" tu auras la description du problem e

https://www.cjoint.com/?DGftdBZub5M

Merci
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
5 juil. 2014 à 20:04
Pour le remplissage de la Combobox, il faut enlever le 2 dans
Private Sub UserForm2_Activate()
. Ca devient
Private Sub UserForm_Activate()


Ensuite dans l'évènement Click du bouton Ok:
With Sheets("tomono;SEGUELA;T")
ne peut pas fonctionner. C'est soi:
With Sheets("tomono")
ou
With Sheets("SEGUELA")
ou
With Sheets("T")
0
Starrlaz Messages postés 16 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 5 juillet 2014 1
5 juil. 2014 à 20:20
Avec les "ou" Ca ne fonctionne pas. Jai ecris Juste
With Sheets("tomono")
With Sheets("T")
With Sheets("seguela")

Mais apres
End with
Me.hide
End sub

Il signal une erreur de compilation End with attendu
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
5 juil. 2014 à 20:45
Non, ça ne fonctionne pas il faut un With ... End With par objet.
0
Starrlaz Messages postés 16 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 5 juillet 2014 1
5 juil. 2014 à 21:09
Jai pas compris. Qu'est ce Que tu appelles objet?
Lorsque Je teste Ca:
With Sheets("tomono")
With Sheets("T")
With Sheets("seguela")
End with
If Me.tb6<>"" then.cells (ligne, 3)=.cells (ligne, 3) + cInter (Me.tb6 )
Ligne =Application.Match (Date*1, .[A:A], 0)
End with
End sub
Jai une erreur d'execution "13 "
Incompabilite se type
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
5 juil. 2014 à 21:39
Quand on met With objet ... End With, ça permet de ne pas avoir à répéter le nom de l'objet devant les attributs ou les méthodes de l'objet. Par exemple
With Sheets(1)
     .Range("A1").Value = "Toto"
     .Range("A1").Value..Copy Destination:= .Range("D3")
End With

'Est équivalent à
     Sheets(1).Range("A1").Value = "Toto"
     Sheets(1).Range("A1").Value..Copy Destination:= Sheets(1).Range("D3")


Il serait plus simple d'expliquer ce que tu cherches à faire avec
With Sheets("tomono") 
With Sheets("T") 
With Sheets("seguela") 
End with 
If Me.tb6<>"" then.cells (ligne, 3)=.cells (ligne, 3) + cInter (Me.tb6 ) 
Ligne =Application.Match (Date*1, .[A:A], 0) 
End with
0
Starrlaz Messages postés 16 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 5 juillet 2014 1
5 juil. 2014 à 21:57
Pas tres calé en vba. Je vais essayer et te tiens au courant des q possible.
0