insérer un calendrier dans un userform

  • Initiateur de la discussion Initiateur de la discussion robinhood
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

robinhood

XLDnaute Occasionnel
Bonjour

je m'adresse a vous pour m'aider sur un détail sur lequel j'ai pas pu avancer.
en faite j'ai un userform et dedans je voudrais saisir des dates, je voudrais inserrer un calendrier, ensuite une fois les dates saisies, quand je valide toutes les données saisies les dates vont directement dans les emplacements appropriés.

ci-joint le fichier avec mon besoin dessus; n'hésitez pas a me demander des infos de plus s'il le faut.

je compte sur votre aide pour avancer sur mon fichier.

Merci d'avance a vous

Robinhood.
 

Pièces jointes

Re : insérer un calendrier dans un userform

Bonsoir robinhood, Bonsoir Pascal, 🙂

Oui, le problème avec les calendriers externes, c'est qu'on est jamais sûr qu'ils seront disponibles sur tous les postes qui devront utiliser le fichier
Alors la solution la plus simple, c'est de faire son calendrier dans son fichier

Des exemples par là :

https://www.excel-downloads.com/threads/creer-un-calendrier-dans-un-userform.184457/
Tlchargements : myDearFriend! Excel Pages

et surement plein d'autres
 
Re : insérer un calendrier dans un userform

Bonjour MAN

Merci pour le fichier, comment je peux ajouter à la plage [AA4:AB1000] la plage [AN4:AN1000] dans ce code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [AA4:AB1000]) Is Nothing Then
Load fm_CalendrierCellule
If IsDate(Target) Then fm_CalendrierCellule.Tag = Target Else fm_CalendrierCellule.Tag = Date
fm_CalendrierCellule.Show: Cancel = True
End If
End Sub

Merci d'avance
 
Re : insérer un calendrier dans un userform

bonjour robinhood
targuet=Cible.
c'est a dire que sur le code, tu peux remplacer[C3] par n'importe quelle cible.
bon enfin, il faut éviter lesfusions de cellules ou encore les combinaisons. ça c'est mon niveau. peut etre les barbatrucs peuvent a tous les deux nous éclairer
COURAGE
 
Re : insérer un calendrier dans un userform

Bonjour ronibhood

A tester:

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set zone = Application.Union(Range("A4:AB1000"), Range("AN4:AN1000"))
If Not Intersect(Target, zone) Is Nothing Then
Load fm_CalendrierCellule
If IsDate(Target) Then fm_CalendrierCellule.Tag = Target Else fm_CalendrierCellule.Tag = Date
fm_CalendrierCellule.Show: Cancel = True
End If
End Sub
 
Re : insérer un calendrier dans un userform

Merci beaucoup Pierrejean pour le code

est ce que c'est possible que vous regardez mon besoin initial (le calendrier dans le userform, avec le fichier que j'ai mis en pièce jointe)

Je vous en remercie d'avance.
 
Re : insérer un calendrier dans un userform

Merci beaucoup Pierrejean pour le code

est ce que c'est possible que vous regardez mon besoin initial (le calendrier dans le userform, avec le fichier que j'ai mis en pièce jointe)

Je vous en remercie d'avance.
 
Re : insérer un calendrier dans un userform

Re

J'ai inclus un travail commun réalisé avec notre amie Cathy Bip Bip
Vois si cela te convient
Attention !!
Je n'ai pas été plus loin que la saisie par calendrier après remplacement des combobox par des textbox
Si tu as des problemes pour continuer l'adaptation reviens nous en parler
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Contrôle sur date
Réponses
8
Affichages
126
Retour