XL 2016 Saisie 2 dates dans USF

[misteryann]

Bonjour le Forum.

Y a t-il quelqu'un qui pourrait adapter le fichier de Dudu2 (calendrier Personnalisé) à mon classeur exemple?
Ce qui m'intèresse c'est l'utilisation avancée (saisie de 2 dates) mais dans un USF (calendrier "glissant") et en conservant les fonctionnalités (si 2ème date < à 1ère date = Msgbox, etc).

Bonne journée.
Cordialement.

 

[Dranreb]

Bonjour.
Est-ce avec saisie d'heure aussi ?

 

[misteryann]

Bonjour.
Est-ce avec saisie d'heure aussi ?

Bonsoir Dranreb.
Non, je n'ai pas besoin de l'heure.

 

[Dranreb]

Attention, il y a une anomalie du fait qu'on entre dans une des Textbox avant que l'UserForm soit affiché, du fait qu'il n'y a pas d'autre contrôle pouvant prendre le focus …

 

[misteryann]

Zut, oublié de préciser au format jj/mm/aaaa

 

[misteryann]

Attention, il y a une anomalie du fait qu'on entre dans une des Textbox avant que l'UserForm soit affiché, du fait qu'il n'y a pas d'autre contrôle pouvant prendre le focus …

Merci Dranreb.
Ce n'est pas ce que je cherche.
J'en avais trouvé un qui répondait exactement (il y a quelques temps) à ce que je souhaite, mais je ne sais pas ce que j'en ai fait...
J'ai d'autres applis qui utilise les calendriers, mais c'est le côté visuel que je trouve interressant.

 

[Dranreb]

jj/mm/aaaa est le format d'affichage par défaut. Ne pas oublier de d'affecter Cellule.Value = CDate(TextBox1.Text)
Qu'est ce qui ne va pas dans ce que je propose par rapport à ce que vous cherchez ?
Il y a pourtant une vérification évitant une saisie de fin antérieure au début ou de début postérieure à la fin !

 

[misteryann]

C'est le "glissage" du calendrier entre les 2 Tbx sans que celui-ci se ferme.
Le même effet que dans le fichier de Dudu2 mais dans une Usf.

 

[Dranreb]

Mais encore ? Mon calendrier se positionne chaque fois juste sous la textbox qu'on veut saisir (sauf au lancement où la TextBox1_Enter s'exécute apparemment avant la UserForm_Activate …).

 

[misteryann]

Mais encore ? Mon calendrier se positionne chaque fois juste sous la textbox qu'on veut saisir.

La saisie des dates se fait après d'autres saisies (grossièrement comme dans la PJ)

 

[Dranreb]

Voulez vous que les deux TextBox soient saisie quand la TextBox1 reçoit le focus ?
Pas de problème :

Private Sub TextBox1_Enter()
   If TextBox2.Text <> "" Then UFmCalend.Période DtFin:=CDate(TextBox2.Text)
   UFmCalend.Coupler "Début", TextBox1
   If TextBox1.Text <> "" Then UFmCalend.Période Début:=CDate(TextBox1.Text)
   UFmCalend.Coupler "Fin", TextBox2
   End S

 

[misteryann]

Voulez vous que les deux TextBox soient saisie quand la TextBox1 reçoit le focus ?
Pas de problème :

Private Sub TextBox1_Enter()
   If TextBox2.Text <> "" Then UFmCalend.Période DtFin:=CDate(TextBox2.Text)
   UFmCalend.Coupler "Début", TextBox1
   If TextBox1.Text <> "" Then UFmCalend.Période Début:=CDate(TextBox1.Text)
   UFmCalend.Coupler "Fin", TextBox2
   End S

C'est à voir.
Je ne visualise pas l'effet.

 

[Dranreb]

Non, mais si déjà vous avez enfin mis assez de contrôles pour éviter le bogue, rectifiez l'ordre des tab de sorte que ce ne soit plus la TextBox1 qui ait le focus en premier, avant même qu'on ait fait quoi que ce soit !

 

[misteryann]

Non, mais si déjà vous avez enfin mis assez de contrôles pour éviter le bogue, rectifiez l'ordre des tab de sorte que ce ne soit plus la TextBox1 qui ait le focus en premier, avant même qu'on ait fait quoi que ce soit !

Non, mais si déjà vous avez enfin mis assez de contrôles pour éviter le bogue, rectifiez l'ordre des tab de sorte que ce ne soit plus la TextBox1 qui ait le focus en premier, avant même qu'on ait fait quoi que ce soit !

Merci Dranreb pour votre patience et votre intèrêt.
Mais le code que vous proposez est une usine à gaz pour le newbie que je suis.
L'ancien fichier que je ne trouve plus était bien plus simple de mémoire.
Cordialement.

 

[Dranreb]

Une seule instruction pour coupler l'UfmCalend à un contrôle ! Qu'est-ce qu'il vous faudrait de plus court ?