VBa boucle sur controle Dtpicker

[miguelangelo]

bonjour à tous,

j'essaye de mettre la date de tous les dtpicker de mon userform à date d'aujourd'hui, et ce dans une boucle

mais il me manque la touche finale pour me permettre d'avancer :

For Each Control In new_project.Controls
If Control.Type= "DTPicker2" Then
Control.Value = Date
End If


Next Control

merci pour votre aide

 

[Pierrot93]

Re : VBa boucle sur controle Dtpicker

Bonjour,

essaye comme ceci :

Dim control As Object
For Each control In UserForm1.Controls
    If TypeName(control) = "DTPicker" Then control.Value = Date
Next control

bon après midi
@+

 

[phlaurent55]

Re : VBa boucle sur controle Dtpicker

Bonjour Miguel,

je pense que les DTPicker ne sont pas tous du type DTPicker2

fais un essai en supprimant le "2"

à+
Philippe

Edit: Bonjour Pierrot

 

[miguelangelo]

Re : VBa boucle sur controle Dtpicker

Merci pour ta réponse Pierrot.

Phlaurent, ce sont des DtPicker2. j'ai encore du mal à naviguer dans toutes les références pour aller chercher d'autres possibilités !

merci à vous pour votre aide