date dans rectangle

Le
gaston
bonjour !
j'ai cette macro qui ne fonctionne pas ! pourquoi ?
Sub date_rectangle()
ActiveSheet.Shape("rectangle1").Characters.Text = Now
Sh.Shape(Adr).NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Nicolas B.
Le #1288859
Salut,

Essaye ainsi, en une ligne :
ActiveSheet.Shapes("rectangle1").TextFrame.Characters.Text = Format(Now,
"dd/mm/yyyy")


A+
--
Nicolas B.


bonjour !
j'ai cette macro qui ne fonctionne pas ! pourquoi ?
Sub date_rectangle()
ActiveSheet.Shape("rectangle1").Characters.Text = Now
Sh.Shape(Adr).NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub


Frédo P
Le #1288837
Sub date_rectangle()
Dim txt As String
txt = Now
ActiveSheet.Shapes("rectangle 1").Select
Selection.Characters.Text = txt
End Sub
--
.

Fred
Ôter nsp pour répondre
"gaston" news: 3c6c01c42a1a$529cf1b0$
bonjour !
j'ai cette macro qui ne fonctionne pas ! pourquoi ?
Sub date_rectangle()
ActiveSheet.Shape("rectangle1").Characters.Text = Now
Sh.Shape(Adr).NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub


Publicité
Poster une réponse
Anonyme