Discussion :

[Willoo]

Bonjour,

Je débute dans VBA et je suis face un problème qui me bloque pour la suite de ma macro.

Malheureusement j’ai un message d’erreur qui apparait à chaque fois que j'utilise la function VLOOKUP et j’ai compris que c’est lorsque qu’il ne trouve pas la valeur dans le tableau « Ref Table ».

J’ai donc essayé d’inclure une fonction « IFERROR » comme je l’aurais fait sur Excel pour contourner le problème mais ça ne fonctionne toujours pas.

J'espère que quelqu'un pourra m'aider.

En vous remerciant par avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim AxLease As Integer
 AxLease = 1
 
    While MRISheet.Range("D" & AxLease) <> ""
    If MRISheet.Range("C" & AxLease) <> "" Then
    Result = Application.WorksheetFunction.VLookup(MRISheet.Range("A" & AxLease), Sheets("Table Ref").Range("A1:N10000"), 2, False)
 
    MRISheet.Range("B" & AxLease).Value = Result
 
    End If
 
    AxLease = AxLease + 1
 
    Wend

[Marc-L]

Bonjour,

ne jamais utiliser WorksheetFunction (Vade Retro Satanas ! ) mais juste Application.VLookup
en combinant avec une variable de type Variant à tester avec la fonction VBA IsError …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Willoo]

Merci Marc-L pour ta réponse très rapide.
Cela fonctionne !! J'ai vu pourtant dans un livre pour apprendre le VBA qu'il fallait utiliser "WorksheetFunction"

Je me permets de t'ennuyer un peu car je débute encore.
Aurais-tu un conseil pour que je puisse utiliser la fonction "IFERROR" ?

Le but est de faire apparaitre un message quand on ne trouve pas de valeur dans "Table Ref".

Merci d'avance.

[halaster08]

Bonjour

Aurais-tu un conseil pour que je puisse utiliser la fonction "IFERROR" ?

De la même manière que tu utilise le vlookup

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result = Application.IfError(vlookup(MRISheet.Range("A" & AxLease), Sheets("Table Ref").Range("A1:N10000"), 2, False), "message")

[Willoo]

Bonjour halaster,

C'est bizarre ça ne fonctionne pas...

J'ai un peu changer le code pour concatener mais le principe reste le meme
J'ai l'impression qu'il ne reconnait pas le "IFERROR" car il n'a pas changé les caractères automatiquement ("iferror" au lieu de "IfError").

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result = Application.iferror(Mid(Application.VLookup(MRISheet.Range("A" & AxLease), Sheets("Table Ref").Range("A1:N10000"), 2, False), 1, 4) & "-" & Mid(Application.VLookup(MRISheet.Range("A" & AxLease), Sheets("Table Ref").Range("A1:N10000"), 2, False), 5, 6), "Pas de lease ID AX")

Merci à toi.

[halaster08]

Tu as surement un soucis de paranthèse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

iferror(Mid(Application.VLookup(MRISheet.Range("A" & AxLease), Sheets("Table Ref").Range("A1:N10000"), 2, False), 1, 4)

si j'ai bien compté le iferror s'arête ici et pas à la fin
application.iferror est bien reconnu par vba je l'ai testé.

Edit: en fait si tu enlève tes deux "application." avant les vlookup a l'intérieur du iferror ça semble marcher.