Fonction MATCH

[gerard55]

Bonjour à tous.
J'essaie de construire un outil avec un userform. La fonction MATCH ci-dessous me renvoie "impossible en mode arrêt" C'est la ligne où il y a la fonction MATCH qui dysfonctionne.

Private Sub CommandButtonValider_Click()
Dim Cjour As Date
Dim Nlig As Integer
Dim DateAn As Date
Cjour = MonthViewCalendrier.Value
Nlig = Application.WorksheetFunction.Match(Cjour, DateAn, 0)

DateAn est la zone de recherche de la date (d17:d385)
La syntaxe ne doit pas être bonne. Merci pour votre aide éventuelle.
Autre question: peut-on sélectionner 2 ou 3 dates dans un calendrier?
A+

 

[tototiti2008]

Re : Fonction MATCH

Bonjour Gérard,

quand appelé en VBA, Match ne fonctionne sur les dates que si on les convertit en nombre (Long)

essaie

Nlig = Application.WorksheetFunction.Match(Clng(Cjour), Range("DateAn"), 0)

Edit : Correction DateAn est une plage nommée ? si oui , voir le code modifié

 

[gerard55]

Re : Fonction MATCH

Merci Tototiti
ça fonctionne. J'ai une autre fonction qui m'affiche le même message d'erreur.
Ncol = Application.WorksheetFunction.Match((CNom), Range("ListeNom"), 0)
Là c'est pour retrouver le n° d'une ligne CNom est le nom que j'indique dans l'userform et ListeNom est la zone nommée où je recherche le n° de la colonne.
Si vous avez un conseil, merci d'avance.
a+

 

[tototiti2008]

Re : Fonction MATCH

Bonjour Gérard, Bonjour Jean-Marcel 🙂,

tout à fait, une gestion d'erreur est fortement conseillée avec Match comme préconisé par Jean-Marcel
Mais si tu veux une explication de pourquoi il ne trouve pas Cnom dans la plage ListeNom, peut-être faudrait-il que l'on puisse voir la plage ListeNom, et qu'on ait idée de ce que vaut CNom... je vois mal d'ici...