Gestion d'erreur Vlookup...

[GregusXS]

Bonjour,

Je n'arrive pas à gérer l'erreur qui apparaît lorsque la fonction Vlookup ne trouve pas de valeur recherchée dans la colonne C...
J'ai tenté quelque chose avec IsError, mais cela ne fonctionne pas...
Voici le code, si qqun a une solution:

Dim Valcherchee As Range, NextValcherchee As Range
Dim Plage As Range
Dim Onglet As String
Dim Presence As Variant

Onglet = "Feuil1"
On Error Resume Next
Set Valcherchee = Worksheets(Onglet).Range("A2")
Set Plage = Worksheets(Onglet).Range("C2😀7")
Do While Not IsEmpty(Valcherchee)
Set NextValcherchee = Valcherchee.Offset(1, 0)
Presence = Application.WorksheetFunction.VLookup(Valcherchee, Plage, 1, False)
If IsError(Presence) Then
MsgBox (Valcherchee & "pas trouvé")
Else
Valcherchee.Interior.Color = RGB(0, 225, 0)
End If
On Error GoTo 0
Set Valcherchee = NextValcherchee
Loop

'
End Sub


Merci pour votre aide!

 

[Pierrot93]

Re : Gestion d'erreur Vlookup...

Re, bonjour Jean-Pierre

le code que j'ai donné sur l'autre fil fonctionne parfaitement chez moi (excel 2003), je viens à nouveau de le re tester...

Sub test()
Dim vcherche As Range, matrice As Range
Set vcherche = Range("A2")
Set matrice = Sheets("Feuil2").Range("A1").CurrentRegion
On Error Resume Next
x = WorksheetFunction.VLookup(vcherche, matrice, 2, False)
If Err.Number <> 0 Then MsgBox "valeur non trouvée"
On Error GoTo 0
End Sub

comment l'as tu employé ??

mets le code utilisé dans sa totalité.

@+

 

[jeanpierre]

Re : Gestion d'erreur Vlookup...

Re Coriolan,

Ce "petit" conseil n'est pas un reproche à ton sujet, bien au contraire car aider c'est le but, mais surtout pour montrer, à celles ou ceux qui dédoublonnent les posts, que ce n'est pas judicieux. Il y a des jours où c'est pire....

Je t'ai simplement indiqué ce que je fais lorsqu'il y a incertitude.

Toutes amitiés et sans rancunes si tu as mal saisie ma démarche.

Jean-Pierre

 

[Spitnolan08]

Re : Gestion d'erreur Vlookup...

Désolé Pierrot,
Et bonsoir jeanpierre,

Mais j'ai conseillé à GregusXS de fermer ce fil et de retourner sur l'autre.
Ce qu'il a indiqué dans son dernier post.

Bonne soirée à vous
Et mettez les bons crampons pour tous pousser dans le bon sens!

@Coriolan, je t'ai adressé un message personnel.

Cordialement

 

[Hellboy]

Re : Gestion d'erreur Vlookup...

Bonjour,

Misère, elle m'as donner du trouble celle-là.
C'est le on error qui n'étais pas au bon endroit !

Sub TrouveTest()
'
' TrouveTest Macro
' Macro enregistrée le 19.10.2007 par gburki
'Dim Valcherchee As Range, NextValcherchee As Range
Dim Plage As Range
Dim Onglet As String

Dim Presence As Variant

Dim Error As Boolean


Onglet = "Feuil1"


Set Valcherchee = Worksheets(Onglet).Range("A2")
Set Plage = Worksheets(Onglet).Range("C2😀7")

Do While Not IsEmpty(Valcherchee)

On Error Resume NextSet NextValcherchee = Valcherchee.Offset(1, 0)

If IsError(Application.WorksheetFunction.VLookup(Valcherchee, Plage, 1, False)) Then
  MsgBox (Valcherchee & " pas trouvé")
Else
  Valcherchee.Interior.Color = RGB(0, 225, 0)
End IfOn Error GoTo 0

Set Valcherchee = NextValcherchee
Loop

'
End Sub

 

[GregusXS]

Re : Gestion d'erreur Vlookup...

La toute grande classe, ça marche du tonnerre!

Merci beaucoup! Fallait y penser, pas évident!

Cordialement