probleme scrollbar sur formulaire pour modifier date

[pasquetp]

Bonjour,

je souhaiterai savoir comment faire pour que sur un formulaire le scrollbar dans le formulaire change (jour) la date situé dans une zone de texte

je vous remercie par avance

Pierre

 

[Yaloo]

Re : probleme scrollbar sur formulaire pour modifier date

Bonjour pasquetp,

Avec un petit fichier sans données confidentielles, ça doit pouvoir se faire.

A+

Martial

 

[pasquetp]

Re : probleme scrollbar sur formulaire pour modifier date

Salut Martial,

j'ai préparé un petit fichier.

le bouton sert a changer de date (journée) mais comme tu verras ca rates.

Merci de votre aide

Pierre

 

[pasquetp]

Re : probleme scrollbar sur formulaire pour modifier date

Voici le fichier

merci d'avance

 

[Yaloo]

Re : probleme scrollbar sur formulaire pour modifier date

Bonsoir Pierre,

Peut être avec ceci, mais je n'ai pas pu tester, le calendrier n'est pas sur mon PC.

Private Sub SpinButton1_Change()
TextBox1 = CDate(TextBox1) + SpinButton1
End Sub

A+

Martial

 

[pasquetp]

Re : probleme scrollbar sur formulaire pour modifier date

salut

malheuresement ca ne fait pas a l'unité: j'obtiens j+1 pui j+2 puis j+4......

peux tu revoir le code

merci

 

[Yaloo]

Re : probleme scrollbar sur formulaire pour modifier date

Re,

Je n'avais jamais utiliser ce genre d'objet, donc j'ai regardé un peu sur le net.

Pour ce que tu veux faire, il ne me semble pas que le SpinButton soit adapté, car cela incrément un compteur donc on passe de 1 à 2 puis à 3 etc...

Pour voir ce que ça fait, mets un Label1 dans ton UserForm, copie ta macro SpinButton1_Change par la macro ci-dessous puis clique sur le SpinButton.

Private Sub SpinButton1_Change()
    Label1 = SpinButton1.Value
End Sub

A chaque fois le Label1 est incrémenté de 1

Tu peux peut être faire un bouton + et un bouton - incrémentant la valeur du TextBox1.

A te relire

Martial

 

[Si...]

Re : probleme scrollbar sur formulaire pour modifier date

salut

après réglage des limites de la toupie, peut-être ainSi...

Dim J As Single, V As Single
Private Sub UserForm_Initialize()
  TextBox1 = Date 'ou autre date avec Calendar, MonthView, DTpicker, saisie
End Sub
Private Sub SpinButton1_Change()
  'pour une date saisie, décocher la ligne suivante
  'If Not IsDate(TextBox1) Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
  V = IIf(SpinButton1 > J, 1, -1)
  TextBox1 = CDate(TextBox1) + V
  J = SpinButton1
End Sub

 

[pasquetp]

Re : probleme scrollbar sur formulaire pour modifier date

Salut,

je dis Bravo ! ca marche ton code. je vais l'appliquer a mon fichier et je te tiens au courant

Encore merci de ton travail

Pierre

 

[Modeste geedee]

Re : probleme scrollbar sur formulaire pour modifier date

Bonsour®
attention un scrollbar ne peut prendre en compte qu'une plage de 32767 jours, ce qui est inferieur à la,plage des dates possibles et notament des N° de série ( aujourdhui=41378)
il faut donc limiter la plage de dates autorisées ainsi que définir la date origine...

😎 petite illustration de quelques solutions possibles