Probleme vlookup + msg box

Bonjour a tous,

Dans le bout de code ci après je cherche a ce que quand le numéro de compte entré dans l'inputbox n'est pas trouvé (par vlookup), ca me dise "pas de compte X" et quand le compte existe, ca ne dise rien.

Je ne vois pas ou je me trompe.

Pouvez vous m'aider?

Merci d'avance

Sub rech_compte()

Dim ch As Variant

Dim lookup As Variant

ch = InputBox("Numero de container")

Range("B11").Value = ch

lookup = Application.WorksheetFunction.VLookup(ch, Sheets("sheet2").Range("A:A"), 1, False)

If IsError(lookup) = True Then

MsgBox "le compte " & lookup & “n’existe pas”

Else:

resume

End If

End Sub

Bonjour

Enlève le WorksheetFunction

Ce qui donne : lookup = Application.VLookup(ch, Sheets("sheet2").Range("A:A"), 1, False)

A tester

Bonjour,

après modifications entre autres des doubles cotes de : “n’existe pas” et remplacement de la variable code trouvé (lookup) par la variable code cherché (ch) dans MsgBox "le compte " & lookup & “n’existe pas”

Sub rech_compte()
Dim ch As Variant, lookup As Variant

ch = InputBox("Numero de container")
Range("B11").Value = ch
lookup = Application.VLookup(ch, Worksheets("sheet2").Range("A:A"), 1, 0)

If IsError(lookup) Then MsgBox "le compte " & ch & " n’existe pas"

End Sub

une autre version:

Sub rech_compte()
Dim ch As Variant, lookup As Range, Plage As Range

ch = InputBox("Numero de container")

Range("B11").Value = ch
With Worksheets("sheet2")
 Set Plage = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row) 'pour éviter la recherche sur la colonne complète
End With

 Set lookup = Plage.Find(ch, LookIn:=xlValues, LookAt:=xlWhole)
 If lookup Is Nothing Then MsgBox "le compte " & ch & "n’existe pas"

End Sub

A+

Hello,

merci.

Pour une raison inconnue, la premiere version ne marche pas, et la seconde fonction parfaitement, donc ca fait le taf.

Je peux cloturer le topic.

Merciiiiiiiiiiiiiiiiiiiii