Discussion :

[styx_397]

Bonjour à tous!

Dans un userform, j'ai un DTPicker, configuré en mode time. Cependant, il contient une date (date et heure).

Je souhaiterai que quand je le fais descendre jusqu'a zero, il revienne à 24 mais en ayant changé de jour dans la date!

Cependant je ne peux y arriver par mes propres moyens... Quelqu'un aurait il une iddée?

Merci!

[El_Titof]

Bonjour,

j'ai bossé un peu dessus, voici le résultat.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Dim dDateOld As Date
 
Private Sub DTPicker1_Change()
    Dim dDateVal
    dDateVal = DTPicker1.Value
 
    If Hour(dDateOld) = 23 And Hour(dDateVal) = 0 Then
        dDateVal = DateAdd("d", 1, dDateVal)
    ElseIf Hour(dDateOld) = 0 And Hour(dDateVal) = 23 Then
        dDateVal = DateAdd("d", -1, dDateVal)
    End If
    DTPicker1.Value = dDateVal
    dDateOld = dDateVal
End Sub

Vous me direz si c'est ce que vous vouliez.

++

El_Titof