Problème code VBA "erreur d'exécution 13"

Bonsoir à tous,

quelqu'un pourra-t-il m'aider, svp? J'ai fait un calendrier pour des RDV de contrôle bionet. Ce que j'ai fait ne fonctionne pas bien.
Quand je clic en dehors des dates du calendrier, un message apparaît : "Erreur d'exécution '13'.
La saisie des dates de RDV se fait dans l'onglet RDV. Et Dans l'onglet calendrier, les dates s'affichent en vert.
Enfin, je souhaite afficher les dates RDV sur le tableau à côté. Soit par mois, soit l'ensemble des mois.Merci à l'avance pour votre aide et conseil.

Juju

Bonsoir MJB77,

Dans le code de la Feuil1 il faut ajouter après Is Nothing cela : And Target > ""

Voir ci-dessous. Afin que des cellules sans date dans la zone Calendrier ne te pose plus d'erreur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("seldate")) Is Nothing And Target > "" Then

       afficherService (Target)

    End If

End Sub

Bonsoir X Cellus,

merci beaucoup, j'ai fait le test et cela marche. Par contre quand je sélectionne 2 lignes par exemple, le message réapparaît.

Juju

Bonsoir MJB77,

A priori je pensais qu'il pouvait t'arriver de cliquer sur une date vide du calendrier.

Apparemment il t'arrive de glisser sur plusieurs cases.

Ce qui pourrait être une excuse auprès d'un supérieur... J'ai glissé Chef

Mais bon, on peut s'adapter.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("seldate")) Is Nothing And Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("seldate")) Is Nothing And Target > "" Then

afficherService (Target)

End If

End Sub

Merci X Cellus

Juju

X Cellus,

le test est concluant

Merci et bonne soirée!

Juju