[VBA, Excel] Fonction find() aucun résultat
Fermé
morgan
-
25 juin 2006 à 16:42
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 - 25 juin 2006 à 19:22
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 - 25 juin 2006 à 19:22
1 réponse
Kobaya
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
214
25 juin 2006 à 19:22
25 juin 2006 à 19:22
salut morgan,
une recherche qui n'aboutit pas renvoie une valeur d'erreur. remplis la colonne A avec plusieurs valeurs et teste ce code :
une recherche qui n'aboutit pas renvoie une valeur d'erreur. remplis la colonne A avec plusieurs valeurs et teste ce code :
Sub recherche() Dim rngTrouve As Range Dim strChaine As String strChaine = InputBox("Chaîne à rechercher :") Set rngTrouve = ActiveSheet.Columns(1).Cells.Find(what:=strChaine) If rngTrouve Is Nothing Then MsgBox "Pas trouvé" Else MsgBox rngTrouve.Address End If Set rngTrouve = Nothing End Sub