XL 2010 Afficahcage d'un Calendrier dans une cellule

noel33

XLDnaute Occasionnel
Bonjour à tous,

je vais sans doute faire rire les initiés, mais je me casse les dents sur un point qui doit être très facile:

J'aimerai soit:

_ Faire apparaitre un calendrier de sélection quand je clique dans certaines cellules,

_ Soit à l'aide de 2 boutons faire apparaitre un calendrier de sélection pour le premier bouton et le faire disparaitre avec le deuxième bouton (Solution moins appréciable..)

Quelqu'un a une idée?

D'avance merci pour votre aide!

Bon dimanche,

N.
 

Pièces jointes

  • Test Calendrier.xlsx
    30.1 KB · Affichages: 11

Roland_M

XLDnaute Barbatruc
re

surtout pas ingénieur mon pauvre ami !
je ne suis qu'un bidouilleur qui se débrouille à force de travail et surtout grâce aux pointures de ce forum !
je ne citerai pas de noms de peur d'en oublier ! mais il sont facilement reconnaissable !
exemple pour ne citer que lui parce qu'il est intervenu sur ce fil, j'ai nommé Dranreb !
 

Pièces jointes

  • RetourRolandCalendNoel33.xlsm
    107.7 KB · Affichages: 11

noel33

XLDnaute Occasionnel
Bien vu, mais je ne trouve pas omment tu as fait et effectivement peut-être pas ingénieur mais ingénieux sûr!

C'est grâce égalemetn à toi, entre autre, que j'apprends!
re

surtout pas ingénieur mon pauvre ami !
je ne suis qu'un bidouilleur qui se débrouille à force de travail et surtout grâce aux pointures de ce forum !
je ne citerai pas de noms de peur d'en oublier ! mais il sont facilement reconnaissable !
exemple pour ne citer que lui parce qu'il est intervenu sur ce fil, j'ai nommé Dranreb !
je suis désolé mais je ne vois pas la différence qui permet cela.. Qu'est-ce qui fait que maintenant le calendrier se décale ?
 

Roland_M

XLDnaute Barbatruc
re

tu veux dire, je suppose, à droite de la cellule d'appel par rapport à avant !?

c'est dans:
Public Sub UserformPosSurCell(fmMe As Object, Rng As Range)
qq lignes plus bas tu as ceci:

Dim Cel As Range, PosTop@, PosLeft@
Set Cel = Rng.Offset(TotLigOffset, 1) '< ICI c'était Offset(TotLigOffset, 0) décalage lig/col donc: , 1)=1colonne à droite
 

Discussions similaires

Réponses
21
Affichages
1 K

Statistiques des forums

Discussions
312 194
Messages
2 086 069
Membres
103 110
dernier inscrit
Privé