probleme scrollbar sur formulaire pour modifier date

Y

Yaloo

XLDnaute Barbatruc

• 12 Avril 2013

• #2

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

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 13 Avril 2013

• #3

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

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 13 Avril 2013

• #4

Re : probleme scrollbar sur formulaire pour modifier date

Voici le fichier

merci d'avance

 

Pièces jointes

• probleme bouton.xls

  38.5 KB · Affichages: 62

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 13 Avril 2013

• #5

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

Cliquez pour agrandir...

A+

Martial

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 13 Avril 2013

• #6

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

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 13 Avril 2013

• #7

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.

VB:

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 14 Avril 2013

• #8

Re : probleme scrollbar sur formulaire pour modifier date

salut

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

Code:

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

 

Pièces jointes

• Date(Toupie).xls

  37.5 KB · Affichages: 50

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 14 Avril 2013

• #9

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 14 Avril 2013

• #10

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

 

Pièces jointes

• dates scrollbar .xls

  67 KB · Affichages: 40
• Capture.JPG

  19.6 KB · Affichages: 95
• Capture.JPG

  19.6 KB · Affichages: 94

Vote positif 0 Vote négatif