fonction Match

[gerard55]

Bonjour à tous,
J'ai une fonction Match qui ne fonctionne pas, je ne comprend pas pourquoi. J'avais il y a quelques semaines un post à ce sujet que je ne retrouve pas, je devais joindre un fichier. Je n'ai pas eu le temps de le faire. Je reprends ce travail.
Voilà la ligne concernée. Je joins un fichier en plus.
Ncol = Application.WorksheetFunction.Match((CNom), Range("ListeNom"), 0)
Merci pour votre aide à+

 

[job75]

Re : fonction Match

Bonjour gerard55,

Match peut renvoyer la valeur d'erreur #N/A...

Il vaut mieux déclarer Ncol As Variant plutôt que Integer...

A+

 

[gerard55]

Re : fonction Match

Bonjour gerard55,

Match peut renvoyer la valeur d'erreur #N/A...

Il vaut mieux déclarer Ncol As Variant plutôt que Integer...

A+

Merci pour la réponse
Mais ça ne change rien . ça bug sur cette ligne de code. Je ne peux pas voir ce qu'il renvoie

 

[néné06]

Re : fonction Match

Bonjour gerard55,Salutations Job75


As tu essayés ceci:

Dim Nlig As Variant
Nlig = CVErr(xlErrNA)
Nlig = Application.Match(CLng(Cjour), Range("DateAn"), 0)


Nlig = CVErr(xlErrNA) évitera le plantage
Range("DateAn")=Matrice_recherche

La matrice_recherche doit être une matrice ou une référence à une matrice.

A+

 

[job75]

Re : fonction Match

Re gerard, salut néné06,

Dim Nlig As Variant
Dim Ncol As Variant
'---
Nlig = Application.Match(CLng(CDate(Cjour)), Range("DateAn"), 0)
'---
CNom = ComboBoxNom.Value
Ncol = Application.Match(CNom, Range("ListeNom"), 0)

Edit : ah oui, faites un peu attention, remplacez TextBoxNom par ComboBoxNom...

A+

 

[gerard55]

Re : fonction Match

Re gerard, salut néné06,

Dim Nlig As Variant
Dim Ncol As Variant
'---
Nlig = Application.Match(CLng(CDate(Cjour)), Range("DateAn"), 0)
'---
CNom = ComboBoxNom.Value
Ncol = Application.Match(CNom, Range("ListeNom"), 0)

Edit : ah oui, faites un peu attention, remplacez TextBoxNom par ComboBoxNom...

A+

Merci pour vos suggestions néné06 et job75
ça fonctionne
a+
Gérard