Je souhaite faire défiler dans une cellule (A1) une date. J'utilise pour
cela la barre de défilement de la barre d'outils contrôle (ScrollBar1).
Comment faire pour imposer la date du jour en valeur Mini et la date du jour
+ 360 en date Maxi.
Dans les propriétés je ne parviens pas à saisir une formule dans MIN et
MAX...
Comment faire ?
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
papou
Bonjour Par exemple à adpater : Sub AffecteLesValeurs() With Feuil1.ScrollBar1 .Min = CLng(Now) .Max = CLng(Now + 360) End With End Sub
Puis tu affectes la référence d'une cellule formattée en JJ/MM/AAAA à la propriété Linkedcell de ton contrôle Scrollbar
NB : Attention ici la feuille est identifiée par son CodeName Cordialement Pascal
"Domi" a écrit dans le message de news:%
Bonsoir à tous,
Je souhaite faire défiler dans une cellule (A1) une date. J'utilise pour cela la barre de défilement de la barre d'outils contrôle (ScrollBar1). Comment faire pour imposer la date du jour en valeur Mini et la date du jour
+ 360 en date Maxi. Dans les propriétés je ne parviens pas à saisir une formule dans MIN et MAX... Comment faire ?
Merci Domi
Bonjour
Par exemple à adpater :
Sub AffecteLesValeurs()
With Feuil1.ScrollBar1
.Min = CLng(Now)
.Max = CLng(Now + 360)
End With
End Sub
Puis tu affectes la référence d'une cellule formattée en JJ/MM/AAAA à la
propriété Linkedcell de ton contrôle Scrollbar
NB : Attention ici la feuille est identifiée par son CodeName
Cordialement
Pascal
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23ZLoTWSkEHA.3608@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous,
Je souhaite faire défiler dans une cellule (A1) une date. J'utilise pour
cela la barre de défilement de la barre d'outils contrôle (ScrollBar1).
Comment faire pour imposer la date du jour en valeur Mini et la date du
jour
+ 360 en date Maxi.
Dans les propriétés je ne parviens pas à saisir une formule dans MIN et
MAX...
Comment faire ?
Bonjour Par exemple à adpater : Sub AffecteLesValeurs() With Feuil1.ScrollBar1 .Min = CLng(Now) .Max = CLng(Now + 360) End With End Sub
Puis tu affectes la référence d'une cellule formattée en JJ/MM/AAAA à la propriété Linkedcell de ton contrôle Scrollbar
NB : Attention ici la feuille est identifiée par son CodeName Cordialement Pascal
"Domi" a écrit dans le message de news:%
Bonsoir à tous,
Je souhaite faire défiler dans une cellule (A1) une date. J'utilise pour cela la barre de défilement de la barre d'outils contrôle (ScrollBar1). Comment faire pour imposer la date du jour en valeur Mini et la date du jour
+ 360 en date Maxi. Dans les propriétés je ne parviens pas à saisir une formule dans MIN et MAX... Comment faire ?
Merci Domi
Domi
Excellent ;o) Tu vas me dire que je chipotte... mais pourquoi ma date mini est-elle le 05/09/04 alors que nous somme le 04/09/04 ?. Je n'ai rien changé au code et ma date system est bonne....
Encore merci Domi
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de news:
Bonjour Par exemple à adpater : Sub AffecteLesValeurs() With Feuil1.ScrollBar1 .Min = CLng(Now) .Max = CLng(Now + 360) End With End Sub
Puis tu affectes la référence d'une cellule formattée en JJ/MM/AAAA à la propriété Linkedcell de ton contrôle Scrollbar
NB : Attention ici la feuille est identifiée par son CodeName Cordialement Pascal
"Domi" a écrit dans le message de news:%
Bonsoir à tous,
Je souhaite faire défiler dans une cellule (A1) une date. J'utilise pour cela la barre de défilement de la barre d'outils contrôle (ScrollBar1). Comment faire pour imposer la date du jour en valeur Mini et la date du jour
+ 360 en date Maxi. Dans les propriétés je ne parviens pas à saisir une formule dans MIN et MAX... Comment faire ?
Merci Domi
Excellent ;o)
Tu vas me dire que je chipotte... mais pourquoi ma date mini est-elle le
05/09/04 alors que nous somme le 04/09/04 ?.
Je n'ai rien changé au code et ma date system est bonne....
Encore merci
Domi
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:uRnTpBYkEHA.1904@TK2MSFTNGP09.phx.gbl...
Bonjour
Par exemple à adpater :
Sub AffecteLesValeurs()
With Feuil1.ScrollBar1
.Min = CLng(Now)
.Max = CLng(Now + 360)
End With
End Sub
Puis tu affectes la référence d'une cellule formattée en JJ/MM/AAAA à la
propriété Linkedcell de ton contrôle Scrollbar
NB : Attention ici la feuille est identifiée par son CodeName
Cordialement
Pascal
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23ZLoTWSkEHA.3608@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous,
Je souhaite faire défiler dans une cellule (A1) une date. J'utilise pour
cela la barre de défilement de la barre d'outils contrôle (ScrollBar1).
Comment faire pour imposer la date du jour en valeur Mini et la date du
jour
+ 360 en date Maxi.
Dans les propriétés je ne parviens pas à saisir une formule dans MIN et
MAX...
Comment faire ?
Excellent ;o) Tu vas me dire que je chipotte... mais pourquoi ma date mini est-elle le 05/09/04 alors que nous somme le 04/09/04 ?. Je n'ai rien changé au code et ma date system est bonne....
Encore merci Domi
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de news:
Bonjour Par exemple à adpater : Sub AffecteLesValeurs() With Feuil1.ScrollBar1 .Min = CLng(Now) .Max = CLng(Now + 360) End With End Sub
Puis tu affectes la référence d'une cellule formattée en JJ/MM/AAAA à la propriété Linkedcell de ton contrôle Scrollbar
NB : Attention ici la feuille est identifiée par son CodeName Cordialement Pascal
"Domi" a écrit dans le message de news:%
Bonsoir à tous,
Je souhaite faire défiler dans une cellule (A1) une date. J'utilise pour cela la barre de défilement de la barre d'outils contrôle (ScrollBar1). Comment faire pour imposer la date du jour en valeur Mini et la date du jour
+ 360 en date Maxi. Dans les propriétés je ne parviens pas à saisir une formule dans MIN et MAX... Comment faire ?
Merci Domi
Alain CROS
Bonjour
Sub AffecteLesValeurs() With Feuil1.ScrollBar1 .Min = CLng(Date) .Max = CLng(Date + 360&) End With End Sub
Date renvoie un nombre entier correspondant au jour. Now renvoie un nombre à virgule correspondant au jour pour la partie entière et a l'heure pour la partie décimale. 1 jour = 1, aujourd'hui = 38234. CLng renvoie un entier. Si l'heure est > 12 donc > 0,5 CLng arrondi a l'entier le plus proche donc le lendemain.
Alain CROS
"Domi" a écrit dans le message de news:
Excellent ;o) Tu vas me dire que je chipotte... mais pourquoi ma date mini est-elle le 05/09/04 alors que nous somme le 04/09/04 ?. Je n'ai rien changé au code et ma date system est bonne....
Encore merci Domi
Bonjour
Sub AffecteLesValeurs()
With Feuil1.ScrollBar1
.Min = CLng(Date)
.Max = CLng(Date + 360&)
End With
End Sub
Date renvoie un nombre entier correspondant au jour.
Now renvoie un nombre à virgule correspondant au jour pour la partie entière et a l'heure pour la partie décimale.
1 jour = 1, aujourd'hui = 38234.
CLng renvoie un entier.
Si l'heure est > 12 donc > 0,5
CLng arrondi a l'entier le plus proche donc le lendemain.
Alain CROS
"Domi" <scrat83@free.fr> a écrit dans le message de news: ezL0b3mkEHA.324@TK2MSFTNGP11.phx.gbl...
Excellent ;o)
Tu vas me dire que je chipotte... mais pourquoi ma date mini est-elle le
05/09/04 alors que nous somme le 04/09/04 ?.
Je n'ai rien changé au code et ma date system est bonne....
Sub AffecteLesValeurs() With Feuil1.ScrollBar1 .Min = CLng(Date) .Max = CLng(Date + 360&) End With End Sub
Date renvoie un nombre entier correspondant au jour. Now renvoie un nombre à virgule correspondant au jour pour la partie entière et a l'heure pour la partie décimale. 1 jour = 1, aujourd'hui = 38234. CLng renvoie un entier. Si l'heure est > 12 donc > 0,5 CLng arrondi a l'entier le plus proche donc le lendemain.
Alain CROS
"Domi" a écrit dans le message de news:
Excellent ;o) Tu vas me dire que je chipotte... mais pourquoi ma date mini est-elle le 05/09/04 alors que nous somme le 04/09/04 ?. Je n'ai rien changé au code et ma date system est bonne....
Encore merci Domi
Domi
CQFD. Merci beaucoup pour la soluce et les explications ;o) Domi
"Alain CROS" a écrit dans le message de news:
Bonjour
Sub AffecteLesValeurs() With Feuil1.ScrollBar1 .Min = CLng(Date) .Max = CLng(Date + 360&) End With End Sub
Date renvoie un nombre entier correspondant au jour. Now renvoie un nombre à virgule correspondant au jour pour la partie entière et a l'heure pour la partie décimale.
1 jour = 1, aujourd'hui = 38234. CLng renvoie un entier. Si l'heure est > 12 donc > 0,5 CLng arrondi a l'entier le plus proche donc le lendemain.
Alain CROS
"Domi" a écrit dans le message de news:
Excellent ;o) Tu vas me dire que je chipotte... mais pourquoi ma date mini est-elle le 05/09/04 alors que nous somme le 04/09/04 ?. Je n'ai rien changé au code et ma date system est bonne....
Encore merci Domi
CQFD.
Merci beaucoup pour la soluce et les explications ;o)
Domi
"Alain CROS" <Personne@ICI> a écrit dans le message de
news:uZLfbsnkEHA.1644@tk2msftngp13.phx.gbl...
Bonjour
Sub AffecteLesValeurs()
With Feuil1.ScrollBar1
.Min = CLng(Date)
.Max = CLng(Date + 360&)
End With
End Sub
Date renvoie un nombre entier correspondant au jour.
Now renvoie un nombre à virgule correspondant au jour pour la partie
entière et a l'heure pour la partie décimale.
1 jour = 1, aujourd'hui = 38234.
CLng renvoie un entier.
Si l'heure est > 12 donc > 0,5
CLng arrondi a l'entier le plus proche donc le lendemain.
Alain CROS
"Domi" <scrat83@free.fr> a écrit dans le message de news:
ezL0b3mkEHA.324@TK2MSFTNGP11.phx.gbl...
Excellent ;o)
Tu vas me dire que je chipotte... mais pourquoi ma date mini est-elle le
05/09/04 alors que nous somme le 04/09/04 ?.
Je n'ai rien changé au code et ma date system est bonne....
CQFD. Merci beaucoup pour la soluce et les explications ;o) Domi
"Alain CROS" a écrit dans le message de news:
Bonjour
Sub AffecteLesValeurs() With Feuil1.ScrollBar1 .Min = CLng(Date) .Max = CLng(Date + 360&) End With End Sub
Date renvoie un nombre entier correspondant au jour. Now renvoie un nombre à virgule correspondant au jour pour la partie entière et a l'heure pour la partie décimale.
1 jour = 1, aujourd'hui = 38234. CLng renvoie un entier. Si l'heure est > 12 donc > 0,5 CLng arrondi a l'entier le plus proche donc le lendemain.
Alain CROS
"Domi" a écrit dans le message de news:
Excellent ;o) Tu vas me dire que je chipotte... mais pourquoi ma date mini est-elle le 05/09/04 alors que nous somme le 04/09/04 ?. Je n'ai rien changé au code et ma date system est bonne....
