Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Scrollbar : Valeurs Max variable ...

Scrollbar : Valeurs Max variable ...

2 réponses
Avatar
Domi
Bonsoir,
Dans un autre textbox "DateEchCde" figure une date.
Comment faire faire varier les valeurs min et Max du Scrollbar en fonction
de la date qui figure dans DateEchCde selon les règles suivantes :

Min = Date du jour (toujours)
Max = Date du jour si DateEchCde<= Date du jour OU = DateEchCde si
DateEchCde < Date du Jour

J'ai essayé cela; mais dans le second cas ma valeur Max reste inférieure à
la valeur min !

With Me.ScrollBar1
If DateEchCde.Value <= Date Then
.Min = CLng(Date)
.Max = CLng(Date)
Else
.Min = CLng(Date)
.Max = CDate(DateEchCde.Value)
End If
End With

Merci
Domi
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Bonjour Domi,

Pourquoi ne pas utiliser de variable de type "long" pour contenir tes dates

Dim LaDate as long
dim TxtLaDate as long

LaDate = clng(date)

If isdate(DateEchCde) then
TxtLaDate = clng(cdate(DateEchCde))
else
Msgbox "Date du textbox non reconnue"
exit sub
end if

'------------------------------
Pour ce qui est des conditions
La valeur Max est défini comme suit :

DateEchCde<= Date du jour Max = date du jour
DateEchCde < Date du Jour Max = date du jour

Il y a quelque chose que je ne saisi pas ...
'------------------------------

With Me.ScrollBar1
If TxtLadate<= Ladate Then
.Min = Ladate
.Max = LaDate
Else
.Min = CLng(Date)
.Max = TxtLadate
End If
End With


Salutations!


"Domi" a écrit dans le message de news:
Bonsoir,
Dans un autre textbox "DateEchCde" figure une date.
Comment faire faire varier les valeurs min et Max du Scrollbar en fonction
de la date qui figure dans DateEchCde selon les règles suivantes :

Min = Date du jour (toujours)
Max = Date du jour si DateEchCde<= Date du jour OU = DateEchCde si
DateEchCde < Date du Jour

J'ai essayé cela; mais dans le second cas ma valeur Max reste inférieure à
la valeur min !

With Me.ScrollBar1
If DateEchCde.Value <= Date Then
.Min = CLng(Date)
.Max = CLng(Date)
Else
.Min = CLng(Date)
.Max = CDate(DateEchCde.Value)
End If
End With

Merci
Domi
Avatar
Domi
C'est impeccable, malgré mes explications in peu embrouillées tu avais bien
sûr compris le but... ;o)
Merci beaucoup
Domi

"MichDenis" a écrit dans le message de
news:%23IXYk%
Bonjour Domi,

Pourquoi ne pas utiliser de variable de type "long" pour contenir tes
dates


Dim LaDate as long
dim TxtLaDate as long

LaDate = clng(date)

If isdate(DateEchCde) then
TxtLaDate = clng(cdate(DateEchCde))
else
Msgbox "Date du textbox non reconnue"
exit sub
end if

'------------------------------
Pour ce qui est des conditions
La valeur Max est défini comme suit :

DateEchCde<= Date du jour Max = date du jour
DateEchCde < Date du Jour Max = date du jour

Il y a quelque chose que je ne saisi pas ...
'------------------------------

With Me.ScrollBar1
If TxtLadate<= Ladate Then
.Min = Ladate
.Max = LaDate
Else
.Min = CLng(Date)
.Max = TxtLadate
End If
End With


Salutations!


"Domi" a écrit dans le message de news:


Bonsoir,
Dans un autre textbox "DateEchCde" figure une date.
Comment faire faire varier les valeurs min et Max du Scrollbar en fonction
de la date qui figure dans DateEchCde selon les règles suivantes :

Min = Date du jour (toujours)
Max = Date du jour si DateEchCde<= Date du jour OU = DateEchCde si
DateEchCde < Date du Jour

J'ai essayé cela; mais dans le second cas ma valeur Max reste inférieure à
la valeur min !

With Me.ScrollBar1
If DateEchCde.Value <= Date Then
.Min = CLng(Date)
.Max = CLng(Date)
Else
.Min = CLng(Date)
.Max = CDate(DateEchCde.Value)
End If
End With

Merci
Domi