Controle Date and Time picker
Bonjour à tous,
J'ai besoin de mettre 2 DT Picker dans mon formulaire à fin de récupérer deux date.
Je les place normalement mais lorsque je veux les modifier ( y choisir une date) le calendrier ne s'ouvre pas au niveau de la box mais en haut à gauche de la fenetre.
Auriez vous une solution pour moi pour que le calendrier s'ouvre au niveau de la box portant le nom de la date recherchée;
Merci d'avance pour vos réponses.
++
bonjour,
Ton image ne nous sert pas à grand chose on sait ce que sait un DT Picker !
Tu nous mets ton classeur en pièce jointe avec au moins le formulaire et les macros qui vont avec.
Pour le reste tout ce qui est données personnelles tu vires, mais il faut au moins qu'on comprenne comment tu as goupillé ton truc !
A+
Salut le forum
Positionner le Userform selon la cellule active, (Réf Michel Perron)
Option Explicit
Private Declare Function GetDC& Lib _
"user32.dll" (ByVal hwnd&)
Private Declare Function GetDeviceCaps& _
Lib "gdi32" (ByVal hDC&, ByVal nIndex&)
Sub UserFormAlign()
' 1 inch = 72 points for usually 96 or 120 dpi
Dim x#, y#, w#, h#
x = GetDeviceCaps(GetDC(0), 88) / 72
y = GetDeviceCaps(GetDC(0), 90) / 72
With UserForm1
.StartUpPosition = 0
.Left = (ActiveWindow.PointsToScreenPixelsX(ActiveCell.Left * x) * 1 / x) + ActiveCell.Width
.Top = (ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * y) * 1 / y) + ActiveCell.Height
.Show
End With
End SubMytå