esterreur avec VLookup !?

N

Novice avance !?

XLDnaute Occasionnel

• 21 Avril 2007

• #2

Re : esterreur avec VLookup !?

IF(isNA(VLookup(val,plage,2,0));"";VLookup(val,plage,2,0)) est ce qui correspondrai mais comment le mettre en forme pou celà :

range("A1")=WorksheetFunction.VLookup(val,plage,2,0)

merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Avril 2007

• #3

Re : esterreur avec VLookup !?

Bonsoir Noviceavancé

tu peux essayé d'utiliser la fonction "IsError", peut être permettra de résoudre ton problème.

bonne soirée
@+

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 21 Avril 2007

• #4

Re : esterreur avec VLookup !?

Bonjour novice avance, pierrot

On error resume next
WorkSheetFunction VLookup(val,plage,2,0)
on error goto 0

Cliquez pour agrandir...

en faisant comme cela , tu controles l'erreur mais tu ne la traites pas

pour la traiter tu fais :

On error resume goto erreur
WorkSheetFunction VLookup(val,plage,2,0)
goto suite
erreur:
msgbox "La recherche a echoué"
on error goto 0
suite:
suite du code

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

N

Novice avance !?

XLDnaute Occasionnel

• 23 Avril 2007

• #5

Re : esterreur avec VLookup !?

bonjour,
je suis toujours sur mon problème de gestion d'erreur avec VLookup mais je n'arrive pas à adapter à mon code ce que m'a proposé wilfried_42

sachant que val est le problème et qu'il peut ou ne pas être dans la plage C3: D284 en fonction d'un choix effectué

j'espère que ce code ci-dessous suffira à m'aider parce que sinon il faudrait que je mettes le fichier complet pour plus de cohérence mais il est lourd !?


Private Sub ListBox2_Change()
Dim a, i, j As Byte
Dim lig, val1 As Byte
Dim val As Variant
Dim nom As Variant
Label12.Caption = ListBox1.Value & ListBox2.Value
val = Label12.Caption
val1 = TextBox1.Value

lig = WorksheetFunction.VLookup(val, Range("C3: 284"), 2, 0)
a = WorksheetFunction.VLookup(val1, Range("HG342:HH376"), 2, 0)

j = 2
For i = 1 To 7
Controls("TextBox" & j) = Cells(lig, a)
j = j + 1
a = a + 1
Next i

End Sub


un grand merci par avance
bonne soirée

 

Vote positif 0 Vote négatif

N

Novice avance !?

XLDnaute Occasionnel

• 23 Avril 2007

• #6

Re : esterreur avec VLookup !?

j'oubliais...
il faudrait en cas d'erreur que
Controls("TextBox" & j) = ""


merci

🙄

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Avril 2007

• #7

Re : esterreur avec VLookup !?

Bonsoir

Attention "Val" est déjà une fonction vba, ne pas l'utiliser en tant que nom de variable, modifie peut être déjà ton code en ce sens, et dis nous.

bonne soirée
@+

 

Vote positif 0 Vote négatif

N

Novice avance !?

XLDnaute Occasionnel

• 23 Avril 2007

• #8

Re : esterreur avec VLookup !?

problème résolu
je ne sais pas si le fait d'avoir changé val à changer quelque chose mais je l'ai quand meme fait !? en tout cas merci pour l'info Pierrot93

j'ai pu adapter finalement le code de Wilfried_42 en forçant dans mon cas la valeur de lig et de a

merci beaucoup

bonne soirée🙂 🙂 😀

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 23 Avril 2007

• #9

Re : esterreur avec VLookup !?

Salut à tous,

Juste une petite remarque concernant les déclarations de variable qui sont incorrectes:
Dim a, i, j As Byte
Dim lig, val1 As Byte
a, i et lig ne seront pas déclarées en Byte mais en Variant. En effet, il faut que tu les spécifies pour chacune d'entre elles comme ceci:

Dim a As Byte, i As Byte, j As Byte
Dim lig As Byte, val1 As Byte

Bonnne soirée

 

Vote positif 0 Vote négatif