Calendrier dans une cellule

Staple1600

XLDnaute Barbatruc

• 8 Juillet 2013

• #16

Re : Calendrier dans une cellule

Bonjour

RONIBO: ???? 🙄

au faite j´aimerais à chaque ouverture du fichier la date du jour se met automatiquement dans la cellule G11:H11
On peut pas détourner ça avec une macro?

Cliquez pour agrandir...

Tu as essayé ce que je disais plus bas ?

Pour mettre automtiquement la date en G11
A mettre dans ThisWorkBook
Code :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[G11] = Date
End Sub

Cliquez pour agrandir...

Tu peux aussi mettre cela dans WorkBook_Open()

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 8 Juillet 2013

• #17

Re : Calendrier dans une cellule

RE

Dans ce cas à quoi sert le calendrier ?

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 8 Juillet 2013

• #18

Re : Calendrier dans une cellule

@staple1600 : oui j'ai essayé, rien se passe la cellule reste vide

@chris : le calendrier va me servir en cas de changement de date (si c'est pas pas la date du jour, je sélectionnerais grâce a ce calendrier

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 8 Juillet 2013

• #19

Re : Calendrier dans une cellule

Re

Tu n'as donc pas lu ou compris mon post #14 : si tu choisis une date avec le calendrier mais, qu'à l'ouverture, il faut mettre la date du jour, cela effacera la date choisie avec le calendrier d'où ma question sur l'intérêt du calendrier ou bien tu n'as pas précisé toutes les données du problème...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Juillet 2013

• #20

Re : Calendrier dans une cellule

Re

Donc pour mettre la date en G11 (sans se préoccuper des inconvénients soulevés par chris 😉 )
(toujours dans ThisWorkBook )

Code:

Private Sub Workbook_Open()
If Not IsEmpty([G11]) Then
Sheets("Feuil1").[G11] = Date
End If
End Sub

NB: Soit dit en passant, s'il s'agit et seulement si de mettre la date du jour en G11
Tu peux aussi mettre cette formule en G11: =AUJOURDHUI()
Ce qui là aussi pourra générer quelques soucis à chaque ouverture du classeur, car dans ce cas aussi G11 contiendra toujours la date du jour en cours.

 

Dernière édition: 8 Juillet 2013

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 8 Juillet 2013

• #21

Re : Calendrier dans une cellule

Re,

J'ai pas trop compris, c'est pas grave si elle efface la date choisi depuis le calendrier, tant qu'au démarrage j'ai la date du jour que que je peux la modifier avec le calendrier c'est l'essentiel

À+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Juillet 2013

• #22

Re : Calendrier dans une cellule

Re

RONIBO
Tu as vu mon précédent message et la macro qu'il contient ???

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 8 Juillet 2013

• #23

Re : Calendrier dans une cellule

Je viens de voir ça, je test puis je te reviens 🙂

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 8 Juillet 2013

• #24

Re : Calendrier dans une cellule

Je viens de tester mais il se passe toujours rien 🙁

 

Pièces jointes

• test.xlsm

  18.6 KB · Affichages: 28
• test.xlsm

  18.6 KB · Affichages: 29
• test.xlsm

  18.6 KB · Affichages: 27

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Juillet 2013

• #25

Re : Calendrier dans une cellule

Re

Houppps

Maintenant il doit se passer quelque chose 😉

Code:

Private Sub Workbook_Open()
If IsEmpty(Sheets("Feuil1").[G11]) Then
Sheets("Feuil1").[G11] = Date
End If
End Sub

PS: Je te laisse comprendre quelle était mon erreur 😉

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 8 Juillet 2013

• #26

Re : Calendrier dans une cellule

On a oublié de faire appel à la feuille, c'est ça? lol

If IsEmpty(Sheets("Feuil1").[G11]) Then

Par contre j'ai essayé sur mon fichier original, vu que la cellule est fusionnée avec la H11 (s'qui donne "G11:H11") ça ne fonctionne pas🙁
Je l'avais précisé sur mon poste #7 🙂
J'ai essayé ça

If IsEmpty(Sheets("Picard Bat").[G11:H11]) Then
Sheets("Picard Bat").[G11:H11] = Date
End If
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 9 Juillet 2013

• #27

Re : Calendrier dans une cellule

Bonjour le fil, le forum,
Bonjour Staple1600

Tu as une idée concernant mon poste #15?

 

Vote positif 0 Vote négatif