Index dans vba Résolu/Fermé

Question

Bonjour, 

Je tente d'utiliser la fonction index afin d'obtenir une valeur dans un tableau. 
J'écris le code suivant et le tableau se trouve dans la plage de données Jg qui se trouve dans une autre feuille.
Voici comment j'écris mon code.
Jg_2 = Application.WorksheetFunction.Index(Range("Jg"), x, y)
Cependant, un message d'erreur disant qu'il ne reconnait pas l'emplacement de la plage de donnée "Jg".
Y a-t-il quelqu'un qui aurait une solution à ce type de problème?
En esperant avoir été suffisamment clair.
Merci d'avance

f894009 · Answer

Bonjour,
Comment avez vous defini la plage Jg (definir nom, par programme, .......)?

f894009 · Answer

Re, 'Ok pour Jg_2 = Application.WorksheetFunction.Index(Range("Jg").Value, x, y) Mais probleme variables Sub PR() Dim nbv As Single nbv = Range("C35") declaree en variable locale: ne sera pas vue de Sub Jg() d'ou y=0--------->erreur ligne Jg-2........... '------------------------------------- Sub Jg() Dim Ag2 As Single Ag2 = Range("K22") bien declare, mais pas changer de variable en cours de programmation If Ag_2 / Ag1 >= 2 And Ag_2 / Ag1 < 12 Then If Ag_2 >= 16000 And Ag_2 <= 26000 Then x = 1 et en suivant idem '------------------------------------- Actuellement: Apres modif Ag_2 par Ag2 Dim h1 As Single h1 = Range("G13")--------------->140 Dim e1 As Single e1 = Range("G14")--------------->38 Ag2 = Range("K22") Ag2=12460 Dim Ag1 As Single Ag1 = h1 * e1----------------------->5320 If Ag2 / Ag1 >= 2 And Ag2 / Ag1 < 12 Then------------------------->2....... If Ag2 >= 16000 And Ag2 <= 26000 Then------------------------>mais 12460 trop petit d'ou x=0 erreur ligne Jg-2........... A+

shawn · Answer

Bonjour, 
Merci beaucoup pour vos commentaire, il y avait effectivement plusieurs erreurs dans mon code. Cependant, la fonction ne marche toujours pas car x est toujours égal à zéro (et il ne devrait pas l'être). Est-ce du au ait que j'ai des fonctions "if" à l'intérieur de d'autres fonction "if". Est-ce possible d'écrire de cette façon? 
Encore un tres grand merci

f894009 · Answer

Re,

12460 sera toujours plus petit que 16000. Donc c'est un probleme de traitement de donnees.

shawn · Answer

Je comprends et j'ai modifié mon code afin que 12460 se retrouve à l'intérieur des valeurs envisagées. J'obtiens donc x=5 et y =1. Cependant, le message d'erreur suivant apparait: La méthode 'Range' de l'objet'_Worksheet' a échoué

f894009 · Answer

Bonjour,

Maintenant, de temps en temps, j'ai le meme probleme!!

Je cherche.

f894009 · Answer

Bonjour,

Apres quelques recherches, j'ai trouve une solution de remplacement sur ce site:

http://www.xtremevbtalk.com/archive/index.php

a cette page

http://www.xtremevbtalk.com/archive/index.php/t-264523.html



Remplacez la ligne Jg_2=Application.WorksheetFunction.Index..............

par:

Jg_2 = Worksheets("feuil1").Range("Jg").Cells(x, y).Value


J'ai fais des essais sur votre fichier et sur un fichier cree pour l'occasion cela marche

A+