Inserer une date mais sans qu'elle ne change par la suite

5 réponses

alain.bazire

13/05/2004 à 08:58

Bonjour =E0 toutes et tous.Voila je d=E9sire inserer une date=20
dans un fichier Exemple: si D1 non vide mettre date en A1=20
mais ensuite je d=E9sire que cette date ne change plus. Ex;=20
si j'insere la date d'aujourdhui il faudrait qu'elle soit=20
toujours a la date d'aujourdhui demain apres demain dans=20
une semaine 1 mois 1 an. Merci de vos renseignements si=20
possible

5 réponses

Papou

13/05/2004 à 09:28

Bonjour
Voici une façon de procéder avec VBA, placer le code ci-dessous dans la
feuille en question (clic droit sur l'onglet Visualiser le code et coller
les 5 lignes suivantes)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
If Target.Value <> "" Then Cells(Target.Row, "A").Value = Date
End If
End Sub

Cordialement
Pascal

"" a écrit dans
le message de news: c5b701c438b7$a1b1ef20$
Bonjour à toutes et tous.Voila je désire inserer une date
dans un fichier Exemple: si D1 non vide mettre date en A1
mais ensuite je désire que cette date ne change plus. Ex;
si j'insere la date d'aujourdhui il faudrait qu'elle soit
toujours a la date d'aujourdhui demain apres demain dans
une semaine 1 mois 1 an. Merci de vos renseignements si
possible

Papou

13/05/2004 à 09:52

Je complète un peu par anticipation :
Si une valeur est effacée dans la colonne D, peut-être que tu ne voudras
plus de date ?
Si plusieurs cellules sont changées simultanément, il y aura une erreur.
Donc pour prendre en compte ces situations :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
If Selection.Cells.Count > 1 Then Exit Sub
If Target.Value <> "" Then
Cells(Target.Row, "A").Value = Date
ElseIf Target.Value = "" And Cells(Target.Row, "A").Value <> "" Then
Cells(Target.Row, "A").ClearContents
End If
End If
End Sub

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

Bonjour
Voici une façon de procéder avec VBA, placer le code ci-dessous dans la
feuille en question (clic droit sur l'onglet Visualiser le code et coller
les 5 lignes suivantes)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
If Target.Value <> "" Then Cells(Target.Row, "A").Value = Date
End If
End Sub

Cordialement
Pascal

"" a écrit
dans

le message de news: c5b701c438b7$a1b1ef20$
Bonjour à toutes et tous.Voila je désire inserer une date
dans un fichier Exemple: si D1 non vide mettre date en A1
mais ensuite je désire que cette date ne change plus. Ex;
si j'insere la date d'aujourdhui il faudrait qu'elle soit
toujours a la date d'aujourdhui demain apres demain dans
une semaine 1 mois 1 an. Merci de vos renseignements si
possible

Bourby

13/05/2004 à 14:49

bonjour,

utiliser la combinaison de touches "ctrl"+";" et valider
(trouvé sur le forum cette semaine)

Cordialement

Bourby

"" a écrit dans
le message news: c5b701c438b7$a1b1ef20$
Bonjour à toutes et tous.Voila je désire inserer une date
dans un fichier Exemple: si D1 non vide mettre date en A1
mais ensuite je désire que cette date ne change plus. Ex;
si j'insere la date d'aujourdhui il faudrait qu'elle soit
toujours a la date d'aujourdhui demain apres demain dans
une semaine 1 mois 1 an. Merci de vos renseignements si
possible

alain

13/05/2004 à 23:11

Bonjour .Pourrais tu me préciser ta réponse je ne suis pas trop doué et n'est rien compris excuses moi je fais "ctrl" "+" dans la cellule ou j'ai mis "maintenant" ou "aujourdhui" ? Ca m'a l'air plus simple que l'autre réponse, mais je ne comprends pas trop; peux tu me réexpliquer plus simple STP encore excuses moi. Merci de ta réponse à bientot de te relire. Alai

----- Bourby a écrit : ----

bonjour

utiliser la combinaison de touches "ctrl"+";" et valide
(trouvé sur le forum cette semaine

Cordialemen

Bourb

"" a écrit dan
le message news: c5b701c438b7$a1b1ef20$
Bonjour à toutes et tous.Voila je désire inserer une dat
dans un fichier Exemple: si D1 non vide mettre date en A
mais ensuite je désire que cette date ne change plus. Ex
si j'insere la date d'aujourdhui il faudrait qu'elle soi
toujours a la date d'aujourdhui demain apres demain dan
une semaine 1 mois 1 an. Merci de vos renseignements s
possibl

alain

13/05/2004 à 23:16

Merci de ta réponse mais il me semble que la réponse de Bouby corresponde plus à ce que j'attends, encore que je n'ai pas tout compris . Oui trés petit débutant je suis. Il faut que je précise que mon classeur possede 500 feuilles avec deja beaucoup de formules je suis arrivé à 4Mo. Alors si je peux l'allourdir le moins possible ce serait bien. Merci encore de t'etre penche sur mon énorme probleme . Alai

----- Papou a écrit : ----

Bonjou
Voici une façon de procéder avec VBA, placer le code ci-dessous dans l
feuille en question (clic droit sur l'onglet Visualiser le code et colle
les 5 lignes suivantes
Private Sub Worksheet_Change(ByVal Target As Range
If Not Intersect(Target, Range("D:D")) Is Nothing The
If Target.Value <> "" Then Cells(Target.Row, "A").Value = Dat
End I
End Su

Cordialemen
Pasca

"" a écrit dan
le message de news: c5b701c438b7$a1b1ef20$
Bonjour à toutes et tous.Voila je désire inserer une dat
dans un fichier Exemple: si D1 non vide mettre date en A
mais ensuite je désire que cette date ne change plus. Ex
si j'insere la date d'aujourdhui il faudrait qu'elle soi
toujours a la date d'aujourdhui demain apres demain dan
une semaine 1 mois 1 an. Merci de vos renseignements s
possibl

Inserer une date mais sans qu'elle ne change par la suite

5 réponses

Veuillez sélectionner un problème