Vba, fonction find

alex -
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

A voir également:

Vba, fonction find
Fonction si et - Guide
Find and mount - Télécharger - Récupération de données
Fonction miroir - Guide
Fonction moyenne excel - Guide
Find grep ✓ - Forum Linux / Unix

2 réponses

Réponse 1 / 2

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

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

Réponse 2 / 2

Alex

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

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

VBA : dysfonctionnement fonction Find : Excel ne trouve pas des valeurs

fonction Find vba

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Votre réponse

Discussions similaires