Programmation du bouton "Private Sub CommandButton1_Click() "

[Loanito31]

Bonjour et joyeux noël à tous.

Merci à tous ceux qui prendront le temps de lire mon sujet.

pour faire court, j'ai créer un fichier excel avec 2 onglets pour lister mes commandes chez mes fournisseurs

Un onglet "feuil1" ou j'ai ma base de données et 3 bouton. 1) créer nouvelle commande 2) accusé réception fournisseur 3) Confirmation réception

Un onglet "feuil2" ou j'ai la liste des commandes passées.

J'ai créer 3 userform avec des combobox en cascade qui correspond au 3 boutons de la "feuil1"
1) pour créer une ligne de commande ds l'onglet "feuil2" l'une a la suite des autres.
2)pour ajouter une date d'accusé réception suivant un n° de commande
3) pour ajouter une date des réception de marchandises.

Jusque la tout va bien a part que, je n'arrive pas à coder le bouton "valider" : Private Sub CommandButton1_Click() sur mon userform 2 et 3 pour ajouter la date voulue avec la bon de commande choisi avec les combobox

Sur le userform 1 j'y suis arrivé car les lignes s'ajoute les unes sous les autres et ça ne pose pas de probleme
Mais quand je veux ajouter une date, je n'arrive pas a coder pour que la date s'ajoute suivant la commande de la combobox en cascade.

je vous mets mon code ci dessous.

    Dim f, a()
    Dim monDico1
    Private Sub UserForm_Initialize()
      Set f = Sheets("Feuil2")
      Set mondico = CreateObject("Scripting.Dictionary")
      a = f.Range("F2:I" & f.[F65000].End(xlUp).Row).Value
      For i = LBound(a, 1) To UBound(a, 1)
        mondico(a(i, 1)) = ""
      Next i
      temp = mondico.keys
     
      Me.ComboBox1.List = temp
    End Sub
    Private Sub ComboBox1_click()
      Me.ComboBox2.Clear
     
      Set monDico1 = CreateObject("Scripting.Dictionary")
      For i = LBound(a, 1) To UBound(a, 1)
        If a(i, 1) = Me.ComboBox1 Then monDico1(a(i, 4)) = i + 1
      Next i
      temp = monDico1.keys
       Me.ComboBox2.List = temp
    End Sub
    Private Sub ComboBox2_click()
     
      Set mondico = CreateObject("Scripting.Dictionary")
      For i = LBound(a, 1) To UBound(a, 1)
        If a(i, 1) = Me.ComboBox1 And a(i, 1) = Me.ComboBox2 Then mondico(a(i, 1)) = ""
      Next i
      temp = mondico.keys
     End Sub

    Private Sub CommandButton1_Click()

    i = monDico1(ComboBox2.Value)

    Sheets("Feuil2").Range("K" & i).Value = DTPicker1
     
    Unload Me
    End Sub
    Private Sub Annuler_Click()
    Unload Me
    End Sub

Ainsi que mon fichier.
Ce sont les boutons "Accusé réception fournisseur" et "confirmation réception" sur la feuil1 qui posent problème

 

[Dranreb]

Re : Programmation du bouton "Private Sub CommandButton1_Click() "

Bonjour.
Permettez moi de vous proposer ces modules de service qui simplifieront considérablement la programmation, ainsi que leur application sur l'Userform2 uniquement.

 

[Loanito31]

Re : Programmation du bouton "Private Sub CommandButton1_Click() "

Bonjour Dranreb,

Merci énormément ... cela simplifie énormément mon code.

Puis-je l'appliquer directement sur mon Userform3 ? et comment dois-je procéder ?

Merci encore tu es génial

 

[Loanito31]

Re : Programmation du bouton "Private Sub CommandButton1_Click() "

J'ai réussi, c'est vraiment magique.

Merci en tout cas d'avoir pris le temps pour m'aider.