Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

utiliser un calendrier pour plusieurs userforms

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mikeo
  • 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 !

S'inscrire
M

mikeo

XLDnaute Occasionnel
Bonjour Cher forum,

Voilà, j'ai un calendrier qui alimente un textbox dans un userform.

Mais je voudrais utiliser le même calendrier à partir d'autres userforms pour ne pas créer un calendrier pour chaque textbox.

Est-ce que le code du calendrier ci-après peut reconnaitre l'userform qui l'a appelé (du genre active.sheets par exemple) sans préciser le nom de l'userform ?

Code: 
Private Sub Calendar1_Click()
[COLOR="red"]UserForm1.TextBox1[/COLOR] = Calendar1.Value 
Unload Me
End Sub

Private Sub UserForm_activate()
Calendar1 = [COLOR="red"]UserForm1.TextBox1 [/COLOR]
End Sub

C'est la syntaxe qui me manque.

Merci à vous.
 

Pièces jointes

Trier par date Trier par votes
Re : utiliser un calendrier pour plusieurs userforms

Salut Mikeo,

C'est le principe même de la programmation objet

Dans un module tu définis un objet public
Code: 
Public ObjDate As Object

Dans Tes USF, avant d'appeler le calendrier, tu définis l'objet conteneur devant recevoir la valeur
Code: 
Private Sub Textbox1_enter()
  Me.TextBox1.BackColor = RGB(214, 154, 243)
  Set ObjDate = Me.TextBox1
  Calendrier.Show
  Me.TextBox1.BackColor = RGB(154, 218, 30)
 End Sub

Dans ton USF calendrier, tu renvoies la valeur vers cet objet
Code: 
Private Sub Calendar1_Click()
  ObjDate = Me.Calendar1.Value ' Donne la valeur à l'objet définit
  Unload Me
End Sub

Après on peut utiliser un module de classe, mais c'est plus compliqué pour moi

A+
 
Vote positif 0 Vote négatif
Re : utiliser un calendrier pour plusieurs userforms

Bonjour,

A peu près la même chose que Bruno, avec l'objet définit dans le UserForm.

L'objet est testée, pour éventuellement accomplir des actions différentes suivant sa nature,
(objet TextBox, Range)

A+
 
Vote positif 0 Vote négatif
Re : utiliser un calendrier pour plusieurs userforms

Bonjour Bruno et Hasco, le Forum

Merci à vous deux, pour moi c'est très fort. Je ne connaissais pas cette façon de faire qui est bien pratique. Si vous connaissez un lien ou un tutorial qui explique cela, je suis preneur.

Autre question dans ce fichier. Le calendrier vient de ce forum et je le trouve très bien car il ne fait pas appel à Dtpicker (merci à celui qui l'a conçu). Seulement, j'ai nommé l'USF "calendrier" alors que dans le code, pour l'ouvrir, il s'appelle "calendar1". Je ne trouve nulle part dans les propriétés ce nom.

De même, je ne trouve nulle part le code qui gère les texbox (il est caché ?) car je voudrais modifier légèrement la présentation. Vous pouvez m'éclairer sur ces questions ?

Bon dimanche à tous.

Mikeo
 
Vote positif 0 Vote négatif
Re : utiliser un calendrier pour plusieurs userforms

Bonjour,

Il s'agit d'un contrôle calendrier (contrôle activeX) de miscrosoft.

Clique sur la bordure du calendrier (pas le userForm) et tu verras ces propriétés s'afficher dans la fenêtre des propriétés (F4 si cette fenêtre n'est pas visible)

Tu pourras changer pas mal de choses mais pas à tout.

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : utiliser un calendrier pour plusieurs userforms

Bonjour Mikeo,Hasco,Bruno et à tous

Un petit exemple que j'utilise avec comme base le "Calendrier Autonome" légèrement adapté à mes besoins.

Regardes si tu peux en tirer des infos utiles.

A+
 
Vote positif 0 Vote négatif
Re : utiliser un calendrier pour plusieurs userforms

Bonjour à tous,

Merci Hasco, je découvre excel un peu plus.
Néné06 : Merci, je garde ton calendrier sous le coude car il me sera utile.

Et longue vie au forum.

Mikeo
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
XL 2019 code pour tous les disques
Réponses
3
Affichages
671
AtTheOne
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
844
bérylion
B
G
  • Question Question
XL 2016 Faire un Private sub unique pour plusieurs textbox
Réponses
6
Affichages
290
Goose
G
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
958
ThierryP
T
B
  • Question Question
XL 2016 RESOLU _ Reset le minuteur si Userform Actif et activité sur Userform
Réponses
14
Affichages
645
Dranreb
  • Résolu(e)
XL 2013 (RESOLU) Un code VBA sur des cellules spécifiques pour afficher calendrier
Réponses
2
Affichages
580
chaelie2015
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
554
tactic6
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
  • Question Question
Microsoft 365 Mettre un code dans un UserForm calendrier pour bloquer si pas de date sélectionnée
Réponses
2
Affichages
574
Usine à gaz
F
  • Résolu(e)
XL 2019 Besoin d'aide pour reporter une donnée d'un Userform vers un tableau
Réponses
2
Affichages
733
Flnte
F
  • Résolu(e)
XL 2016 Notation Simplifiée pour définir un tableau arborescent
Réponses
9
Affichages
936
Lu76Fer
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
  • Question Question
XL 2019 Ajouter un " aperçu avant impression " à ce code
Réponses
7
Affichages
903
Yann71
V
  • Question Question
XL 2016 [RESOLU] Traduction code VBA (code trouvé sur internet je ne comprend rien)
2
Réponses
17
Affichages
3 K
VBgalère
V
R
  • Résolu(e)
XL 2016 Probleme de code
Réponses
9
Affichages
2 K
Richard 58
R
L
  • Question Question
XL 2016 Définir un userform en variable
2
Réponses
18
Affichages
2 K
ChTi160
  • Question Question
XL 2010 Setfocus Textbox dans différentes Frames
Réponses
2
Affichages
960
cp4
G
  • Résolu(e)
XL 2016 Définir Boucle pour afficher plusieurs tableaux dans des textbox sur une userform (ou sur une feuille Excel)
Réponses
6
Affichages
1 K
gaby.jvx
G
W
  • Question Question
XL 2019 VBA - ouverture d'un fichier Excel pour consultation depuis un userform
Réponses
2
Affichages
2 K
Wana
W
P
  • Question Question
XL 2019 Ajouter une date de fin pour un débit/crédit récurrent via VBA
2
Réponses
19
Affichages
3 K
herve62
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…