Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Gestion d'erreur Vlookup...

  • Initiateur de la discussion Initiateur de la discussion GregusXS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

GregusXS

Guest
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!
 
Re : Gestion d'erreur Vlookup...

Bonjour Gregus,

Essaye de supprimer la variable "presence":

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

Onglet = "Feuil1"
On Error Resume Next
Set Valcherchee = Worksheets(Onglet).Range("A2")
Set Plage = Worksheets(Onglet).Range("C27")
Do While Not IsEmpty(Valcherchee)
Set 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 If
On Error GoTo 0
Set Valcherchee = NextValcherchee
Loop

'
End Sub
 
Re : Gestion d'erreur Vlookup...

Bonjour Coriolan,

Je ne pense pas que ta proposition résolve le pb de Gregus...
Alors arrête de faire de la résistance😉 (Private joke) et joint toi à nous.

Mais surtout, il n'est pas souhaitable de multiplier les fils sur un même sujet. Cela prive de l'historique des recherches déjà effectuées par les membres du forum qui ont déjà répondu ailleurs.

Et cela surcharge inutilement le forum. Un petit tour Lien suppriméme semble utile.

Excuse moi Pierrot, j'ai survolé le fil...

Cordialement
 
Dernière édition:
Re : Gestion d'erreur Vlookup...

Désolé Spitnolan me suis trompé de manip...

Merci Coriolan,

mais lorsque je lance la macro pas à pas et qu'elle tombe sur une nombre qu'elle ne trouve pas, la macro s'arrête directement à la ligne "Vlookup" sans aller plus loin...

Je ne comprends pas pourquoi.

Je glisse le fichier, ça sera bcp plus simple.
 

Pièces jointes

Re : Gestion d'erreur Vlookup...

Re

aucun problème avec toi Spitnolan, tu écrivais pendant que je répondais sur l'autre fil, d 'ailleur il n'a même pas vu ma proposition, encore un fil pour rien...

@+
 
Re : Gestion d'erreur Vlookup...


Cordialement également, et sans rancune 😉
 
Re : Gestion d'erreur Vlookup...

Est-ce-qu'un modérateur peut supprimer définitivement l'autre fil? VOici le lien:Lien supprimé

Merci Pierrot pour ta réponse.
J'ai essayé, mais l'erreur 1004 apparaît toujours m'indiquant qu'il est impossible de lire la propriété Vlookup de la classe Worksheetfunction. Du coup, il n'atteint pas la ligne suivante.

Savez-vous pourquoi cela fait ça?
 
Re : Gestion d'erreur Vlookup...

Bonjour à tous,

Pour Coriolan, et si tu ne lis pas tous les fils, tu peux cliquer sur le pseudo et regarder s'il n'y a pas de doublon de question, çà prend quoi... 50 secondes....

Un conseil seulement....

Bonne fin d'après-midi....

Jean-Pierre
 
Re : Gestion d'erreur Vlookup...

Bonjour JeanPierre,

Je me suis inscrit sur ce forum pour aider les autres, pas pour vérifier s'ils suivent la charte.

Qui plus est, la recherche effectuée (en 50 secondes 😉 ) donne:

Fils initiés par GregusXS:

Gestion d'erreur Vlookup...
Application.WorksheetFunction.VLookup

Même si les deux concernent VLookup, il est difficile d'y voir une quelconque redondance avant de lire l'intégralité des fils.

Encore une fois, je préfère passer mon temps à aider les autres dans la mesure de mes moyens plutôt qu'à chasser les sorcières.

Néanmoins merci du conseil et bonne fin d'après-midi également
 
Re : Gestion d'erreur Vlookup...

Ce fil est interrompu, car il y a doublon avec celui-ci:
Lien supprimé

Merci de suivre le lien pour répondre à la question...

Amicalement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
869
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…