Fonction recherchev vba erreur indice

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Fonction recherchev vba erreur indice

ulrig

Bonjour à tous,

Je suis un novice en vba mais j'essaye de faire au mieux dans mes macros. Je me suis beaucoup aider de ce forum mais la je bloque sur ma fonction qui me dit qu'il n'y a pas d'indice.

Est-ce que quelqu'un pourrait m'aider svp ? Merci

Mon erreur est sur cette ligne :
.Range("P" & destinationRow1).Value = Application.WorksheetFunction.VLookup(Sheets("C21" ).Value, WBK.Sheets("Cédule" ).Range("A20:L330" ), 8, False)

Ci-dessous la fonction :

Code :

Private Function Importer2(Cédule As String, xlsx As String) As Variant()
Dim objShell As Object, objFolder As Object
Dim Temp(), i As Long
Dim fldr As FileDialog
Dim folderPath As String
Dim Chemin As String, fichier As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Choisir un dossier"
.AllowMultiSelect = False
.InitialFileName = "mon lien"
.Show
folderPath = .SelectedItems(1)
End With
Dim XL As Excel.Application
Dim WBK As Excel.Workbook
Dim destinationRow1 As Integer
Dim formulaRef As String
Dim refValue As String
destinationRow1 = 24
fichier = Dir(folderPath & "\*." & xlsx)
Set XL = CreateObject("Excel.Application" )
Do While Len(fichier) > 0
' Open file with excel to read value
Set WBK = XL.Workbooks.Open(folderPath & "\" & fichier)
' refValue = WBK.Sheets("Cédule" ).Range("A1" ).value
If fichier <> ThisWorkbook.Name Then
With Feuil4
.Range("P" & destinationRow1).Value = Application.WorksheetFunction.VLookup(Sheets("C21" ).Value, WBK.Sheets("Cédule" ).Range("A20:L330" ), 8, False)
End With
fichier = Dir()
destinationRow1 = destinationRow1 + 3
End If
WBK.Close (False)
Set WBK = Nothing
Loop
XL.Quit
Set XL = Nothing
Importer2 = Temp
' End If
End Function

Merci.

Message édité par ulrig le 07-11-2018 à 14:49:07

Publicité

ulrig

Petit up personne ne voit le problème d'indice dans ma fonction svp ?

MaybeEijOrNot

but someone at least

Bonjour,

Je ne comprends pas ce passage :

Code :

With Feuil4
.Range("P" & destinationRow1).Value = Application.WorksheetFunction.VLookup(Sheets("C21" ).Value, WBK.Sheets("Cédule" ).Range("A20:L330" ), 8, False)
End With

D'où sort le Feuil4 ? C'est une variable ?
De même qu'est-ce que le Sheets("C21" ) ? Parce que pour moi, là tu essayes de travailler sur une feuille qui s'appelle C21 et je ne vois alors pas à quoi correspond la propriété Value dans ce cas de figure.

Message cité 1 fois
Message édité par MaybeEijOrNot le 09-11-2018 à 18:12:11

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

ulrig

MaybeEijOrNot a écrit :

Bonjour,

Je ne comprends pas ce passage :

Code :

With Feuil4
.Range("P" & destinationRow1).Value = Application.WorksheetFunction.VLookup(Sheets("C21" ).Value, WBK.Sheets("Cédule" ).Range("A20:L330" ), 8, False)
End With

Merci MaybeEijOrNot d'avoir répondu, désolé je n'avais pas de connexion internet pendant le week end pour te répondre.
Pour moi Feuil4 signifie la feuille dans laquelle je veux avoir ma réponse à la recherchev.
Dans ma compréhension je pensais que le premier critère soit sheets("C21" ).value était la valeur recherché. Car dans ma"feuil4" dans la cellule C21 c'est la que j'ai mon critère.
Si cela peu aider.

Merci bien en tout cas d'avoir pris le temps de répondre

Message cité 1 fois

MaybeEijOrNot

but someone at least

Pour "Feuil4" je ne savais pas qu'on pouvait faire ça comme ça, personnellement j'éviterai. Mieux vaut rester sur la syntaxe classique :

Code :

With Workbooks("Classeur1" ).Sheets("Feuil1" )

Le premier critère est surement la valeur recherché (à vérifier) mais ce que je ne comprends pas c'est le Sheets("C21" ) qui signifie la feuille nommée "C21" et non la cellule C21.

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

ulrig

ulrig a écrit :

En me faisant par que Sheets("C21" ) n'était pas bon j'ai réussi à faire sortir mon premier critère voulu en modifiant comme ceci :

Code :

.Range("P" & destinationRow1).Value = Application.WorksheetFunction.VLookup(Sheets("WebAdi 2" ).Range("C21" ).Value, WBK.Sheets("Cédule" ).Range("A20:L330" ), 8, False)

Donc maintenant j'avais à faire exécuter mon premier critère de la formule vlookup en regardant mon espion. Sauf que la je bloque sur ma partie :

Code :

WBK.Sheets("Cédule" ).Range("A20:L330" )

Pour moi WBK correspond au fichier que la macro va ouvrir pour aller chercher les données colonnes pour la recherchev soit :

Set WBK = XL.Workbooks.Open(folderPath & "\" & fichier)

Je pense que je dois avoir faire une erreur de syntaxe sur ma 2e partir de formule mais je ne vois pas laquelle. J'ai le message suivant : Impossible de lire la propriété VLookup de la classe WorksheetFunction.

Merci

MaybeEijOrNot

but someone at least

Normalement, si tu as bien un classeur qui s'ouvre c'est que ça doit être bon au niveau de la syntaxe.

Essaye en remplaçant :

Code :

WBK.Sheets("Cédule" ).Range("A20:L330" )

Par une plage se trouvant dans le même classeur (tu n'as qu'à importer ta feuille dans ton premier classeur le temps de faire le test) car je ne sais pas si tu peux aller chercher dans un autre classeur comme ça. Si le problème vient de là alors il faudra ruser mais j'ai déjà une idée simple en tête.

Message cité 1 fois

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

ulrig

MaybeEijOrNot a écrit :

Normalement, si tu as bien un classeur qui s'ouvre c'est que ça doit être bon au niveau de la syntaxe.

Essaye en remplaçant :

Code :

WBK.Sheets("Cédule" ).Range("A20:L330" )

Encore merci MaybeEijOrNot.

Je viens d'importer ma feuille "Cédule" dans le fichier ou se trouve la macro. et j'ai changé la formule pour cela :

Code :

.Range("P" & destinationRow1).Value = Application.WorksheetFunction.VLookup(Sheets("WebAdi 2" ).Range("C21" ).Value, Sheets("Cédule" ).Range("A20:L330" ), 8, False)

Pour moi j'avais juste à enlever le WBK.
Mais quand je lance la macro j'ai toujours une erreur d'exécution '1004' : Impossible de lire la propriété VLookup de la classe WorksheetFunction.
Et le débogage me renvoi toujours sur la même ligne que dessus.

MaybeEijOrNot

but someone at least

Peux-tu faire un nouveau classeur et mettre cette macro :

Code :

Sub test()
With ActiveWorkbook
.Sheets("Feuil2" ).Cells(1, 2).Value = Application.WorksheetFunction.VLookup(.Sheets("Feuil2" ).Cells(1, 1).Value, .Sheets("Feuil1" ).Range("A1:A5" ), 1, False)
End With
End Sub

Dans "Feuil1" du classeur tu tapes de 1 à 5 dans les cellules allant de A1 à A5.
Tu ajoutes une nouvelle feuille (automatiquement nommée "Feuil2" normalement).
Tu tapes 3 en A1 dans cette nouvelle feuille, tu lances la macro.

Tu obtiens 3 dans la cellule A2 de la Feuil2 ou une erreur ?

Message cité 1 fois
Message édité par MaybeEijOrNot le 12-11-2018 à 20:56:10

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

ulrig

MaybeEijOrNot a écrit :

Peux-tu faire un nouveau classeur et mettre cette macro :

Code :

Sub test()
With ActiveWorkbook
.Sheets("Feuil2" ).Cells(1, 2).Value = Application.WorksheetFunction.VLookup(.Sheets("Feuil2" ).Cells(1, 1).Value, .Sheets("Feuil1" ).Range("A1:A5" ), 1, False)
End With
End Sub

Je viens de le faire et j'obtiens 3 dans la cellule B1 de la Feuil 2

Publicité

ulrig

Par rapport à mon problème je viens de recréer un fichier excel avec juste mon onglet Webadi 2.
La macro a fonctionné. Je n'ai rien changé d'autres que ce que tu m'as fais corrigé. Sauf que la macro après avoir passer une trentaine de fichier se met en erreur
"une erreur d'exécution '1004' : Impossible de lire la propriété VLookup de la classe WorksheetFunction. "

Je ne comprend pas du tout pourquoi alors que le fichier suivant à la même trame.

MaybeEijOrNot

but someone at least

Et en essayant manuellement la fonction dans Excel avec le fichier pour lequel ça se met à déconner ça donne quoi ?

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

ulrig

Allo Maybe,

Je viens d'essayer et cela fonctionne. Je pense que j'ai compris d'où vient le problème. Il y a un fichier sur le réseau qui s'appel pareil sauf que c'est une v2 et on dirait qu'il ne veut pas fonctionner car je prend un critère dedans qui à le même nom. Je vais insérer une formule avec si erreur continue.
Merci en tout cas pour l'instant je peux continuer mais tu m'as bien aider sur ma formule vlookup

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Fonction recherchev vba erreur indice

Sujets relatifs
[Java] Aide débutant Java	Arret fonction VBA
Besoin d'aide pour améliorer ma signature mail svp.	Aide sur expression régulière
aide à la compilation	fonction pour gerer les erreurs d'exception
incrémentation auto vba excel en fonction de plusieurs cellules	Aide VBA userforme
Aide sur une evaluation de l'ecole 42	aide OpenOffice.org utiliser la fonction "RECHERCHEV"
Plus de sujets relatifs à : Fonction recherchev vba erreur indice

Page générée en 0.058 secondes