Microsoft 365 Calendrier dans cellule

  • Initiateur de la discussion Initiateur de la discussion Scorpio
  • 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 !

Scorpio

XLDnaute Impliqué
Bonjour,
J'aimerais utiliser c calendrier dans ce classeur, dans la colonne B, a partir de B2, mais je ne suis pas un expert en code, alors je m'adresse
a vous pour me donner un coup de pouce, s'il vous plaît
Est-ce possible, et merci d'avance
Scorpio
 

Pièces jointes

RE Dranreb,
J'aurais encore juste un service a demander, s'il vous plaît.
En fait, votre calendrier fonctionne sur toutes les feuilles du classeur.

Moi, j'aimerais qu'il fonctionne seulement sur la feuille "Ecritures"
Est-ce encore possible, et très grand merci
Scorpio.
 
Salut Dranreb,
Sur le calendrier que tu a conçu, et quel calendrier, super.
Celui-ci, fonctionne sur la colonne "B".
Dans le classeur que je joint, je n'est pas trouver comment modifier le code, pour faire fonctionner
le calendrier dans la colonne 5 et 6 de la même feuille.
Pourriez-vous s'il vous plaît m'informer.
Merci Dranreb, a plus.
Scorpio.
 

Pièces jointes

Comme ça :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge <> 1 Or Target.Row = 1 Or _
   Target.Column <> 5 And Target.Column <> 6 Then Exit Sub
   UFmCalend.Posit Target, 1, 0.9
   Target = UFmCalend.Saisie(Titre:=" ", DInit:=Target.Value, Défaut:=Target.Value)
   End Sub
 
Bonjour
avec mon model simply 7.0qui consomme très peu de ressources
il suffisait juste de mettre ceci dans le module de la feuille ecritures

pour le click droit

VB:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Select Case Target.Column
    Case 2 ',5
        UFcalendrier.Show: Cancel = True
    End Select
End Sub

ou pour le double click
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Select Case Target.Column
    Case 2 ',5
        UFcalendrier.Show: Cancel = True
    End Select
End Sub
et c’était terminé
 

Pièces jointes

Bonjour à tous,

Je me permet de relancer le fil, je cherche la même chose pour une feuille de demande d'absence en PJ. Je ne vois pas ou rentrer le code, je ne connais pas assez VBA. Est il possible de regarder svp ?
J'aimerai un calendrier dans les colonnes B12 à B19 et CD12 à CD19.

D'avance merci pour votre aide 🙂
 

Pièces jointes

Bonjour.
Faites un clic droit sur l'onglet, Visualiser le code enfin collez la procédure dans la fenêtre de code.
Dans l'explorateur de projets glissez/déposez le nom d'un des UserForm proposés dans le projet VBA de votre classeur.
Ne pas oublier de l'enregistrer comme Classeur prenant en charge les macros, *.xlsm
 
- 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

Réponses
12
Affichages
365
Réponses
18
Affichages
343
Réponses
7
Affichages
280
Réponses
12
Affichages
173
Réponses
376
Affichages
23 K
Retour