probleme de date

Francois L

08/10/2006 à 15:56

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,

Plusieurs réponses et un début de débat en réponse à cette question que
tu as déjà posée. Vas voir les réponses...

--
François L

JB

08/10/2006 à 16:18

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

08/10/2006 à 20:08

merci, mais le premier message que j'ai posté, je le vois pas,
c'est pourquoi j'ai reposté, desolé
AL1
"Francois L" a écrit dans le message de news:

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,

Plusieurs réponses et un début de débat en réponse à cette question que tu
as déjà posée. Vas voir les réponses...

--
François L

alain.suinot

08/10/2006 à 20:24

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

JB

08/10/2006 à 20:26

Et la réponse qui est dessous, tu ne la vois pas non plus!

JB

merci, mais le premier message que j'ai posté, je le vois pas,
c'est pourquoi j'ai reposté, desolé
AL1
"Francois L" a écrit dans le message de news:

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,

Plusieurs réponses et un début de débat en réponse à cette qu estion que tu
as déjà posée. Vas voir les réponses...

--
François L

alain.suinot

08/10/2006 à 20:31

ok, je vois la reponse, c'est quand meme bizarre
Merci

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

Et la réponse qui est dessous, tu ne la vois pas non plus!

JB

merci, mais le premier message que j'ai posté, je le vois pas,
c'est pourquoi j'ai reposté, desolé
AL1
"Francois L" a écrit dans le message de
news:

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,

Plusieurs réponses et un début de débat en réponse à cette question que
tu
as déjà posée. Vas voir les réponses...

--
François L

Francois L

08/10/2006 à 20:34

ok, je vois la reponse, c'est quand meme bizarre
Merci

Re,

Est-ce que tu utilises le serveur de Microsoft ou sa réplication par ton
FAI ?

--
François L

alain.suinot

08/10/2006 à 20:56

a priori le serveur krosoft
AL1
"Francois L" a écrit dans le message de news:

ok, je vois la reponse, c'est quand meme bizarre
Merci

Re,

Est-ce que tu utilises le serveur de Microsoft ou sa réplication par ton
FAI ?

--
François L

FxM

08/10/2006 à 21:03

ok, je vois la reponse, c'est quand meme bizarre
Merci

Re,

Est-ce que tu utilises le serveur de Microsoft ou sa réplication par ton
FAI ?

Bonsoir,

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

@+
FxM

Francois L

08/10/2006 à 21:34

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...

--
L

probleme de date

10 réponses

Veuillez sélectionner un problème