Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Excel

Date de ref

Le
IMER09
Bonjour à tous

Dans un Uf je voudrai qu'a son ouverture ChecBox1 soit True si la date du
jour est superieur au 15 octobre
Sachant que j'utilise le fichier ds lequel ce trouve l'Uf du 10/08/2008 AU
30/06/2009
l'annee suivante j'utilise une copie de ce fichier vierge et les date seront
donc du
10/08/2009 AU 30/06/2010

je ne veux pas avoir a entree en debut d'utilisation du fichier la nouvelle
date d'echeance, je voudrai que ce soit automatique

Merci
--
IMER09
Lire les 4 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17603991
Bonsoir.
Essaie :
If Date < DateSerial(Year(Date), 10, 15) Then
MsgBox "date antérieure au 15/10"
End If
Daniel

IMER09 a écrit :
Bonjour à tous

Dans un Uf je voudrai qu'a son ouverture ChecBox1 soit True si la date du
jour est superieur au 15 octobre
Sachant que j'utilise le fichier ds lequel ce trouve l'Uf du 10/08/2008 AU
30/06/2009
l'annee suivante j'utilise une copie de ce fichier vierge et les date seront
donc du
10/08/2009 AU 30/06/2010

je ne veux pas avoir a entree en debut d'utilisation du fichier la nouvelle
date d'echeance, je voudrai que ce soit automatique

Merci


Répondre en citant
IMER09
Le #17606291
Merci Daniel.C

J'ai mis ton code dans :
Private Sub UserForm_Activate()
If Date < DateSerial(Year(Date), 10, 15) Then
CheckBox1 =True
End If
End Sub

Mais je n'ai aucun resultat !
Est ce que j'ai fait ce qu'il fallait ?

Merci

--
IMER09


"Daniel.C" wrote:

Bonsoir.
Essaie :
If Date < DateSerial(Year(Date), 10, 15) Then
MsgBox "date antérieure au 15/10"
End If
Daniel

IMER09 a écrit :
> Bonjour à tous
>
> Dans un Uf je voudrai qu'a son ouverture ChecBox1 soit True si la date du
> jour est superieur au 15 octobre
> Sachant que j'utilise le fichier ds lequel ce trouve l'Uf du 10/08/2008 AU
> 30/06/2009
> l'annee suivante j'utilise une copie de ce fichier vierge et les date seront
> donc du
> 10/08/2009 AU 30/06/2010
>
> je ne veux pas avoir a entree en debut d'utilisation du fichier la nouvelle
> date d'echeance, je voudrai que ce soit automatique
>
> Merci



Répondre en citant
Daniel.C
Le #17606541
Tel que j'ai écrit le test, la condition est remplie si la date est
inférieure au 15/10. Il faut donc l'inverser :
If Date > DateSerial(Year(Date), 10, 15) Then
--
Cordialement.
Daniel
"IMER09"
Merci Daniel.C

J'ai mis ton code dans :
Private Sub UserForm_Activate()
If Date < DateSerial(Year(Date), 10, 15) Then
CheckBox1 =True
End If
End Sub

Mais je n'ai aucun resultat !
Est ce que j'ai fait ce qu'il fallait ?

Merci

--
IMER09


"Daniel.C" wrote:

Bonsoir.
Essaie :
If Date < DateSerial(Year(Date), 10, 15) Then
MsgBox "date antérieure au 15/10"
End If
Daniel

IMER09 a écrit :
> Bonjour à tous
>
> Dans un Uf je voudrai qu'a son ouverture ChecBox1 soit True si la date
> du
> jour est superieur au 15 octobre
> Sachant que j'utilise le fichier ds lequel ce trouve l'Uf du 10/08/2008
> AU
> 30/06/2009
> l'annee suivante j'utilise une copie de ce fichier vierge et les date
> seront
> donc du
> 10/08/2009 AU 30/06/2010
>
> je ne veux pas avoir a entree en debut d'utilisation du fichier la
> nouvelle
> date d'echeance, je voudrai que ce soit automatique
>
> Merci





Répondre en citant
IMER09
Le #17607601
OK j'avais pas fait attention, je te remerci pour ta patience

J' ai modifie quelque peu, car quand j'ouvrirai mon uf en janvier 2009
monCheckBox
ne sera pas coché.
En A11 je recupere le chiffre 2008 qui fait partie de mon nom de Dossier
dans lequel se trouve mon fichier:

If Date > DateSerial(Range("A11").Value, 10, 15) Then
CheckBox1 = True
End If

je pense que c'est correct !

Merci
--
IMER09


"Daniel.C" wrote:

Tel que j'ai écrit le test, la condition est remplie si la date est
inférieure au 15/10. Il faut donc l'inverser :
If Date > DateSerial(Year(Date), 10, 15) Then
--
Cordialement.
Daniel
"IMER09"
> Merci Daniel.C
>
> J'ai mis ton code dans :
> Private Sub UserForm_Activate()
> If Date < DateSerial(Year(Date), 10, 15) Then
> CheckBox1 =True
> End If
> End Sub
>
> Mais je n'ai aucun resultat !
> Est ce que j'ai fait ce qu'il fallait ?
>
> Merci
>
> --
> IMER09
>
>
> "Daniel.C" wrote:
>
>> Bonsoir.
>> Essaie :
>> If Date < DateSerial(Year(Date), 10, 15) Then
>> MsgBox "date antérieure au 15/10"
>> End If
>> Daniel
>>
>> IMER09 a écrit :
>> > Bonjour à tous
>> >
>> > Dans un Uf je voudrai qu'a son ouverture ChecBox1 soit True si la date
>> > du
>> > jour est superieur au 15 octobre
>> > Sachant que j'utilise le fichier ds lequel ce trouve l'Uf du 10/08/2008
>> > AU
>> > 30/06/2009
>> > l'annee suivante j'utilise une copie de ce fichier vierge et les date
>> > seront
>> > donc du
>> > 10/08/2009 AU 30/06/2010
>> >
>> > je ne veux pas avoir a entree en debut d'utilisation du fichier la
>> > nouvelle
>> > date d'echeance, je voudrai que ce soit automatique
>> >
>> > Merci
>>





Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme