VB : lire une valeur dans une plage

Bonjour.
Sur quelle ligne ?
Quand tu plantes, quelles sont les valeurs de "ligne" et de "colonne" ?
Au besoin, ajoute des MsgBox pour obtenir les valeurs.
Daniel

Bonjour,

Je dispose d'une grille tarifaire sous la forme d'une plage excel :
à l'horizontal ParamH, à la verticale ParamV,
Je cherche le moyen de lire la valeur à l'intersection ParamH,
ParamV.
Comment faire ?

J'ai commis ceci :
CritereV = "CritV"
CritereH = "CritH"

Ligne = Application.Match(CritereV, Range("A2:A27"), 0) + 1
Colonne = Application.Match(CritereH, Range("B1:E1"), 0) + 1

¤ = Application.WorksheetFunction.Index(Range("A1:E27"), Ligne,
Colonne, 0)
!!! ça coince pour erreur d'éxécution 1004 ????


Merci pour votre aide.

Bonjour,
Essaye sans le ",0")
x = Application.WorksheetFunction.Index(Range("A1:E27"), Ligne,Colonne)

Exemple simplifié ici
http://www.cijoint.fr/cjlink.php?file=cj201011/cijiz5P56V.xls
--
Salutations
JJ


"le Nordiste" <jean-paul.bataille@sfr.com> a écrit dans le message de news:
9e8fd9d0-2d56-40cb-a700-6c28d0286622@v12g2000vbh.googlegroups.com...
Bonjour,

Je dispose d'une grille tarifaire sous la forme d'une plage excel :
à l'horizontal ParamH, à la verticale ParamV,
Je cherche le moyen de lire la valeur à l'intersection ParamH,
ParamV.
Comment faire ?

J'ai commis ceci :
CritereV = "CritV"
CritereH = "CritH"

Ligne = Application.Match(CritereV, Range("A2:A27"), 0) + 1
Colonne = Application.Match(CritereH, Range("B1:E1"), 0) + 1

€ = Application.WorksheetFunction.Index(Range("A1:E27"), Ligne,
Colonne, 0)
!!! ça coince pour erreur d'éxécution 1004 ????


Merci pour votre aide.

J'obtiens bien des valeurs telles que cela devrait pointer dans
A2:E27,

C'est jacky qui a trouvé !

Merci