VBa boucle sur controle Dtpicker

miguelangelo · 21 Mai 2015

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 · 21 Mai 2015

Re : VBa boucle sur controle Dtpicker

Bonjour,

essaye comme ceci :

Code:

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 · 21 Mai 2015

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 · 21 Mai 2015

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

VBa boucle sur controle Dtpicker

miguelangelo

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

miguelangelo

XLDnaute Occasionnel

Discussions similaires