Microsoft 365 Calendrier dans cellule

[Scorpio]

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

 

[Dranreb]

Bonsoir.
Essayez le mien en attendant …
J'en ai aussi une version avec les numéris de semaines si vous voulez.

 

[Scorpio]

Salut Dranreb,
Super votre calendrier, ca fonctionne très bien, c'est le top.
Merci beaucoup de votre aide et a plus
Scorpio

 

[Scorpio]

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.

 

[Dranreb]

Mettez le code de la Sub Workbook_SheetSelectionChange du module ThisWorkbook
dans une Sub Worksheet_SelectionChange du module du Worksheet représentant la feuille "Ecriture".

 

[Scorpio]

Salut Dranreb,
Merci de ton aide, super.
A plus plus
Scorpio

 

[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.

 

[Dranreb]

Comme ça :

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

 

[Scorpio]

Bonjour Dranreb,
Merci merci beaucoup de votre aide Dranreb, c'est super.
A plus plus
Scorpio

 

[patricktoulon]

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

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

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é

 

[Scorpio]

Salut patricktoulon,
Un grand merci de cette solution, super.
A plus plus.
Scorpio

 

[Todre]

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

 

[Dranreb]

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

 

[Todre]

Hello,

merci pour votre retour, désolé je suis un peu perdu avec le code vu que nous ne sommes pas dans les mêmes cellules / colonnes je n'arrive pas à l'incorporer dans mon fichier. J'ai un message d'erreur débogage

Merci pour votre aide

 

[Dranreb]

Bonjour.
L'UFcalendrier de patricktoulon n'a pas été installé (rappel: par glisser/déplacer de son nom avec la souris dans l'explorateur de projets)