Discussion :

[Jinchoo]

Bonjour,

Avec une macro vba, je souhaiterai obtenir une valeur d'un tableau dans une LabelBox.

J'utilise pour cela les fonctions "Index" et "Match" d'Excel pour rechercher la valeur du tableau. Mais à l'exécution de la macro j'ai systématiquement un message d'erreur "1004" : Impossible de lire la propriété Match de la classe Worksheetfunction.

Je ne vois pas pourquoi ça bloque, peut-être pourrez-vous m'aider ?


Merci d'avance

[tototiti2008]

Bonjour Jinchoo,

Le cas est assez classique si tu recherches une date avec Match

Il faut convertir la date en entier (avec CLng) pour que ça fonctionne

C'est une réponse "boule de cristal", je ne sais pas si les augures m'ont été favorables

[Jinchoo]

Bonjour tototiti, non il ne s'agit pas de date.

Je suis nouveau sur le forum et le fichier joint à été supprimé.
Comme le demande la modération passons aux explications en français.

J'ai un tableau Excel :
En ordonnée des diamètres allant de 1000 à 5000.
En abscisse des épaisseurs allant de 3 à 18.
Aux intersections abscisse-ordonnée des valeurs numériques.

J'ai créé 3 LabelBox sur cette feuille :
Une LabelBox1 ou j'inscris un diamètre.
Une deuxième LabelBox2 ou j'inscris une épaisseur.
Une troisième LabelBox3 ou je souhaite avoir la valeur numérique correspondant à l'intersection diamètre épaisseur.
Pour obtenir cette valeur j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LabelBox3.Caption = WorksheetFunction.Index(Range("A2:K43"), WorksheetFunction.Match(LabelBox1.Caption, Range("A2:A43"), 0), WorksheetFunction.Match(LabelBox2.Caption, Range("A2:K2"), 0))

Mais j'obtiens systématiquement un message d'erreur

"1004" : Impossible de lire la propriété Match de la classe Worksheetfunction.

J'espère éviter ainsi les réponses "boule de cristal" =)
Merci de votre aide.

[tototiti2008]

Re,

peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LabelBox3.Caption = WorksheetFunction.Index(Range("A2:K43"), WorksheetFunction.Match(CDbl(LabelBox1.Caption), Range("A2:A43"), 0), WorksheetFunction.Match(CDbl(LabelBox2.Caption), Range("A2:K2"), 0))

[Jinchoo]

Ça fonctionne.
Merci pour la rapidité ta réponse Tototiti