Gestion de stock

Starrlaz -  
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

  • Votes
  • Date
  • Date décroissante
  6. Starrlaz Auteur
    La modification du message d'origine n'est pas possible.
    Le lien servira a qui voudra m'aider.

    Merci.
    3. Polux31
      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")
      1. Starrlaz Auteur
        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
        2. Starrlaz Auteur
          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
          1. Polux31
            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
            1. Starrlaz Auteur
              Pas tres calé en vba. Je vais essayer et te tiens au courant des q possible.