code pour DTPicker

[lynyrd]

Bonsoir le Forum
Dans l'exemple ci-joint,j'utilise une combobox pour alimenter les textbox.
j'aimerais enlever la combobox et utiliser un DTPicker mais je ne sais quel code mettre.
Merci.

 

[Cousinhub]

Re : code pour DTPicker

Bonsoir,

essaie avec ce code :

Private Sub DTPicker1_Change()
Dim I As Integer, X As Byte
On Error Resume Next
X = Rows("1:1").Find(Me.DTPicker1, LookAt:=xlWhole).Column
For I = 1 To 15
Me.Controls("TextBox" & I) = Cells(I + 1, X).Value
Next I
End Sub

 

[lynyrd]

Re : code pour DTPicker

Merci bhbh c'est exactement ce que je recherchais
Merci.