Calendrier déroulant dans Cellule
Bonjour à tous,
Pour faire simple, j'aimerais simplement que dans une Cellule (ex A1) je puisse insérer un calendrier déroulant.
En fait, j'aimerais qu'une fois la date sélectionnée, le calendrier soit masqué et que la date soit affichée dans cette même cellule (A1)
J'ai pas mal chercher sur le net, mais je n'arrive pas à l'insérer dans une cellule et qu'il soit masqué une fois la date sélectionnée.
Merci pour votre aide
Romain
Bonjour et bienvenue sur le forum
Un exemple, trouvé sur ce forum. Te convient-il ?
Bye !
Bonjour le forum,
Message supprimé.
Doublic-clic sur la cellule désirée :
Indication de la fête du jour.
Bonjour et merci a tous dans un premier temps pour vos propositions.
Ce n'est pas tt a fait ce que je recherche, mais j'avoue que la proposition de gmb y ressemble.
Alors, je prend donc celle ci en attendant de vraiment trouver avec un menu déroulant.
Encore merci a vous
Bonne soirée
re
1) un calendrier sous forme de liste qui s'escamote
a cheval entre gmb et ton souhait
cordialement
Bonsoir gmb, mbbp, tulipe_ 4, le forum !
Une version modifiée par un code internet de la proposition PopUp de GMB : la différence, le PopUp se met sous la cellule Active, cela fait un semblant de menu déroulant
Cette façon de faire par rapport à la liste déroulante est un plus grand choix de date, non ?
@ bientôt
LouReeD
Bonjour LouReeD
Merci bcp pour ta proposition.
J'avoue que le calendrier qui se met juste en dessous me convient parfaitement!
Encore un grand merci!!
je valide ta réponse.
Bonjour,
le forum est là pour ça, avec tant de personne et de matière grise les solutions affluent et dans le lot certaines peuvent convenir
Merci de votre retour et @ bientôt
LouReeD
Bonjour LouReeD,
Peux tu m'expliquer comment dupliquer ta formule dans mon fichier?
Par avance merci
Romain
Bonjour à tous
Et merci à LouReeD : ton adaptation est en effet excellente et je la mets de coté comme modèle.
Elle pourra surement resservir.
Bye !
Bonsoir,
pour répondre à Romain00210 (et indirectement à gmb)
Une version modifiée par un code internet
Donc moi même je cherche !
Le principe était la différence de grandeur entre un pixel et un point...
Voici ce qui est dit :
Salut,
Le problème vient du fait que les dimensions sont en pixels et les positions en points...
Voici un code que j'ai récupéré je sais plus où (désolé pour l'auteur) et adapté pour ce que tu veux (du moins si j'ai bien compris)
Option Explicit Private Declare Function GetDC& Lib _ "user32.dll" (ByVal hwnd&) Private Declare Function GetDeviceCaps& _ Lib "gdi32" (ByVal hDC&, ByVal nIndex&) Sub UserFormAlign() ' 1 inch = 72 points for usually 96 or 120 dpi Dim x#, y#, w#, h# x = GetDeviceCaps(GetDC(0), 88) / 72 y = GetDeviceCaps(GetDC(0), 90) / 72 With UserForm1 .StartUpPosition = 0 .Left = (ActiveWindow.PointsToScreenPixelsX(ActiveCell.Left * x) * 1 / x) + ActiveCell.Width .Top = (ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * y) * 1 / y) + ActiveCell.Height .Show End With End SubA+
Après au niveau de la formule :
.Left = (ActiveWindow.PointsToScreenPixelsX(ActiveCell.Left * x) * 1 / x) + 2 '+ ActiveCell.Width
.Top = (ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * y) * 1 / y) + ActiveCell.Height + 4
j'ai modifié les valeur surlignées afin de faire correspondre le coin supérieur gauche du popup avec le coin inférieur gauche de la cellule... C'est tout ce que j'ai fait !!!
@ bientôt
LouReeD
Re,
En fait mon soucis et que je ne sais pas comment faire pour l'insérer dans mon bon fichier.
Pouvez vous m'aider?
Merci
Romain
Romain00210 a écrit :je ne sais pas comment faire pour l'insérer dans mon bon fichier.
Pouvez vous m'aider?
Bien sûr mais il faudrait pour cela que tu joignes ce "bon fichier".
OK ?
Bye !
Bonsoir,
il est vrai que sans fichier c'est plus dur !
Ci-joint le fichier modifié, où maintenant se trouve une feuille où vous pouvez lister les adresses de toutes les cellules où la PopUp doit s'afficher :
Si vous n'avez qu'une feuille de "calendrier" cela se passera bien...
Si vous avez plusieurs feuilles, alors il faudra trouver un système de liste de cellules dépendantes de l'onglet où vous vous trouvez...
Ou bien encore un AS du VBA qui simplifiera tout !
@ bientôt
LouReeD