vba, fonction find

Question

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

michel_m · Answer

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

Alex · Answer

Merci beaucoup, cela fonctionne, toutefois pouvez vous m'expliquer la fonction que vous avez utiliser ?
merci encore

Vba, fonction find

2 réponses

Votre réponse

Discussions similaires

Newsletters