Bonjour,

Pouvez-vous m'aider s'il vous plait sur ce code ?
J'ai réussi à faire afficher ce que je voulais dans la Combobox1 mais je n'arrive pas à afficher en automatique dans le textbox1.
Puis avec le bouton Valider, insérer la date de la DTpicker dans la colonne voulue.

Merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ComboBox1_Change()
'Affiche la liste de la colonne F dans l'onglet "Feuil2"'
 
Me.ComboBox1.RowSource = "Feuil2!F2:F" & Sheets("Feuil2").Cells(1, 1).End(xlDown).Row
 
End Sub
 
Private Sub TextBox1_Change()
'Affiche automatiquement la valeur de la colonne I de l'onglet "Feuil2" en fonction de la Combobox1'
 
End Sub
 
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
 
End Sub
 
Private Sub CommandButton1_Click()
'Ajoute la date indiquée dans la DTPicker1 choisi dans la colonne K de l'onglet "Feuil2" sur la même ligne que la combobox1 choisie
 
End Sub