DTPicker

[chrbro]

Bonjour à tous,

J'aimerais extraire la valeur(date) d'une boite DTPicker et la copier(valeur seulement) dans une autre cellule.

Je suis seulement capable de copier la boite elle-même avec le code suivant:

ActiveSheet.Shapes('DTPicker1').Select
Selection.Copy
Range('B8').Select

Merci pour vos suggestion,

Christian

 

[MichelXld]

bonjour

tu peux tester

MsgBox ActiveSheet.DTPicker1.Value


bonne journée
MichelXld

 

[chrbro]

Michel,

Cette approche m'a aussi permise de découvrir cette autre façon d'y arriver:

Sheets('Input').Select
Dim Datedebut As Date
Datedebut = ActiveSheet.DTPicker1.Value
Sheets('Data').Range('B7') = Datedebut

C'est vraiment plein de possibilités.

Merci