Insertion calendrier dans les cellules de plusieur colonnes

Bonjour Steelson,

Cela ne me dérange pas, c'est peut-être une incompréhension.

C'est ce bug du filtre qui me dérange. Lorsque le feuille est protégée et autorise le filtre(coche), l'utilisation d"une cellule"calendrier" pour correction ou encodage bloque le filtre. Je ne sais plus sélectionner via le filtre et surtout revenir au tableau général (marche arrière). En retirant la protection de la feuille,je constate que la coche pour l'utilisation du filtre a disparu.

merci.

Bonjour Steelson,

j'ai trouvé, dû moins ça fonctionne. J'ai rajouter ceci AllowFiltering:=True et tout fonctionne parfaitement.

Sub ChoixDate(quand)
On Error Resume Next ' cas où le calendrier est resté actif à la fermeture
Dim Sh As Object
    MSjour.Value = quand
    Set MSjour = Nothing
    fermercalendrier
End Sub
Sub fermercalendrier()
Dim Sh As Object
    Set MSjour = Nothing
    For Each Sh In ActiveSheet.Shapes
        If Left(Sh.Name, Len(prefixe)) = prefixe Then Sh.Delete
    Next
ActiveSheet.Protect Password:="Tubik", DrawingObjects:=True, AllowFiltering:=True, Contents:=True, Scenarios:=True
End Sub

Qu'en pense tu?

super ! j'avoue que je savais pas quoi te proposer ...

Je l'ai lu sur un forum dans un post qui discutait d'un autre sujet. J'ai reconnu la ligne de code qui tu m'a donnée avec ce "surplus".

Encore merci pour ton aide précieuse. Mon fichier est tout à fait operationnel.

Merci et à bientôt sur le forum.