probleme de date

FxM

08/10/2006 à 21:59

Bonsoir,

Me semble que le problème est plutôt à chercher de ce coté :
X-Newsreader: Microsoft Outlook Express 6.00.2900.2869

Bonsoir xM,

J'osais pas mais...

Bonsoir L,

mais ... ??

Il est notoire qu'OE a une fâcheuse tendance à ce que certains de ses
messages news passent on ne sait où.
- Seule solution OE : se désabonner, rebooter le pc, se réabboner et
recharger le groupe.
- Solutions alternatives : prendre autre chose qu'OE.
TB, MesNews ou autre fonctionnent plutôt bien sans rien perdre.

... faut oser :o)

@+
xM

FxM

08/10/2006 à 22:37

Bonsoir Alain,

Texte applicable en France et, à défaut de réglementation spécifique :
http://vosdroits.service-public.fr/particuliers/F2211.xhtml

Tu vas voir que, dans le cas général, les visites peuvent maintenant
avoir un intervalle de 24 mois. Plus assez de médecins du travail et qui
dit moins de contrôles dit moins de problèmes :o( (beurk)

@+
FxM

bonsoir
donc je confirme que je ne vois pas mon premier post,
par contre en passant par google j'ai vu le fil
donc:
je saisie des dates de visite medicale qui son valables 1 an
donc je saisie la date a laquelle est passée la visite, elle doit
s'incermentée
je suis d'accord sue le fait qu'il est facile de mettre directement la date
directement
AL1

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

Bonjour,

Ajoute 1 année à la date saisie:

http://cjoint.com/?kiqo1AugDB

On suppose que la date est saisie en colonne 1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If Target <> "" Then
m = Month(Target)
Target = DateSerial(Year(Target) + 1, Month(Target),
Day(Target))
If Month(Target) <> m Then Target = Target - 1 ' année
bissextile 29/2/2004 par ex
End If
Application.EnableEvents = True
End If
End Sub

Target.Count pour éviter les erreurs si effacement de plusieurs
cellules simultanément ou recopie d'une cellule avec la poignée de
recopie.

Cordialement JB

bonjour
j'ai des cellules ou je dois rentrer des dates jj/mm/aa
je voudrais que la date que je rentre soit incrementé de 365 jous (1 an)
automatiquement
comment doit je mis prendre
merci
AL1

DarthMac

08/10/2006 à 22:50

hello alain,

il semble que tu fasses du suivi de visites médicales... c'est aussi mon
cas. Je trouve qu'il est préférable de garder la trace de la date de
dernière visite, quitte à ce que la date de prochaine visite soit dans une
autre colonne, quitte aussi à avoir une macro d'alerte qui vérifie les dates
à chaque ouverture du fichier pour indiquer celles qui sont dans (par
exemple) moins d'un mois afin de convoquer les gens... Encore autre chose :
la possibilité d'utiliser une mise en forme conditionnelle (ce que j'utilise
maintenant dans mon fichier de suivi) pour mettre dans une couleur les
personnes à convoquer sous un mois (encore une fois par exemple), puis sous
1 semaine (au cas où on aurait oublié de le convoquer).

Bref, la traçabilité de la précédente date de visite, que tu perdrais par ce
que tu veux faire, me semble importante.

Mac

"alain.suinot" a écrit dans le message de news:
%23Nr$

bonsoir
donc je confirme que je ne vois pas mon premier post,
par contre en passant par google j'ai vu le fil
donc:
je saisie des dates de visite medicale qui son valables 1 an
donc je saisie la date a laquelle est passée la visite, elle doit
s'incermentée
je suis d'accord sue le fait qu'il est facile de mettre directement la
date directement
AL1

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

Bonjour,

Ajoute 1 année à la date saisie:

http://cjoint.com/?kiqo1AugDB

On suppose que la date est saisie en colonne 1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If Target <> "" Then
m = Month(Target)
Target = DateSerial(Year(Target) + 1, Month(Target),
Day(Target))
If Month(Target) <> m Then Target = Target - 1 ' année
bissextile 29/2/2004 par ex
End If
Application.EnableEvents = True
End If
End Sub

