Pbl VB EXcel avec find

Binou3719 Messages postés 2 Date d'inscription mercredi 24 août 2005 Statut Membre Dernière intervention 25 août 2005 - 24 août 2005 à 13:42
Binou3719 Messages postés 2 Date d'inscription mercredi 24 août 2005 Statut Membre Dernière intervention 25 août 2005 - 25 août 2005 à 08:04
J'ai un petit problèm. J'utilise find pour trouvé des cellule dans ma feuille mais s'il n'y a pas de cellule correspondant à la recherche je n'arrive pas à gérer l'erreur.
Merci d'avance

2 réponses

cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 12
24 août 2005 à 13:53
Bonjour,

Essaye qqch du genre :

Dim MaCellule As Range


Set MaCellule = Worksheets("MaFeuille").Range("A:A").Find("MaValeur")
If MaCellule Is Nothing Then
MsgBox "Valeur pas trouvée !"
Else
MsgBox "Valeur trouvée en ligne " & MaCellule.Row
End If

wape
0
Binou3719 Messages postés 2 Date d'inscription mercredi 24 août 2005 Statut Membre Dernière intervention 25 août 2005
25 août 2005 à 08:04
Ok, merci je vais essayer
0
Rejoignez-nous