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

XL 2019 Créer un calendrier sous forme de POP-UP

PatLep

XLDnaute Nouveau
Bonjour,

J'aimerais avoir la possibilité d'avoir 3 fenêtres de calendrier sous forme de POP-UP distinctes d'une à l'autre.

Voir dans le fichier TEST en attachement

J15

F19

I19

Le calendrier que vous voyez est une image

Merci
 

Pièces jointes

  • test.xlsx
    24.8 KB · Affichages: 14
Solution

Oui merci. J'ai maintenant tout compris

PatLep

XLDnaute Nouveau

Oui merci. J'ai maintenant tout compris
 

PatLep

XLDnaute Nouveau
Bonjour Patrick,

J'en ai déduit que PatLep était nul en VBA, et ne sais même pas ouvrir l'éditeur.
Alors j'ai fait l'effort pour notre ami québécois.

Je suis un excellent père de famille et un excellent cuisinier... entre autre! je suis conscient que je ne suis pas bon dans tout. c'est pour cela que j'ai demandé votre aide.
J'apprends à utiliser VBA et maintenant je sais comment ouvrir l'éditeur
Merci de vote patience et de votre indulgence
 

PatLep

XLDnaute Nouveau
Bonjour @BrunoM45
c'est a ce demander si mâcher le travail en vaut la peine

oui cela en vaut la peine. j'apprends et je trouve cela intéressant... a moins que vous me disiez que ce forum est exclusivement réservé pour les experts en Excel et en VBA. Si oui, il faudrait le spécifier au départ. De cette façon, je ne ferai pas perdre de temps à personne
Merci
 

patricktoulon

XLDnaute Barbatruc
re
bonsoir
on te la dit 2 fois ce qu'il fallait faire en #post 11 et 14
c'est pas compliqué d'ajouter dans le string du range les adresse de cellule concerné

remplace les "ici" par tes address de cellule
VB:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("J15,F19,I19,ici,ici,ici,ici")) Is Nothing Then
        Cancel = True
        Target = Calendar.value(Target, vbModal, 22)         'donc modal responsif + region
    End If
End Sub
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…