bonjour
j'ai des cellules ou je dois rentrer des dates jj/mm/aa
je voudrai que la date que je rentre soit incrementé de 365 jous
automatiquement
comment doit je mis prendre
merci
AL1
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
Francois L
bonjour j'ai des cellules ou je dois rentrer des dates jj/mm/aa je voudrai que la date que je rentre soit incrementé de 365 jous automatiquement comment doit je mis prendre merci AL1
Bonjour,
Avant de répondre, trois questions - il s'agit bien de remplacer la date saisie par cette date + 365 jours ? - c'est + 365 jours où + 1 an ? - y-a-t'il une zone particulière ou ces date sont saisies (une ligne, une colonne, un groupe de cellule, etc.)
-- François L
bonjour
j'ai des cellules ou je dois rentrer des dates jj/mm/aa
je voudrai que la date que je rentre soit incrementé de 365 jous
automatiquement
comment doit je mis prendre
merci
AL1
Bonjour,
Avant de répondre, trois questions
- il s'agit bien de remplacer la date saisie par cette date + 365 jours ?
- c'est + 365 jours où + 1 an ?
- y-a-t'il une zone particulière ou ces date sont saisies (une ligne,
une colonne, un groupe de cellule, etc.)
bonjour j'ai des cellules ou je dois rentrer des dates jj/mm/aa je voudrai que la date que je rentre soit incrementé de 365 jous automatiquement comment doit je mis prendre merci AL1
Bonjour,
Avant de répondre, trois questions - il s'agit bien de remplacer la date saisie par cette date + 365 jours ? - c'est + 365 jours où + 1 an ? - y-a-t'il une zone particulière ou ces date sont saisies (une ligne, une colonne, un groupe de cellule, etc.)
-- François L
JB
Bonjour,
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) Application.EnableEvents = True End If End Sub
Cordialement JB
bonjour j'ai des cellules ou je dois rentrer des dates jj/mm/aa je voudrai que la date que je rentre soit incrementé de 365 jous automatiquement comment doit je mis prendre merci AL1
Bonjour,
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target))
Application.EnableEvents = True
End If
End Sub
Cordialement JB
bonjour
j'ai des cellules ou je dois rentrer des dates jj/mm/aa
je voudrai que la date que je rentre soit incrementé de 365 jous
automatiquement
comment doit je mis prendre
merci
AL1
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) Application.EnableEvents = True End If End Sub
Cordialement JB
bonjour j'ai des cellules ou je dois rentrer des dates jj/mm/aa je voudrai que la date que je rentre soit incrementé de 365 jous automatiquement comment doit je mis prendre merci AL1
Francois L
Bonjour,
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) Application.EnableEvents = True End If End Sub
Bonsoir,
Oui mais, s'il y a une année bissextile !
-- François L pinailleur :-)
Bonjour,
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target))
Application.EnableEvents = True
End If
End Sub
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) Application.EnableEvents = True End If End Sub
Bonsoir,
Oui mais, s'il y a une année bissextile !
-- François L pinailleur :-)
JB
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then m = Month(Target) Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) If Month(Target) <> m Then Target = Target - 1 Application.EnableEvents = True End If End Sub
JB
Bonjour,
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) Application.EnableEvents = True End If End Sub
Bonsoir,
Oui mais, s'il y a une année bissextile !
-- François L pinailleur :-)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
m = Month(Target)
Application.EnableEvents = False
Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target))
If Month(Target) <> m Then Target = Target - 1
Application.EnableEvents = True
End If
End Sub
JB
Bonjour,
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target))
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then m = Month(Target) Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) If Month(Target) <> m Then Target = Target - 1 Application.EnableEvents = True End If End Sub
JB
Bonjour,
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) Application.EnableEvents = True End If End Sub
Bonsoir,
Oui mais, s'il y a une année bissextile !
-- François L pinailleur :-)
MichDenis
Tu me permettras ce petit commentaire pour le bénéfice des lecteurs :
A ) La procédure ne s'assure pas que l'entrée saisie est une date avec par exemple : If isdate(target) then conséquence : si l'usager fait une faute en saisissant un format de date erronée, il aura un message d'erreur de type 13 probablement incompréhensible pour lui...Tandis que le isdate() permet de renvoyer un message clair dans le Else de ce dernier en cas d'erreur.
B ) And Target.Count = 1 C'est quand même très limitatif : Une cellule à la fois - Ne permet aucun copier coller de plus d'une cellule - Ne permet pas non plus d'utiliser la croix de recopie sur plus d'une cellule à la fois... Ceci étant, peut être certaine application exige-t-elle ces restrictions ...
"JB" a écrit dans le message de news:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then m = Month(Target) Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) If Month(Target) <> m Then Target = Target - 1 Application.EnableEvents = True End If End Sub
JB
Bonjour,
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) Application.EnableEvents = True End If End Sub
Bonsoir,
Oui mais, s'il y a une année bissextile !
-- François L pinailleur :-)
Tu me permettras ce petit commentaire pour le bénéfice des lecteurs :
A ) La procédure ne s'assure pas que l'entrée saisie est une date
avec par exemple : If isdate(target) then
conséquence : si l'usager fait une faute en saisissant un format
de date erronée, il aura un message d'erreur de type 13
probablement incompréhensible pour lui...Tandis que le isdate()
permet de renvoyer un message clair dans le Else de ce dernier
en cas d'erreur.
B ) And Target.Count = 1
C'est quand même très limitatif : Une cellule à la fois
- Ne permet aucun copier coller de plus d'une cellule
- Ne permet pas non plus d'utiliser la croix de recopie
sur plus d'une cellule à la fois...
Ceci étant, peut être certaine application exige-t-elle ces restrictions ...
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1160305485.577358.262010@e3g2000cwe.googlegroups.com...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
m = Month(Target)
Application.EnableEvents = False
Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target))
If Month(Target) <> m Then Target = Target - 1
Application.EnableEvents = True
End If
End Sub
JB
Bonjour,
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target))
Application.EnableEvents = True
End If
End Sub
Tu me permettras ce petit commentaire pour le bénéfice des lecteurs :
A ) La procédure ne s'assure pas que l'entrée saisie est une date avec par exemple : If isdate(target) then conséquence : si l'usager fait une faute en saisissant un format de date erronée, il aura un message d'erreur de type 13 probablement incompréhensible pour lui...Tandis que le isdate() permet de renvoyer un message clair dans le Else de ce dernier en cas d'erreur.
B ) And Target.Count = 1 C'est quand même très limitatif : Une cellule à la fois - Ne permet aucun copier coller de plus d'une cellule - Ne permet pas non plus d'utiliser la croix de recopie sur plus d'une cellule à la fois... Ceci étant, peut être certaine application exige-t-elle ces restrictions ...
"JB" a écrit dans le message de news:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then m = Month(Target) Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) If Month(Target) <> m Then Target = Target - 1 Application.EnableEvents = True End If End Sub
JB
Bonjour,
On suppose que les dates sont saisies dans la colonne A:
Clic-droit onglet puis visualiser le code.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) Application.EnableEvents = True End If End Sub
Bonsoir,
Oui mais, s'il y a une année bissextile !
-- François L pinailleur :-)
Francois L
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then m = Month(Target) Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) If Month(Target) <> m Then Target = Target - 1 Application.EnableEvents = True End If End Sub
Re,
En fait, nous ne savons pas vraiment ce que le questionneur voulait...
S'il veut ajouter un an date à date, je ne vois pas l'intérêt de saisir par exemple 1/1/01 pour obtenir 1/1/02 ! Pourquoi ne pas alors saisir directement "1/1/02" ?
Ou alors, il veut absolument 365 jours, même s'il y a un 29 février compris dans la période, et alors, j'utiliserais ça :
Private Sub Worksheet_Change(ByVal Target As Range) If Not IsDate(Target) Then Exit Sub End If Application.EnableEvents = False Target = DateSerial(Year(Target), Month(Target), Day(Target)) + 365 Application.EnableEvents = True End Sub
-- François L chipoteur ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
m = Month(Target)
Application.EnableEvents = False
Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target))
If Month(Target) <> m Then Target = Target - 1
Application.EnableEvents = True
End If
End Sub
Re,
En fait, nous ne savons pas vraiment ce que le questionneur voulait...
S'il veut ajouter un an date à date, je ne vois pas l'intérêt de saisir
par exemple 1/1/01 pour obtenir 1/1/02 ! Pourquoi ne pas alors saisir
directement "1/1/02" ?
Ou alors, il veut absolument 365 jours, même s'il y a un 29 février
compris dans la période, et alors, j'utiliserais ça :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target) Then
Exit Sub
End If
Application.EnableEvents = False
Target = DateSerial(Year(Target), Month(Target), Day(Target)) + 365
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then m = Month(Target) Application.EnableEvents = False Target = DateSerial(Year(Target) + 1, Month(Target), Day(Target)) If Month(Target) <> m Then Target = Target - 1 Application.EnableEvents = True End If End Sub
Re,
En fait, nous ne savons pas vraiment ce que le questionneur voulait...
S'il veut ajouter un an date à date, je ne vois pas l'intérêt de saisir par exemple 1/1/01 pour obtenir 1/1/02 ! Pourquoi ne pas alors saisir directement "1/1/02" ?
Ou alors, il veut absolument 365 jours, même s'il y a un 29 février compris dans la période, et alors, j'utiliserais ça :
Private Sub Worksheet_Change(ByVal Target As Range) If Not IsDate(Target) Then Exit Sub End If Application.EnableEvents = False Target = DateSerial(Year(Target), Month(Target), Day(Target)) + 365 Application.EnableEvents = True End Sub
-- François L chipoteur ?
DarthMac
Hello,
là je dois avouer que je me suis posé la même question...
S'il pouvait nous éclairer là-dessus, nous avancerions grandement dans l'énigme !
Mac
"Francois L" a écrit dans le message de news:
S'il veut ajouter un an date à date, je ne vois pas l'intérêt de saisir par exemple 1/1/01 pour obtenir 1/1/02 ! Pourquoi ne pas alors saisir directement "1/1/02" ?
Hello,
là je dois avouer que je me suis posé la même question...
S'il pouvait nous éclairer là-dessus, nous avancerions grandement dans
l'énigme !
Mac
"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de news:
OgzWd0t6GHA.4580@TK2MSFTNGP03.phx.gbl...
S'il veut ajouter un an date à date, je ne vois pas l'intérêt de saisir
par exemple 1/1/01 pour obtenir 1/1/02 ! Pourquoi ne pas alors saisir
directement "1/1/02" ?
là je dois avouer que je me suis posé la même question...
S'il pouvait nous éclairer là-dessus, nous avancerions grandement dans l'énigme !
Mac
"Francois L" a écrit dans le message de news:
S'il veut ajouter un an date à date, je ne vois pas l'intérêt de saisir par exemple 1/1/01 pour obtenir 1/1/02 ! Pourquoi ne pas alors saisir directement "1/1/02" ?
Francois L
Hello,
là je dois avouer que je me suis posé la même question...
S'il pouvait nous éclairer là-dessus, nous avancerions grandement dans l'énigme !
Bonsoir,
Il a reposé la même question tout à l'heure... dans un nouveau fil en disant qu'il voulait + 1 an (365 jours). Doit vivre avec un calendrier sans année bissextile.
-- François L
Hello,
là je dois avouer que je me suis posé la même question...
S'il pouvait nous éclairer là-dessus, nous avancerions grandement dans
l'énigme !
Bonsoir,
Il a reposé la même question tout à l'heure... dans un nouveau fil en
disant qu'il voulait + 1 an (365 jours). Doit vivre avec un calendrier
sans année bissextile.
là je dois avouer que je me suis posé la même question...
S'il pouvait nous éclairer là-dessus, nous avancerions grandement dans l'énigme !
Bonsoir,
Il a reposé la même question tout à l'heure... dans un nouveau fil en disant qu'il voulait + 1 an (365 jours). Doit vivre avec un calendrier sans année bissextile.
-- François L
DarthMac
oui je viens de lire son autre fil... Lui aussi s'emmêle le pauvre ,-)
je réitère néanmoins, quand il nous en dira plus, nous saurons ce qui peut l'aider vraiment
Mac
"Francois L" a écrit dans le message de news: %234aVH%
Hello,
là je dois avouer que je me suis posé la même question...
S'il pouvait nous éclairer là-dessus, nous avancerions grandement dans l'énigme !
Bonsoir,
Il a reposé la même question tout à l'heure... dans un nouveau fil en disant qu'il voulait + 1 an (365 jours). Doit vivre avec un calendrier sans année bissextile.
-- François L
oui je viens de lire son autre fil... Lui aussi s'emmêle le pauvre ,-)
je réitère néanmoins, quand il nous en dira plus, nous saurons ce qui peut
l'aider vraiment
Mac
"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de news:
%234aVH%23v6GHA.4276@TK2MSFTNGP04.phx.gbl...
Hello,
là je dois avouer que je me suis posé la même question...
S'il pouvait nous éclairer là-dessus, nous avancerions grandement dans
l'énigme !
Bonsoir,
Il a reposé la même question tout à l'heure... dans un nouveau fil en
disant qu'il voulait + 1 an (365 jours). Doit vivre avec un calendrier
sans année bissextile.
oui je viens de lire son autre fil... Lui aussi s'emmêle le pauvre ,-)
je réitère néanmoins, quand il nous en dira plus, nous saurons ce qui peut l'aider vraiment
Mac
"Francois L" a écrit dans le message de news: %234aVH%
Hello,
là je dois avouer que je me suis posé la même question...
S'il pouvait nous éclairer là-dessus, nous avancerions grandement dans l'énigme !
Bonsoir,
Il a reposé la même question tout à l'heure... dans un nouveau fil en disant qu'il voulait + 1 an (365 jours). Doit vivre avec un calendrier sans année bissextile.
