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.
Ainsi que mon fichier.
Ce sont les boutons "Accusé réception fournisseur" et "confirmation réception" sur la feuil1 qui posent problème
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.
Code:
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