date en dur dans une cellule

Bonjour,

Activecell=Date

Camille

-----Message d'origine-----
Bonjour,

Dans une macro, j'ai la ligne:

ActiveCell.FormulaR1C1 = "=TODAY()"

cette macro est lancée par un bouton

Or j'aimerai qu'a l'appui sur le bouton, j'ai ma date en
dur (la date de

l'appui sur le bouton) et non la formule.

Comment faire ?

Merci pour vos idées


.

Bonjour *excal* (et tous les lecteurs)
| Bonjour,
|
| Dans une macro, j'ai la ligne:
|
| ActiveCell.FormulaR1C1 = "=TODAY()"
|
| cette macro est lancée par un bouton
|
| Or j'aimerai qu'a l'appui sur le bouton, j'ai ma date en dur (la date
| de l'appui sur le bouton) et non la formule.
|
| Comment faire ?
|
| Merci pour vos idées

ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
ActiveSheet.Paste
Application.CutCopyMode = False

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

;-))))
Whaaaouuuu Ricky.....!!!

pas de bouton
seulement un raccourci :
Ctrl + ;
devrait suffir !!!!
@+

-----Message d'origine-----
Bonjour *excal* (et tous les lecteurs)
| Bonjour,
|
| Dans une macro, j'ai la ligne:
|
| ActiveCell.FormulaR1C1 = "=TODAY()"
|
| cette macro est lancée par un bouton
|
| Or j'aimerai qu'a l'appui sur le bouton, j'ai ma date
en dur (la date

| de l'appui sur le bouton) et non la formule.
|
| Comment faire ?
|
| Merci pour vos idées

ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgr
oup/regles.htm

.

Bonjour *Modeste* (et tous les lecteurs)
| ;-))))
| Whaaaouuuu Ricky.....!!!
|
| pas de bouton
| seulement un raccourci :
| Ctrl + ;
| devrait suffir !!!!
| @+

Ok je sais mais difficile à inclure dans la macro.
De même pour F9 que tu utilises pour valider la fonction.

Donc si notre ami n'a pas un absolu besoin du bouton et de la macro, ta réponse est la meilleure.

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

Merci pour vos informations.

J'ai mis ActivecellÚte et ca fonctionne a merveille

;-)))

exemple:
SendKeys "^;~"
[A1].select

ou encore
Sub Ricky()
MsgBox "coucou la date en a3"
DateDansSelection [A3]
End Sub

Sub DateDansSelection(target As Range)
SendKeys "^;~"
target.Select
End Sub

;O)))))