Target.Count pour éviter les erreurs si effacement de plusieurs
cellules simultanément ou recopie d'une cellule avec la poignée de
recopie.

Cordialement JB

bonjour
j'ai des cellules ou je dois rentrer des dates jj/mm/aa
je voudrais que la date que je rentre soit incrementé de 365 jous (1 an)
automatiquement
comment doit je mis prendre
merci
AL1

hello alain,

il semble que tu fasses du suivi de visites médicales... c'est aussi mon
cas. Je trouve qu'il est préférable de garder la trace de la date de
dernière visite, quitte à ce que la date de prochaine visite soit dans une
autre colonne, quitte aussi à avoir une macro d'alerte qui vérifie les dates
à chaque ouverture du fichier pour indiquer celles qui sont dans (par
exemple) moins d'un mois afin de convoquer les gens... Encore autre chose :
la possibilité d'utiliser une mise en forme conditionnelle (ce que j'utilise
maintenant dans mon fichier de suivi) pour mettre dans une couleur les
personnes à convoquer sous un mois (encore une fois par exemple), puis sous
1 semaine (au cas où on aurait oublié de le convoquer).

Bref, la traçabilité de la précédente date de visite, que tu perdrais par ce
que tu veux faire, me semble importante.

Mac

"alain.suinot" <alain.suinot@wanadoo.fr> a écrit dans le message de news:
%23Nr$Ecw6GHA.3836@TK2MSFTNGP02.phx.gbl...

bonsoir
donc je confirme que je ne vois pas mon premier post,
par contre en passant par google j'ai vu le fil
donc:
je saisie des dates de visite medicale qui son valables 1 an
donc je saisie la date a laquelle est passée la visite, elle doit
s'incermentée
je suis d'accord sue le fait qu'il est facile de mettre directement la
date directement
AL1

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1160317089.361381.223610@k70g2000cwa.googlegroups.com...
Bonjour,

Ajoute 1 année à la date saisie:

http://cjoint.com/?kiqo1AugDB

On suppose que la date est saisie en colonne 1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If Target <> "" Then
m = Month(Target)
Target = DateSerial(Year(Target) + 1, Month(Target),
Day(Target))
If Month(Target) <> m Then Target = Target - 1 ' année
bissextile 29/2/2004 par ex
End If
Application.EnableEvents = True
End If
End Sub

Target.Count pour éviter les erreurs si effacement de plusieurs
cellules simultanément ou recopie d'une cellule avec la poignée de
recopie.

Cordialement JB

bonjour
j'ai des cellules ou je dois rentrer des dates jj/mm/aa
je voudrais que la date que je rentre soit incrementé de 365 jous (1 an)
automatiquement
comment doit je mis prendre
merci
AL1

Vous avez filtré cet utilisateur ! Consultez son message

hello alain,

il semble que tu fasses du suivi de visites médicales... c'est aussi mon
cas. Je trouve qu'il est préférable de garder la trace de la date de
dernière visite, quitte à ce que la date de prochaine visite soit dans une
autre colonne, quitte aussi à avoir une macro d'alerte qui vérifie les dates
à chaque ouverture du fichier pour indiquer celles qui sont dans (par
exemple) moins d'un mois afin de convoquer les gens... Encore autre chose :
la possibilité d'utiliser une mise en forme conditionnelle (ce que j'utilise
maintenant dans mon fichier de suivi) pour mettre dans une couleur les
personnes à convoquer sous un mois (encore une fois par exemple), puis sous
1 semaine (au cas où on aurait oublié de le convoquer).

Bref, la traçabilité de la précédente date de visite, que tu perdrais par ce
que tu veux faire, me semble importante.

Mac

"alain.suinot" a écrit dans le message de news:
%23Nr$

bonsoir
donc je confirme que je ne vois pas mon premier post,
par contre en passant par google j'ai vu le fil
donc:
je saisie des dates de visite medicale qui son valables 1 an
donc je saisie la date a laquelle est passée la visite, elle doit
s'incermentée
je suis d'accord sue le fait qu'il est facile de mettre directement la
date directement
AL1

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

