USF calendrier !?!?

[WEIDER]

Bonjour à toutes et tous,

Je bloque sur un problème de calendrier sous forme d'USF, je suis à mon travail et n'ai pas trop le temps de chercher par moi même... pourriez vous m'aider à le résoudre s'il vous plait !?

Merci beaucoup d'avance pour votre aide.

Tout est dit dans mon fichier joint.

Amicalement

Weider.

 

[CHALET53]

Re : USF calendrier !?!?

bonjour,

Un essai

 

[CHALET53]

Re : USF calendrier !?!?

une modif sur la date du jour

 

[WEIDER]

Re : USF calendrier !?!?

Bonjour Chalet53,

Merci pour ton intervention.

Mais.... Lorsque je double clic dans la cellule ça me mets ce message...

"Impossible de charger l'objet car il n'est pas disponible sur cette machine" !?!?

 

[CHALET53]

Re : USF calendrier !?!?

Peut-être te faut-il charger le control nécessaire :

Dans l'éditeur VBE, après Doubleclick sur Userform1 et ouverture Boite à outils (si nécessaire)
click droit sur la boite pour afficher les controles complémentaires et rechercher :

MicroSoft date and time Picker Control 6.0

 

[WEIDER]

Re : USF calendrier !?!?

Le soucis, c'est que ce fichier, avec cet USF calendrier, devra être ouvert sur beaucoup d'autres PC également dans ma société, ça m’embêterai que des erreur apparaissent sur les écrans des autres utilisateurs....

 

[CHALET53]

Re : USF calendrier !?!?

Et tu as essayé sur le tien ?

 

[WEIDER]

Re : USF calendrier !?!?

Oui, sur le miens j'ai regardé, mais pas de MicroSoft date and time Picker Control 6.0 dans la liste :-(

 

[Roland_M]

Re : USF calendrier !?!?

bonjour

en fait tu veux simplement une saisie date sur cellule compatible sur tout pc ?

car j'ai ça si ça t'intéresse !?

 

[Dranreb]

Re : USF calendrier !?!?

Bonjour.
Je joins ma bête dans son état actuel…

 

[WEIDER]

Re : USF calendrier !?!?

Bonjour Roland_M et Dranreb !

Merci beaucoup pour votre contribution à tous les deux également.

Ta solution Roland me convient parfaitement bien. Dernière question....

Dans mon document final, je dois indiquer non pas une date, mais trois dans des cellules différentes, B5 (ok fait), mais j'en ai une à renseigner en J6 et une autre en I21.

Question : Qu'elle serait alors ta ligne de commande ?
If Application.Intersect(Target, Range("B5")) Is Nothing Then Exit Sub

Merci encore !

Amicalement

Weider.

 

[CHALET53]

Re : USF calendrier !?!?

Re,

Comme cela par exemple :

If Application.Intersect(Target, Range("B5,J6,I21")) Is Nothing Then Exit Sub '< exp si pas dans cette zone exit!

a+

 

[WEIDER]

Re : USF calendrier !?!?

Impeccable CHALET53 !!!

Merci à vous tous pour votre aide ! Votre savoir est précieux pour les novices comme moi...

Merci à tous et bonne soirée !

Amicalement

Weider.

 

[Dranreb]

Re : USF calendrier !?!?

Avec mon calendrier :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Me.[B5,J6,I21], Target) Is Nothing Then Exit Sub
If Target.Rows.Count <> 1 Or Target.Columns.Count <> 1 Then Exit Sub
UFmCalend.Posit Target, 1
Target.Value = UFmCalend.Saisie(DInit:=Target.Value, Défaut:=Target.Value)
End Sub

 

[WEIDER]

Re : USF calendrier !?!?

Merci bien Dranreb ! Je prends aussi !

Bonne journée !

Weider.