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

[Gervais]

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å]

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

Salut Gervais

Ceci devrait faire

Sub test()

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

End Sub

Mytå

 

[andré]

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.

Â+