Vba, fonction find
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
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
-
Contributeurbonjour
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
-
Merci beaucoup, cela fonctionne, toutefois pouvez vous m'expliquer la fonction que vous avez utiliser ?
merci encore
