Microsoft 365 Calendrier qui s'affiche quand je sélectionne une cellule

[Piksaw]

Bonsoir a tous,


J'ai trouver ce code qui fonctionne bien mais j'aimerai l'adapter a mon fichier et je galère un peu, si quelqu'un aurai une piste ?


voila le code que j'ai trouver, j'aimerais bien le modifier pour lui dire afficher moi le calendrier, quand je sélectionne la plage de cellule

I7 à I83 et la plage K7 à k83, car avec le code ci-dessous, de dois définir cellule par cellule un peu lourd pour le code.



Private Sub Worksheet_selectionChange(ByVal Target As Range)

Dim UnJour As Date
If Target.Address = "$I$7" Or Target.Address = "$I$8" Or Target.Address = "$I$9" Then
Application.EnableEvents = False
Cancel = True
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Target = Format(UnJour, "dd/mm/yyyy")
Else
Target = ""
End If
Selection.Offset(0, 0).Select
Application.EnableEvents = True
End If

End Sub



et la deuxième spécialité, c'est que dans ma feuille actuel, j'ai déjà ce code que j'aimerais conserver


Option Explicit
Private Sub Worksheet_Change(ByVal T As Range)
If Not Intersect(T, Range("B6:B83")) Is Nothing Then
If IsEmpty(T) Then
Union(T.Offset(, 5), T.Offset(, 7), T.Offset(, 9)) = ""
Else
Exit Sub
End If
End If
End Sub


comment je pourrai lier les deux ?
j'ai tenter plein de variante mais j'ai toujours un message d'erreur quand ils fonctionnent ensemble

 

[Dranreb]

Bonsoir.

 

[Piksaw]

Bonsoir.

merci ça fonctionne nickel


est ce que ça serait possible d'avoir ce calendrier qui s'affiche

 

[Dranreb]

Il ne vous plait pas, le mien ?

 

[Piksaw]

Il ne vous plait pas, le mien ?

Je pensais mettre quelque chose un peu plus neutre niveau couleur

Par contre je dois avouer que après avoir comparer les deux, le votre affiche plus d'option ( numéro de semaine, jour férié ) l'autre ne les as pas, je vais peut être finalement garder le votre

Merci encore et je ne voulais pas paraître impoli