Vba, fonction find

Fermé
alex - 14 févr. 2009 à 18:03
 Alex - 16 févr. 2009 à 19:16
Bonjour,
Bonjour,
Je voudrais que si la valeur recherché n'est pas trouvé alors une message box apparaît et indique aucun résultat, merci d'avance

code :

Private Sub ModifierDonnées_Click()

Recherche = Range("A2:A999").Find(NomLivreBox.Value).Row

Cells(Recherche, 1) = NomLivreModifiéBox.Value
Cells(Recherche, 2) = NomAuteurModifiéBox.Value
Cells(Recherche, 3) = RésuméModifiéBox.Value
Cells(Recherche, 4) = GenreModifierListBox.Value

end sub

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
14 févr. 2009 à 18:24
bonjour

tu pourrais utiliser le gestionnaire d'erreur

On error resume next
Recherche = Range("A2:A999").Find(NomLivreBox.Value).Row
If Err.Number > 0 Then
msgbox "aucun résultat", vbcritical
exit sub
end if
on error goto 0

Cells(Recherche, 1) = NomLivr....etc
0
Merci beaucoup, cela fonctionne, toutefois pouvez vous m'expliquer la fonction que vous avez utiliser ?
merci encore
0