VB : lire une valeur dans une plage

Le
le Nordiste
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #22808691
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.
Jacky
Le #22808801
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"
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.
le Nordiste
Le #22808791
J'obtiens bien des valeurs telles que cela devrait pointer dans
A2:E27,
le Nordiste
Le #22809221
C'est jacky qui a trouvé !

Merci
Publicité
Poster une réponse
Anonyme