Affiche valeur en fonction d'une Combobox
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:
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 |
