Formule date sous Excel
Tez
-
22 déc. 2010 à 12:18
antipolis a Messages postés 15609 Date d'inscription mercredi 5 novembre 2008 Statut Membre Dernière intervention 12 novembre 2014 - 15 juin 2011 à 16:25
antipolis a Messages postés 15609 Date d'inscription mercredi 5 novembre 2008 Statut Membre Dernière intervention 12 novembre 2014 - 15 juin 2011 à 16:25
A voir également:
- Formule date sous Excel
- Formule excel si et - Guide
- Formule somme excel colonne - Guide
- Formule excel moyenne - Guide
- Excel mise en forme conditionnelle formule - Guide
- Liste déroulante excel - Guide
4 réponses
Le Pingou
Messages postés
12242
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2025
1 458
12 juin 2011 à 23:19
12 juin 2011 à 23:19
Bonjour Tez,
Si vous voulez que la date soit fixe il est vraiment inutile d'utiliser la fonction [AUJOURDHUI()].
Vous entrez manuellement la date et c'est tout.
Ou bien c'est trop simple alors on va compliquer pour le plaisir.
Si vous voulez que la date soit fixe il est vraiment inutile d'utiliser la fonction [AUJOURDHUI()].
Vous entrez manuellement la date et c'est tout.
Ou bien c'est trop simple alors on va compliquer pour le plaisir.
antipolis a
Messages postés
15609
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
12 novembre 2014
2 859
12 juin 2011 à 11:42
12 juin 2011 à 11:42
Bonjour.
J'ai mis cette macro VBA qui démarre à l'ouverture du document EXCEL :
Private Sub Workbook_Open()
MaDatePosition = "B1"
If Range(MaDatePosition).Value = "" Then
Range(MaDatePosition).Value = Date
End If
End Sub
Dans une feuille EXCEL disponible à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj201106/cijYwJu9xy.xls
Bien entendu vous pouvez modifier la position où s'écrit la date.
Pour cela suivre le chemin suivant : Visual Basic Editor \ VBA Project \ Microsoft Excel Object \ ThisWorkbook. Et là, vous pouvez modifier la valeur de la variable "MaDatePosition".
J'ai mis cette macro VBA qui démarre à l'ouverture du document EXCEL :
Private Sub Workbook_Open()
MaDatePosition = "B1"
If Range(MaDatePosition).Value = "" Then
Range(MaDatePosition).Value = Date
End If
End Sub
Dans une feuille EXCEL disponible à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj201106/cijYwJu9xy.xls
Bien entendu vous pouvez modifier la position où s'écrit la date.
Pour cela suivre le chemin suivant : Visual Basic Editor \ VBA Project \ Microsoft Excel Object \ ThisWorkbook. Et là, vous pouvez modifier la valeur de la variable "MaDatePosition".
antipolis a
Messages postés
15609
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
12 novembre 2014
2 859
12 juin 2011 à 11:53
12 juin 2011 à 11:53
Et voilà, encore un sujet qui date et sans réponse.
On tombe sur un sujet intéressant, on se dépatouille pour proposer une solution.
Et en fin de compte c'est un vieux sujet qui qui n'a intéressé personne et qui est encore à l'affiche.
Je vais tout de même positiver en me disant que c'était un bon petit exercice VBA.
On tombe sur un sujet intéressant, on se dépatouille pour proposer une solution.
Et en fin de compte c'est un vieux sujet qui qui n'a intéressé personne et qui est encore à l'affiche.
Je vais tout de même positiver en me disant que c'était un bon petit exercice VBA.
soulsy
Messages postés
2739
Date d'inscription
dimanche 1 mai 2011
Statut
Membre
Dernière intervention
21 juillet 2017
366
12 juin 2011 à 12:30
12 juin 2011 à 12:30
Peut-être une autre solution... en faisant un copier de la cellule en gardant uniquement la valeur, à exécuter à la fermeture ou l'ouverture... je sais pas trop, je suis loin de m'y connaître assez en vba.
Ca donnerait quelque chose comme ça :
Range(MaDatePosition).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Ca donnerait quelque chose comme ça :
Range(MaDatePosition).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
m@rina
Messages postés
22601
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
16 mai 2025
11 432
12 juin 2011 à 14:12
12 juin 2011 à 14:12
Bonjour,
pour antipolis a : il ne faut pas être trop optimiste et positiver comme tu l'as dit. Je pense qu'il ne faut pas compter plus d'un retour sur 3, voire sur 4... La majorité des personnes qui questionnent sur les forums ne reviennent pas après avoir obtenu la bonne réponse. J'ai réussi à récupérer des docs corrompus (mémoire ou autre doc very important) pour des personnes qui ont même osé me les envoyer par mail, et même pas un merci en retour !
Cela étant, tu as répondu à un problème vieux de 6 mois, on peut espérer que depuis le temps, ce problème a été résolu, et que la personne ne suit plus l'affaire...
pour antipolis a : il ne faut pas être trop optimiste et positiver comme tu l'as dit. Je pense qu'il ne faut pas compter plus d'un retour sur 3, voire sur 4... La majorité des personnes qui questionnent sur les forums ne reviennent pas après avoir obtenu la bonne réponse. J'ai réussi à récupérer des docs corrompus (mémoire ou autre doc very important) pour des personnes qui ont même osé me les envoyer par mail, et même pas un merci en retour !
Cela étant, tu as répondu à un problème vieux de 6 mois, on peut espérer que depuis le temps, ce problème a été résolu, et que la personne ne suit plus l'affaire...
antipolis a
Messages postés
15609
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
12 novembre 2014
2 859
12 juin 2011 à 16:32
12 juin 2011 à 16:32
Bien joué Soulsy, votre solution fonctionne également.
Private Sub Workbook_Open()
MaDatePosition = "A1"
Range(MaDatePosition).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Nouvelle version ici :
http://www.cijoint.fr/cjlink.php?file=cj201106/cij1gYNq0p.xls
Et merci pour vos encouragement.
Un bon dimanche à vous.
Private Sub Workbook_Open()
MaDatePosition = "A1"
Range(MaDatePosition).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Nouvelle version ici :
http://www.cijoint.fr/cjlink.php?file=cj201106/cij1gYNq0p.xls
Et merci pour vos encouragement.
Un bon dimanche à vous.
soulsy
Messages postés
2739
Date d'inscription
dimanche 1 mai 2011
Statut
Membre
Dernière intervention
21 juillet 2017
366
12 juin 2011 à 16:36
12 juin 2011 à 16:36
:) un jour il reviendra et il verra les réponses à son problème !
Bonne journée également
Bonne journée également
antipolis a
Messages postés
15609
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
12 novembre 2014
2 859
13 juin 2011 à 08:58
13 juin 2011 à 08:58
Bonjour.
"Vous entrez manuellement la date et c'est tout."
Cela ne répond pas au souhait de Tez.
Bonne journée.
"Vous entrez manuellement la date et c'est tout."
Cela ne répond pas au souhait de Tez.
Bonne journée.
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 431
Modifié par Vaucluse le 13/06/2011 à 11:31
Modifié par Vaucluse le 13/06/2011 à 11:31
Bonjour
c'st tout à fait vrai, antipolis,
... mais quand on sait qu'il suffit de taper ctrl+; dans la cellule pour entrer la date du jour, on se dit que notre ami Le Pingou a quand même d'excellentes raisons de dire qu'une macro est superflue!
Crdlmnt
c'st tout à fait vrai, antipolis,
... mais quand on sait qu'il suffit de taper ctrl+; dans la cellule pour entrer la date du jour, on se dit que notre ami Le Pingou a quand même d'excellentes raisons de dire qu'une macro est superflue!
Crdlmnt
soulsy
Messages postés
2739
Date d'inscription
dimanche 1 mai 2011
Statut
Membre
Dernière intervention
21 juillet 2017
366
13 juin 2011 à 10:20
13 juin 2011 à 10:20
En fait autant faire une macro qui insère directement la date au moment voulu et en effet si y'a qu'une à mettre autant utiliser le raccourci :)
Le Pingou
Messages postés
12242
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2025
1 458
13 juin 2011 à 14:58
13 juin 2011 à 14:58
Bonjour antipolis a,
Oui ce n'est pas ce qu'il demande.
D'autre part pourquoi le pousser dans un sens qui n'est logiquement pas dans le bon sens.
Une fonction est utile si l'on a des informations qui se répètent et que l'on ne veut pas à chaque fois les taper au clavier.
Dans son cas qu'est ce qui est plus simple, tapez la fonction ou directement la date ...!
De plus si vous pensez au prochain classeur il va devoir tapez la fonction et aussi insérer la procédure dans le module pour neutraliser la fonction.
Salutations.
Le Pingou
Oui ce n'est pas ce qu'il demande.
D'autre part pourquoi le pousser dans un sens qui n'est logiquement pas dans le bon sens.
Une fonction est utile si l'on a des informations qui se répètent et que l'on ne veut pas à chaque fois les taper au clavier.
Dans son cas qu'est ce qui est plus simple, tapez la fonction ou directement la date ...!
De plus si vous pensez au prochain classeur il va devoir tapez la fonction et aussi insérer la procédure dans le module pour neutraliser la fonction.
Salutations.
Le Pingou
antipolis a
Messages postés
15609
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
12 novembre 2014
2 859
15 juin 2011 à 16:25
15 juin 2011 à 16:25
Bonjour à tous.
Il y a un tas de solutions, mais pour ma part, je m'en tiens au cahier des charges formulé par "Tez".
Cordialement.
Il y a un tas de solutions, mais pour ma part, je m'en tiens au cahier des charges formulé par "Tez".
Cordialement.