Gestion de stock

Starrlaz Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -  
Starrlaz Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -
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..

13 réponses

  1.
    Starrlaz Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   1
     
    comment puis Je ajouter un fichier?
    0
  2. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    Pour ajouter un fichier Excel: 
    Workbooks.Add
    0
  4. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Merci pour le lien du fichier ... mais j'en fais quoi du fichier ?
    0

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

    Posez votre question
  6. Starrlaz Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   1
     
    La modification du message d'origine n'est pas possible.
    Le lien servira a qui voudra m'aider.

    Merci.
    0
  7. Polux31 Messages postés 7219 Statut Membre 1 204
     
    T'aider en quoi ?

    Quelle partie du code ne fonctionne pas ?
    0
  8. Starrlaz Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   1
     
    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
  9. Polux31 Messages postés 7219 Statut Membre 1 204
     
    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
  10. Starrlaz Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   1
     
    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
  11. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Non, ça ne fonctionne pas il faut un With ... End With par objet.
    0
  12. Starrlaz Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   1
     
    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
  13. Polux31 Messages postés 7219 Statut Membre 1 204
     
    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
  14. Starrlaz Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   1
     
    Pas tres calé en vba. Je vais essayer et te tiens au courant des q possible.
    0