Discussion :

[BtjpsspgrW]

Bonjour,

Je souhaiterais gérer les erreurs avec VISUAL BASIC .

Code :

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

Range("A:A").Find("Lenoir").Select

Si le mot clé, dans la colonne A :A est « Lenoir » , et qu’il ne figure pas dans la liste, VBA retourne l’erreur d’exécution ‘91’, Débogage.

Code :

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

Range("A:A").Find("Dupont").Select

Si le mot clé, dans la colonne A :A est « Dupont », et qu’il figure dans la liste, VBA sélectionne la cellule trouvée.

Afin de résoudre ce problème d’erreur, j’ai inséré le code :

Code :

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

1
2
3
4
On Error Resume Next 'gestion d'erreur avant la recherche'
Err = 91
If Err = 91 Then 'si le mot clé n'est pas trouvé'
    MsgBox ("Inconnu")

Dans les 2 cas, lorsque le mot clé n’est pas trouvé / lorsque le mot clé est trouvé, il me retourne la MsgBox ("Inconnu")
Je ne vois comment corriger l’erreur.

En pièce jointe, un fichier pour illustrer mon exemple.

Merci pour votre aide.

[Thumb down]

Bonsoir,
il est préférable d'utiliser l'objet range et de vérifier que la recherche à abouti que d'utiliser le gestionnaire d'erreur!

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim R As Range
Set R = Range("A:A").Find("Lenoir")
If R Is Nothing Then
    MsgBox "pas trouvé"
Else
    MsgBox R.Value
End If
End Sub