Problème insertion donnée d'une ComboBox

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) creer nouvelle commande 2) accusé reception fournisseur 3) Confirmation reception

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 creer une ligne de commande ds l'onglet "feuil2" l'une a la suite des autres.

2)pour ajouter une date d'accusé reception suivant un n° de commande

3) pour ajouter une date des reception 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

Je vous remercie par avance pour votre aide.

Bonne journée

Bonjour Loanito31

Sans fichier difficile d’interpréter ton problème rapidement et efficacement.

A bientôt

Bonjour,

Oui en effet tu as raison. Je te mets ci-joint mon fichier.

Sur la feuil1 tu verra les 3 boutons et ma base de donné est masquée.

Sur la feuil2 la liste des commandes.

Ce sont les boutons Accusé reception fournisseur et confirmation réception qui posent probleme.

Merci de ton aide.

Cordialement.