Calendrier dans une cellule

[Caninge]

Bonjour à tous.

J'ai trouvé un calendrier pour saisir une date dans une cellule.

Mais invariablement il revient toujours sur JUIN 2007.

c'est embêtant.

Comment faire pour qu'il revienne au moins sur le mois en cours (Janvier 2008)

Je vous remercie et bon dimanche.

 

[joss56]

Re : Calendrier dans une cellule

Bonjour,

dans ta procedure initialize du userform, ajoute
calendar1=date

 

[Paritec]

Re : Calendrier dans une cellule

Bonjour Caninge bonjour le forum

Private Sub UserForm_Initialize()
With UserForm1
.Left = ActiveCell.Offset(0, 1).Left + 25
.Top = ActiveCell.Offset(0, 1).Top + 100
Calendar1.Value = Date
End With
End Sub
bon dimanche Papou

 

[Paritec]

Re : Calendrier dans une cellule

Bonjour Joss
j'avais pas vu que tu avais déjà répondu j'étais au phone excuses
a+
Papou

 

[joss56]

Re : Calendrier dans une cellule

Bonjour Papou

pas de problème, abondance de biens ne nuit pas forcément!
bonne journée

 

[Caninge]

Re : Calendrier dans une cellule

Bonjour les amis !

J'ai fait la modif.

Ca bug légèrement.

Ca doit pas être grand chose surtout pour vous

A plus

MERCI

 

[Paritec]

Re : Calendrier dans une cellule

Re Caninge re le forum
oui tu as pas bien modifié c'est tout

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub

Bon dimanche
Papou
PS : si tu veux à l'ouverture de ton user la date du jour par défaut tu ajoutes
activeCell.Value= Date

 

[Caninge]

Re : Calendrier dans une cellule

Re,

Salut.

je préfererai que tu me renvoies le fichier modifié.

Je n'arrive pas .

EXCUSE !

MERCI

 

[Paritec]

Re : Calendrier dans une cellule

Re Caninge re le forum,
Voilà et si tu bveux la date du jour par défaut dans la cellule que tu cliques tu retires de la lignes écrite en vert le '
a+
bon dimanche
Papou

 

[Caninge]

Re : Calendrier dans une cellule

Re,

C'est oK

Tu es le plus grand des Papous

Merci

A une autre fois

 

[JCGL]

Re : Calendrier dans une cellule

Bonjour à tous,

S'il te manque la référence qui va bien, remplace :

 Private Sub UserForm_Initialize()
With UserForm1
 .Left = ActiveCell.Offset(0, 1).Left + 25
 .Top = ActiveCell.Offset(0, 1).Top + 100
 Calendar1.Value = [SIZE=3][B]Date[/B][/SIZE]
End With
End Sub

par

 Private Sub UserForm_Initialize()
With UserForm1
 .Left = ActiveCell.Offset(0, 1).Left + 25
 .Top = ActiveCell.Offset(0, 1).Top + 100
 Calendar1.Value = [SIZE=3][B]Now[/B][/SIZE]
End With
End Sub

dans le code Paritec de 09:08

A+

 

[Caninge]

Re : Calendrier dans une cellule

Bonjour

Je prends note

Merci et bon dimanche

 

[JCGL]

Re : Calendrier dans une cellule

Re à tous,
Paritec 🙂 :

Quand je dis "S'il te manque la référence qui va bien", je pensais à MS Calendar Controle xx



Voilà pourquoi je proposais le remplacement de Date par Now

Cela ne remet en aucun cas ton excellent code en cause.
Je souhaitais donner une astuce à Caninge pour pallier son bug

Bonjour à tous,

S'il te manque la référence qui va bien, remplace :

 Private Sub UserForm_Initialize()
With UserForm1
 .Left = ActiveCell.Offset(0, 1).Left + 25
 .Top = ActiveCell.Offset(0, 1).Top + 100
 Calendar1.Value = [SIZE=3][B]Date[/B][/SIZE]
End With
End Sub

par

 Private Sub UserForm_Initialize()
With UserForm1
 .Left = ActiveCell.Offset(0, 1).Left + 25
 .Top = ActiveCell.Offset(0, 1).Top + 100
 Calendar1.Value = [SIZE=3][B]Now[/B][/SIZE]
End With
End Sub

dans le code Paritec de 09:08

A+

Au plaisir de te croiser sur un fil

 

[alf43]

Re : Calendrier dans une cellule

bonjour le forum,
je te mets en pièces jointes un fichier que j'ai installé sur excel depuis qq temps et qui dépanne super comme calendrier pour cellule
je l'ai trouvé dans l'archive
si cela peut t'aider ....
alf

 

[JCGL]

Re : Calendrier dans une cellule

Bonjour à tous,

Merci à alf43 de préférer un lien vers le site de notre ami Didier plutôt que de déposer le fichier. Pourquoi ?

Parce que sur le portail, il y toutes les explications qui vont bien

mDF Calendar pour XL 200 et > sauf XL 2007

A+