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

XL 2013 Positionner le super calendrier de Roland_M

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

bbb38

XLDnaute Accro
Bonjour le forum,
Je n’arrive pas à positionner le super calendrier de Roland_M dans mon formulaire. Je souhaiterai faire apparaitre le calendrier à côté du TextBox « Date de l’opération », alors que celui-ci se situe à droite de l’écran. Cliquer sur le bouton « Comptabilité », puis sur le TextBox.
J’espère que mes explications ne sont pas trop confuses, et vous remercie de l’attention que vous porterez à mon problème.
Cordialement,
Bernard
 

Pièces jointes

Trier par date Trier par votes
Re : Positionner le super calendrier de Roland_M

Bonjour,

Dans ton userform : USF5 regarde les lignes 6 et 7
Changement :
Me.Top + 120
If Me.Left + 22 > 0 Then .ScrollWidth = Me.Left + 22


Code: 
'appel routines ci-dessus pour lancer le calendrier
Private Sub SelectDateCalendrier(DatTag As Date, Optional MsgCaption$)
    DateSELECT = False
    Load fmSTD_Calendrier 'charge calendrier
    With fmSTD_Calendrier 'passe les val au calendrier pour se positionner
        ''''If Me.Top > 0 Then .ScrollHeight = Me.Top Else .ScrollHeight = 1 '1mini   ''' Copie au cas où
        ''''If Me.Left + Me.Width > 0 Then .ScrollWidth = Me.Left + Me.Width Else .ScrollWidth = 1 '1mini  ''' Copie au cas où
        If Me.Top > 0 Then .ScrollHeight = Me.Top + 120 Else .ScrollHeight = 1 '1mini   'Changement ici
        If Me.Left + 22 > 0 Then .ScrollWidth = Me.Left + 22 Else .ScrollWidth = 1 '1mini     'Changement ici
        .Tag = DatTag 'place la date dans le Tag
        .Caption = MsgCaption$ 'msg caption
    End With
    fmSTD_Calendrier.Show
    'récupère la date passée par le .tag
    If IsDate(fmSTD_Calendrier.Tag) Then DateSELECT = CDate(fmSTD_Calendrier.Tag)
    Unload fmSTD_Calendrier 'décharge calendrier
End Sub



Tentative
 
Vote positif 0 Vote négatif
Re : Positionner le super calendrier de Roland_M

Bonjour Tentative, le forum,
Je te remercie pour la correction du code. Cela fonctionne parfaitement. Demain, j’essaierai de comprendre la modification.
Cordialement,
Bernard
 
Vote positif 0 Vote négatif
Re : Positionner le super calendrier de Roland_M

Bonsoir,

voir modif pour position

ton userform est très grand, j'ai rajouté une fonction qui adapte l'userf à la résolution de l'écran

j'ai donc collé un module avec explication et ceci dans Usrf5:
Private Sub UserForm_Activate()
UserformZoomSelonResolution Me, "centre" 'choix "centre" "haut"ou"<haut>" "<haut" "haut>" "bas"ou"<bas>" "<bas" "bas>"
. . .
. . .
End Sub


mais tu adapteras dans mon module cette ligne avec les valeurs de la résolution dans laquelle tu as réalisé ton userf !
pour qu'il s'adapte à un écran plus petit ou plus grand ! actuellement j'ai mis 1600 par 900 mais il te faut mettre tes vrais valeurs !

>>> Public Const ResolutionCreatX% = 1600, ResolutionCreatY% = 900
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Positionner le super calendrier de Roland_M

Bonjour Roland_M,

Désolé de m'incruster, juste une question
pour adapter la largeur de la feuille menu à l'écran, tu peux utiliser ceci:

Range("A1:AN1").Select: ActiveWindow.Zoom = True: Range("A1").Select
Roland_M
Cliquez pour agrandir...
Dans le fichier joint, tu as préconisé cette ligne de code. Mais où doit-on la mettre au juste?

En te remerciant par avance.

Bon week-end.
 
Vote positif 0 Vote négatif
Re : Positionner le super calendrier de Roland_M

bonjour,

dans ThisworkBook, comme ceci avec le nom de ta feuille !!!
Private Sub Workbook_Open()
Sheets("NomDeTaFeuille").Activate
Range("A1:Z1").Select: ActiveWindow.Zoom = True: Range("A1").Select
End Sub

