XL 2010 Insérer un calendrier dans un menu déroulant sur plusieurs cellules

Lone-wolf

XLDnaute Barbatruc

• 10 Mai 2018

• #16

Re

@Staple1600 : après clique gauche, la date n'est pas inscrite; elle s'inscrit lors d'un nouvel affichage de l'usf.

Pour la position de celui-ci

Private Sub UserForm_Initialize()
Me.Top = ActiveCell.Top + 95
Me.Left = ActiveCell.Left + 82
End Sub

J'ai ajouté ceci dans le module de classe
Private Sub CtrlCal_Click()
vDate = DateSerial(Year(CDate(UsF_Calendrier.MaDate)), Month(CDate(UsF_Calendrier.MaDate)), CtrlCal.Caption)
ActiveCell = vDate
End Sub

au hasard, Lone-Wolf peut-être 😉

Cliquez pour agrandir...

Aaahh! Non! J'ai pas envie de me geler moi! 😱😀😀

 

Pièces jointes

• Calendrier Autonome.xlsm

  35.2 KB · Affichages: 43

Dernière édition: 10 Mai 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Mai 2018

• #17

Re

@Lone-wolf
Essaies encore 😉
(Chez moi*, la date est bien inscrite et l'userform s'affiche pile poil à droite de la cellule active)
Sinon je n'aurai pas écrit ces deux phrases non ? 😉
Voici un correctif possible
Chez moi, plus de problême de "gelage" 😉

*: c'est à dire en ayant fait les modifs sur le classeur joint par le demandeur
(avec le code VBA proposé en message#11 )
Je viens de retester et je confirme donc que cela fonctionne
(version d'Excel pour le test: Excel 2003)

T'es sur que tu veux pas joindre un tit fichier modifié avant d'aller te coucher ? 😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Mai 2018

• #18

Re

@Staple1600 : regarde mon précédent post 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Mai 2018

• #19

Re,

@Lone-wolf
Le précédent post a été créé à 22h50 et édité à 23h13 (avec l'adjonction du tit fichier)

Donc je suppose que cette phrase n'est plus vraie alors ?

après clique gauche, la date n'est pas inscrite; elle s'inscrit lors d'un nouvel affichage de l'usf.

Cliquez pour agrandir...

Car chez moi, je n'ai pas absolument pas touché au module de classe.

PS: Pour être sur (et libéré d'un doute), tu as essayé mon code comme modifié dans le message#11?
Et ce sur le fichier joint dans le message#8?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Mai 2018

• #20

Re

@Staple1600 : non, j'ai juste repris le fichier et fait les modifications. Et pour le module de classe, c'est quand même mieux; si tu vois de quoi je parle.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Mai 2018

• #21

Bonjour à tous,

Juste une chose à propos de tous les codes, y compris le mien, cela n’empêche pas un bug 😕

Si vous affichez la fenêtre du classeur en mode agrandi (prend tout votre écran)
Vous réglez le zoom de la feuille sur 50%
Vous double-cliquez sur une cellule du bas de la feuille, l'USF sort de l'écran et impossible de cliquer dessus 😱

Allez à vos claviers pour une trouver une solution 😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Mai 2018

• #22

Bonjour Bruno, le Forum 🙂

Pourquoi mettre le zoom à 50%? 🙄

EDIT: je viens de faire le test avec le classeur que j'ai modifié ( post #16 ), le calendrier est décalé par rapport à la cellule active, mais reste dans la feuille.

 

Dernière édition: 11 Mai 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mai 2018

• #23

Bonjour, le fil, le forum

Précisions:
j'ai oublié d'indiquer qu'il faillait supprimer les lignes qui commencent là:
With Me
.StartUpPosition = 0
.Left = ...
.Top = ...
End With
dans la procédure Activate de l'Userform
(puisque je l'ai mis dans la procédure Initialize)

@Lone-wolf
Pour ma gouverne, (et comme nous n'avons pas la même version d'Excel), peux-tu, stp, tester mes modifications
(sans toucher au module de classe) juste pour voir si il se passe la même chose sur nos deux PC?
Merci d'avance.

EDITION: Bonjour BrunoM45, je viens juste de voir ton passage dans le fil 😉
Tu as pu reproduire le bug?
Quand tu positionnes en B64 (par exemple) comme l'a fait Lou2411, chez effectivement Excel se fige et l'userform n'apparaissait pas
(Un simple CRTL+PAUSE alors s'impose)

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Mai 2018

• #24

Bonjour Jean Marie 🙂

(et comme nous n'avons pas la même version d'Excel)

Cliquez pour agrandir...

@Staple1600 : comment ça, on a pas la même version d'excel?? 🙄😵 . Moi je vois bien chez toi 2013(PC).

EDIT: j'ai mis le code position usf, j'ai cliqué sur B62 et là éffectivement il y a le bug.

Et il y a cette ligne qui m'interpelle dans le module de la feuille

Target.Value = IIf(vdate <> "00:00:00", vdate, "") - vdate est une variable et là elle n'a aucune valeur.

 

Dernière édition: 11 Mai 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mai 2018

• #25

Re

@Lone-wolf
Actuellement, je suis avec un Excel 2003 (ce que j'ai précisé plusieurs fois, dans plusieurs fils)
D'ou mon précédent message

Donc je voulais juste savoir si les modifications que je propose dans le message#11 fonctionne sur les autres versions d'Excel.

Merci donc à celui/ceux qui prendront le temps de faire le test

NB: Je reprécise (ce que j'avais oublié précédemment)
Il faut commenter/supprimer la partie du code définissant la position de l'userform dans la procédure Activate de l'userform puisque je l'ai mis dans la procédure Initialize
(voir message#23)

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Mai 2018

• #26

Re Jean Marie

J'ai répondu dans mon précédent message. Mais pourquoi mettre 2013(PC), si tu utilise 2003??? 😵

Et j'ai bien mis le code dans initialize, mais dans le fichier que j'ai pris il n'y avait pas ce code.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mai 2018

• #27

Re

@Lone-wolf
Prends le temps de relire mon précédent message 😉
Et tu comprendras qu'un XLDnaute peut posséder plusieurs PC...

Sinon comme je disais avec ces seules modifications dans le code de l'userform, plus de bug sur Excel 2003 (qui n'est non pas ma version usuelle d'Excel (spéciale dédicace to Lone-Wolf 😉 )

PS:
C'est normal que ce code n'existe pas dans le fichier d'origine, puisqu'il s'agissait du correctif que je propose dans le message#11

 

Pièces jointes

• USFCAL.zip

  3.4 KB · Affichages: 23

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mai 2018

• #28

Re

Quand à vdate, c'est un nom masqué qui a bien une valeur
Le bug n'est du qu'au positionnement de l'userform

@Lone-wolf
En corrigeant comme je l'ai fait, plus de bug, en tout cas sur Excel 2003.
Donc si tu supprimes l'userform existant puis que tu importes celui qui est dans le zip de mon message précédent
Tu seras dans les mêmes conditions que moi pour tester (sauf version Excel)

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Mai 2018

• #29

Re Jean Marie

@Staple1600: avec la PJ que tu viens de mettre , c'est OK.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mai 2018

• #30

Re,

@Lone-wolf
La pièce jointe est strictement identique à ce que je disais dans le message#11
(sauf qu'en plus, le "nettoyage" de la procédure Activate a été fait)
Désolé pour le contre-temps mais il allait de soi pour moi que les XLDnautes qui causent VBA comme toi et moi feraient d'eux-même la modif 😉 )

 

Vote positif 0 Vote négatif