XL 2010 Date du jour dans une forme....!

Hasco

XLDnaute Barbatruc

Repose en paix

• 13 Décembre 2020

• #2

Bonsoir,

Sélectionnez votre forme et dans la barre de formule vous mettez '=$E$7' (cellule qui contient votre date à afficher). Sur une autre feuille (Feuil2) vous mettrez : '=Feuil1!$E$7'

cordialement

 

Pièces jointes

• DATE DU JOUR 1.xlsm

  18.3 KB · Affichages: 8

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Décembre 2020

• #3

bonjour
dans le module thisworkbook
2 méthodes

VB:

Private Sub Workbook_Open()
Feuil1.Shapes("Rectangle à coins arrondis 1").TextFrame.Characters.Text = "Date du jour ; " & Format(Date, "dddd dd mmmm yyyy")
End Sub

'methode2

VB:

Private Sub Workbook_Open()
Feuil1.Shapes("Rectangle à coins arrondis 1").DrawingObject.Text = "Date du jour ; " & Format(Date, "dddd dd mmmm yyyy")
End Sub

 

Vote positif 0 Vote négatif

P

PapaYaya

XLDnaute Nouveau

• 13 Décembre 2020

• #4

bonsoir patricktoulon, Roblochon

Un grand merci a tous les deux

Je vais essayé de suite les deux

 

Vote positif 0 Vote négatif

P

PapaYaya

XLDnaute Nouveau

• 13 Décembre 2020

• #5

Bonsoir A tous les 2, le forum

Les trois solutions fonctionnent, j'ai finalement choisie la 2éme de patricktoulon.

Un grand merci a tous les deux.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Décembre 2020

• #6

la version de @Roblochon n'est pas a rejeter elle a a son avantage (le non besoins de code) est se met forcement a jour toute seul puisque E7 est une formule
perso je n'y ai pas pensé j'aurais du

 

Vote positif 0 Vote négatif

P

PapaYaya

XLDnaute Nouveau

• 13 Décembre 2020

• #7

Re Bonsoir,

C'est tout a fait vrai, et Finalement je me suis servi de celle de Roblochon Sur une autre feuille totalement différente.

Encore merci vous deux

 

Vote positif 0 Vote négatif