et si tu veux dans le code de cette Feuille
Private Sub Worksheet_Activate()
Range("A1:Z1").Select: ActiveWindow.Zoom = True: Range("A1").Select
End Sub

Range("A1:Z1") < à adapter !

en fait c'est très simple il suffit de sélectionner sur la 1' ligne une 1'col et une dernière exemple "A1:M1"
et de faire un zoom auto sur sélection !

on peut aussi choisir sur un champ s'il est trop grand le zoom va être fortement diminué !?

exmple "A1:M32" tu fais des essais et tu verras !
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Positionner le super calendrier de Roland_M

Bonjour Roland_M, le forum,
Je viens de voir tes messages, et je t’en remercie. Je testerai ta proposition cet après-midi.
Cordialement,
Bernard
 
Vote positif 0 Vote négatif
Re : Positionner le super calendrier de Roland_M

Merci beaucoup Roland_M, j'ai effectué des tests et j'avais mis le code comme tu le préconises dans Thisworkbook-->workbook_open

@bbb38: Désolé pour mon intrusion intempestive

Bon WE à tous.

Cordialement,

Cathodique
 
Vote positif 0 Vote négatif
Re : Positionner le super calendrier de Roland_M

Bonjour Roland_M,
Je viens d’effectuer les tests. C’est super. Je te remercie de toutes ces précisions et modifications. Tes explications sont claires et précises. Ce calendrier est magnifique. Toutes mes félicitations.
Avec mes remerciements réitérés.
Et en te souhaitant une bonne fin de semaine.
Cordialement,
Bernard
 
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 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
5
Affichages
497
jeff1494
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
369
sylvanu
K
  • Question Question
Microsoft 365 Réservation salle de réunion
Réponses
5
Affichages
542
Deleted member 453598
D
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
462
Etoto
R
  • Question Question
XL 2010 Comment intégrer Le calendrier Modal Francais de(Patricktoulon) dans une feuille existante
Réponses
4
Affichages
641
robbynasch
R
S
  • Question Question
Autres Affichage alertes
2
Réponses
16
Affichages
2 K
Slavko.R
S
M
  • Résolu(e)
Microsoft 365 Code de tri
2
Réponses
22
Affichages
1 K
Dudu2
S
  • Question Question
Autres Basculer l'affichage d'un calendrier Excel en mode miniature, sur bureau 'PC'
Réponses
3
Affichages
523
Slavko.R
S
B
  • Résolu(e)
XL 2019 Insertion de calendrier
Réponses
4
Affichages
1 K
cp4
G
  • Question Question
XL pour MAC Solveur : minimiser le nombre de lot à produire
Réponses
1
Affichages
741
Georges Van Bruggel
G
J
  • Question Question
XL 2019 Date et heure à partir de calendrier (VBA)
Réponses
7
Affichages
1 K
JacquesO
J
  • Question Question
XL 2021 Intégration de données et userfom
Réponses
9
Affichages
926
100kibou
  • Question Question
Microsoft 365 UserForm - Position d'affichage sur la cellule cliquée
Réponses
8
Affichages
941
Staple1600
E
  • Question Question
XL 2016 Document Excel pour suivis d'évènement
Réponses
0
Affichages
1 K
Edrahkin
E
U
  • Résolu(e)
XL 2019 Programme tournoi
Réponses
5
Affichages
865
Unmard
U
M
  • Résolu(e)
Autres Demande d'aide pour un fichier concernant des professionnels de santé et le diagnostic des troubles DYS (dyslexie.....)
2
Réponses
16
Affichages
2 K
Mionnetjl
M
M
  • Résolu(e)
XL 2013 Mémoriser le dernier emplacement de sauvegarde
Réponses
9
Affichages
1 K
M.Ben
M
  • Résolu(e)
Microsoft 365 suite calendrier de Roland_M
2 3 4
Réponses
55
Affichages
7 K
Usine à gaz
N
  • Question Question
Autres Incorporer date dans mail via userform calendrier
Réponses
0
Affichages
774
nouun
N
F
  • Question Question
XL 2010 CODE VBA
Réponses
4
Affichages
1 K
fJack38
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…