Bonjour,

Ajoute 1 année à la date saisie:

http://cjoint.com/?kiqo1AugDB

On suppose que la date est saisie en colonne 1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If Target <> "" Then
m = Month(Target)
Target = DateSerial(Year(Target) + 1, Month(Target),
Day(Target))
If Month(Target) <> m Then Target = Target - 1 ' année
bissextile 29/2/2004 par ex
End If
Application.EnableEvents = True
End If
End Sub

Target.Count pour éviter les erreurs si effacement de plusieurs
cellules simultanément ou recopie d'une cellule avec la poignée de
recopie.

Cordialement JB

bonjour
j'ai des cellules ou je dois rentrer des dates jj/mm/aa
je voudrais que la date que je rentre soit incrementé de 365 jous (1 an)
automatiquement
comment doit je mis prendre
merci
AL1

DarthMac

08/10/2006 à 22:56

FxM,

tu oublies le personnel soumis à des risques spécifiques... chez moi c'est +
de 150 salariés / 185 ...

Mac

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

Bonsoir Alain,

Texte applicable en France et, à défaut de réglementation spécifique :
http://vosdroits.service-public.fr/particuliers/F2211.xhtml

Tu vas voir que, dans le cas général, les visites peuvent maintenant avoir
un intervalle de 24 mois. Plus assez de médecins du travail et qui dit
moins de contrôles dit moins de problèmes :o( (beurk)

@+
FxM

bonsoir
donc je confirme que je ne vois pas mon premier post,
par contre en passant par google j'ai vu le fil
donc:
je saisie des dates de visite medicale qui son valables 1 an
donc je saisie la date a laquelle est passée la visite, elle doit
s'incermentée
je suis d'accord sue le fait qu'il est facile de mettre directement la
date directement
AL1

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

Bonjour,

Ajoute 1 année à la date saisie:

http://cjoint.com/?kiqo1AugDB

On suppose que la date est saisie en colonne 1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If Target <> "" Then
m = Month(Target)
Target = DateSerial(Year(Target) + 1, Month(Target),
Day(Target))
If Month(Target) <> m Then Target = Target - 1 ' année
bissextile 29/2/2004 par ex
End If
Application.EnableEvents = True
End If
End Sub

Target.Count pour éviter les erreurs si effacement de plusieurs
cellules simultanément ou recopie d'une cellule avec la poignée de
recopie.

Cordialement JB

bonjour
j'ai des cellules ou je dois rentrer des dates jj/mm/aa
je voudrais que la date que je rentre soit incrementé de 365 jous (1 an)
automatiquement
comment doit je mis prendre
merci
AL1

FxM

09/10/2006 à 10:04

Bonjour Mac,

On va dire qu'il se faisait tard : relis la phrase au-dessus du lien :o)

@+
FxM

FxM,

tu oublies le personnel soumis à des risques spécifiques... chez moi c'est +
de 150 salariés / 185 ...

Mac

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

Bonsoir Alain,

Texte applicable en France et, à défaut de réglementation spécifique :
http://vosdroits.service-public.fr/particuliers/F2211.xhtml

Tu vas voir que, dans le cas général, les visites peuvent maintenant avoir
un intervalle de 24 mois. Plus assez de médecins du travail et qui dit
moins de contrôles dit moins de problèmes :o( (beurk)

@+
FxM

bonsoir
donc je confirme que je ne vois pas mon premier post,
par contre en passant par google j'ai vu le fil
donc:
je saisie des dates de visite medicale qui son valables 1 an
donc je saisie la date a laquelle est passée la visite, elle doit
s'incermentée
je suis d'accord sue le fait qu'il est facile de mettre directement la
date directement
AL1

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

Bonjour,

Ajoute 1 année à la date saisie:

http://cjoint.com/?kiqo1AugDB

On suppose que la date est saisie en colonne 1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If Target <> "" Then
m = Month(Target)
Target = DateSerial(Year(Target) + 1, Month(Target),
Day(Target))
If Month(Target) <> m Then Target = Target - 1 ' année
bissextile 29/2/2004 par ex
End If
Application.EnableEvents = True
End If
End Sub

Target.Count pour éviter les erreurs si effacement de plusieurs
cellules simultanément ou recopie d'une cellule avec la poignée de
recopie.

Cordialement JB

bonjour
j'ai des cellules ou je dois rentrer des dates jj/mm/aa
je voudrais que la date que je rentre soit incrementé de 365 jous (1 an)
automatiquement
comment doit je mis prendre
merci
AL1

Bonjour Mac,

On va dire qu'il se faisait tard : relis la phrase au-dessus du lien :o)

@+
FxM

FxM,

tu oublies le personnel soumis à des risques spécifiques... chez moi c'est +
de 150 salariés / 185 ...

Mac

"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
evOhLpx6GHA.4608@TK2MSFTNGP03.phx.gbl...

Bonsoir Alain,

Texte applicable en France et, à défaut de réglementation spécifique :
http://vosdroits.service-public.fr/particuliers/F2211.xhtml

Tu vas voir que, dans le cas général, les visites peuvent maintenant avoir
un intervalle de 24 mois. Plus assez de médecins du travail et qui dit
moins de contrôles dit moins de problèmes :o( (beurk)

@+
FxM

bonsoir
donc je confirme que je ne vois pas mon premier post,
par contre en passant par google j'ai vu le fil
donc:
je saisie des dates de visite medicale qui son valables 1 an
donc je saisie la date a laquelle est passée la visite, elle doit
s'incermentée
je suis d'accord sue le fait qu'il est facile de mettre directement la
date directement
AL1

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1160317089.361381.223610@k70g2000cwa.googlegroups.com...
Bonjour,

Ajoute 1 année à la date saisie:

http://cjoint.com/?kiqo1AugDB

On suppose que la date est saisie en colonne 1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If Target <> "" Then
m = Month(Target)
Target = DateSerial(Year(Target) + 1, Month(Target),
Day(Target))
If Month(Target) <> m Then Target = Target - 1 ' année
bissextile 29/2/2004 par ex
End If
Application.EnableEvents = True
End If
End Sub

Target.Count pour éviter les erreurs si effacement de plusieurs
cellules simultanément ou recopie d'une cellule avec la poignée de
recopie.

Cordialement JB

bonjour
j'ai des cellules ou je dois rentrer des dates jj/mm/aa
je voudrais que la date que je rentre soit incrementé de 365 jous (1 an)
automatiquement
comment doit je mis prendre
merci
AL1

alain.suinot

09/10/2006 à 18:30

bonsoir
je suis d'accord pour des solutions alternatives a OE, je vais chercher
(j'utilise deja firefox)
pour etre plus clair, la visite medicale est liée au "sport" que je pratique
(plongée sous marine),
la visite medicale est donc valable 1 an (c'est marqué dans les textes)
je cherchais plutot une fonction, mais apparament rien ne correspond
merci de vos contributions
AL1

"FxM" a écrit dans le message de news:
%

Bonjour Mac,

On va dire qu'il se faisait tard : relis la phrase au-dessus du lien :o)

@+
FxM

FxM,

tu oublies le personnel soumis à des risques spécifiques... chez moi
c'est + de 150 salariés / 185 ...

Mac

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

Bonsoir Alain,

Texte applicable en France et, à défaut de réglementation spécifique :
http://vosdroits.service-public.fr/particuliers/F2211.xhtml

Tu vas voir que, dans le cas général, les visites peuvent maintenant
avoir un intervalle de 24 mois. Plus assez de médecins du travail et qui
dit moins de contrôles dit moins de problèmes :o( (beurk)

@+
FxM

FxM

09/10/2006 à 18:46

Bonsoir,

attention aux coupures de lignes

Public function prochaine_visite_avant (date_visite, optional
report_an,optional report_mois)

if ismissing(report_an) then report_an=1
if ismissing(report_mois) then report_mois=0

a = dateserial(year(date_visite)+report_an, _
month(date_visite) + report_mois, _
day(date_visite)-1)
prochaine_visite_avant =a
end function

Avec la date de la dernière visite en A1 :
* pour repousser d'un an :
=prochaine_visite_avant(A1,1)
ou
=prochaine_visite_avant(A1,,12)

*pour 18 mois :
=prochaine_visite_avant(A1,1,6)
ou
=prochaine_visite_avant(A1,,18)

@+
FxM

bonsoir
je suis d'accord pour des solutions alternatives a OE, je vais chercher
(j'utilise deja firefox)
pour etre plus clair, la visite medicale est liée au "sport" que je pratique
(plongée sous marine),
la visite medicale est donc valable 1 an (c'est marqué dans les textes)
je cherchais plutot une fonction, mais apparament rien ne correspond
merci de vos contributions
AL1

"FxM" a écrit dans le message de news:
%
Bonjour Mac,

On va dire qu'il se faisait tard : relis la phrase au-dessus du lien :o)

@+
FxM

FxM,

tu oublies le personnel soumis à des risques spécifiques... chez moi
c'est + de 150 salariés / 185 ...

Mac

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

Bonsoir Alain,

Texte applicable en France et, à défaut de réglementation spécifique :
http://vosdroits.service-public.fr/particuliers/F2211.xhtml

Tu vas voir que, dans le cas général, les visites peuvent maintenant
avoir un intervalle de 24 mois. Plus assez de médecins du travail et qui
dit moins de contrôles dit moins de problèmes :o( (beurk)

@+
FxM

Francois L

09/10/2006 à 19:12

bonsoir
je suis d'accord pour des solutions alternatives a OE, je vais chercher
(j'utilise deja firefox)
pour etre plus clair, la visite medicale est liée au "sport" que je pratique
(plongée sous marine),
la visite medicale est donc valable 1 an (c'est marqué dans les textes)
je cherchais plutot une fonction, mais apparament rien ne correspond
merci de vos contributions
AL1

Bonsoir,

Une fonction personnalisée + une MEFC, voir l'exemple là
http://cjoint.com/?kjtocB0PK3

exemple simplissime à améliorer.

Sinon, si tu utilises déjà Firefox, alors pourquoi pas Thunderbird pour
suivre les forum, il fait ça plutôt bien.

--
François L

alain.suinot

10/10/2006 à 17:55

bonsoir
ca s'est plutot cool,
et je vais voir pour thunberbird
merci
AL1
"Francois L" a écrit dans le message de news:

bonsoir
je suis d'accord pour des solutions alternatives a OE, je vais chercher
(j'utilise deja firefox)
pour etre plus clair, la visite medicale est liée au "sport" que je
pratique (plongée sous marine),
la visite medicale est donc valable 1 an (c'est marqué dans les textes)
je cherchais plutot une fonction, mais apparament rien ne correspond
merci de vos contributions
AL1

Bonsoir,

Une fonction personnalisée + une MEFC, voir l'exemple là
http://cjoint.com/?kjtocB0PK3

exemple simplissime à améliorer.

Sinon, si tu utilises déjà Firefox, alors pourquoi pas Thunderbird pour
suivre les forum, il fait ça plutôt bien.

--
François L

alain

10/10/2006 à 18:36

bonsoir
ca s'est plutot cool,
et je vais voir pour thunberbird
merci
AL1
"Francois L" a écrit dans le message de news:

bonsoir
je suis d'accord pour des solutions alternatives a OE, je vais chercher
(j'utilise deja firefox)
pour etre plus clair, la visite medicale est liée au "sport" que je
pratique (plongée sous marine),
la visite medicale est donc valable 1 an (c'est marqué dans les textes)
je cherchais plutot une fonction, mais apparament rien ne correspond
merci de vos contributions
AL1
Bonsoir,

Une fonction personnalisée + une MEFC, voir l'exemple là
http://cjoint.com/?kjtocB0PK3

exemple simplissime à améliorer.

Sinon, si tu utilises déjà Firefox, alors pourquoi pas Thunderbird pour
suivre les forum, il fait ça plutôt bien.

--
François L

eh bien voila, thunderbird telechargé et installé

AL1

probleme de date

10 réponses

Veuillez sélectionner un problème