Bonjour à tous,
Une nouvelle fois, je sollicite le clan des excel-downloaders pour me sortir d'un mauvais pas de VBA...
J'ai écrit le code suivant, qui me permet de rentre dans une cellule la valeur que me rendrait une fonction recherchev dans la feuille de calcul.
cas est une chaîne de caractères déclarée plus haut
j est un curseur qui décrit un certain nombre de lignes (commence à 12).
If Cells(8, 3) = "oui" Then
If IsError(Application.WorksheetFunction.VLookup(cas, Worksheets("BdDMinéraux").Range("E4:H613"), 4, False)) Then
Sheets("Feuille de résultats").Cells(j, 5) = ""
Else
Sheets("Feuille de résultats").Cells(j, 5) = Application.WorksheetFunction.VLookup(cas, Worksheets("BdD Minéraux").Range("E4:H613"), 4, False)
End If
Else
Sheets("Feuille de résultats").Cells(j, 5) = "/"
End If
Lorsque je fais tourner mon code pas à pas, la première fois que je rentre dans la boucle, il me rend en cellule (12,5) la bonne valeur.
Au tour suivant, quand j = 13, il me retourne une erreur d'exécution 1004 : impossible de lire la propriété VLookup de la classe worksheetFunction.
Cela n'est pas lié à ma chaîne de caractères "cas", car j'ai fait plusieurs tests avec différentes valeurs de "cas", et quelle que soit la valeur rentrée, ça marche au premier coup, et ensuite, ça plante.
Avez-vous une idée du problème ????
Moi, je sèche complètement !!!
Merci d'avance,
Flore
Une nouvelle fois, je sollicite le clan des excel-downloaders pour me sortir d'un mauvais pas de VBA...
J'ai écrit le code suivant, qui me permet de rentre dans une cellule la valeur que me rendrait une fonction recherchev dans la feuille de calcul.
cas est une chaîne de caractères déclarée plus haut
j est un curseur qui décrit un certain nombre de lignes (commence à 12).
If Cells(8, 3) = "oui" Then
If IsError(Application.WorksheetFunction.VLookup(cas, Worksheets("BdDMinéraux").Range("E4:H613"), 4, False)) Then
Sheets("Feuille de résultats").Cells(j, 5) = ""
Else
Sheets("Feuille de résultats").Cells(j, 5) = Application.WorksheetFunction.VLookup(cas, Worksheets("BdD Minéraux").Range("E4:H613"), 4, False)
End If
Else
Sheets("Feuille de résultats").Cells(j, 5) = "/"
End If
Lorsque je fais tourner mon code pas à pas, la première fois que je rentre dans la boucle, il me rend en cellule (12,5) la bonne valeur.
Au tour suivant, quand j = 13, il me retourne une erreur d'exécution 1004 : impossible de lire la propriété VLookup de la classe worksheetFunction.
Cela n'est pas lié à ma chaîne de caractères "cas", car j'ai fait plusieurs tests avec différentes valeurs de "cas", et quelle que soit la valeur rentrée, ça marche au premier coup, et ensuite, ça plante.
Avez-vous une idée du problème ????
Moi, je sèche complètement !!!
Merci d'avance,
Flore