Calendrier dans une cellule

[RONIBO]

Bonsoir,

J'aurais aimé avoir un calendrier dans une cellule "G11" qui me permettra de sélectionner une date qui se mettra toujours dans "G11"

Par défaut j'aimerai qu'il me met la date du jour,

Merci à vous

Cordialement

Ronibo

 

[Staple1600]

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?

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

Tu peux aussi mettre cela dans WorkBook_Open()

 

[chris]

Re : Calendrier dans une cellule

RE

Dans ce cas à quoi sert le calendrier ?

 

[RONIBO]

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

 

[chris]

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...

 

[Staple1600]

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 )

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.

 

[RONIBO]

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

À+

 

[Staple1600]

Re : Calendrier dans une cellule

Re

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

 

[RONIBO]

Re : Calendrier dans une cellule

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

 

[RONIBO]

Re : Calendrier dans une cellule

Je viens de tester mais il se passe toujours rien 🙁

 

[Staple1600]

Re : Calendrier dans une cellule

Re

Houppps

Maintenant il doit se passer quelque chose 😉

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 😉

 

[RONIBO]

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

 

[RONIBO]

Re : Calendrier dans une cellule

Bonjour le fil, le forum,
Bonjour Staple1600

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