Problème pour insérer le signe > au début d'une date avec Excel

Gervais · 15 Juillet 2006

Bonjour à tous,

Sub test()
'
' test Macro
' Macro enregistrée le 2006-07-14 par GB
'

'
Range("A1").Select
Selection.Copy
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ">2006-07-14"
Range("B1").Select
End Sub

Je voudrais que ma macro copie la date contenue dans A1 et la colle en A6 en lui ajoutant le signe > plus grand au début. Mon problème est que c’est toujours la même date qui ce copie même si je change la date en A1. Quoi faire pour que la macro s’adapte au changement de date qu'il aura dans la cellule A1?????

Merci pour votre aide.

Mytå · 15 Juillet 2006

Re : Problème pour insérer le signe > au début d'une date avec Excel

Salut Gervais

Ceci devrait faire

Code:

Sub test()

Range("A1").Copy Range("A6")
Range("A6").Formula = ">" & Format(Range("A6").Value, "dd/mm/yyyy")

End Sub

Mytå

andré · 15 Juillet 2006

Re : Problème pour insérer le signe > au début d'une date avec Excel

Salut Gervais et Mytå,
salut le forum,

Et pourquoi pas un format personnalisé de la cellule : "> "aaa-mm-jj
Pas besoin de macro !
L'avantage est que la date reste en format date et n'est pas transformé en format texte.

Â+

Problème pour insérer le signe > au début d'une date avec Excel

Gervais

XLDnaute Nouveau

Mytå

Guest

andré

XLDnaute Barbatruc

Discussions similaires