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
Partager