[VBA, Excel] Fonction find() aucun résultat
morgan
-
Kobaya Messages postés 282 Date d'inscription Statut Membre Dernière intervention -
Kobaya Messages postés 282 Date d'inscription Statut Membre Dernière intervention -
Bonjour a tous
j'ai réalisé un script de recherche en vba mais j'ai un probleme tout marche bien quand ce que je recherche est dans la colonne mais quand il n'y est pas il y a unn erreur de bloc non définie.
Est ce que quelqu'un sais comment faire pour dire que si il n'y a pas de résultat on arete le script?
merci d'avance.
j'ai réalisé un script de recherche en vba mais j'ai un probleme tout marche bien quand ce que je recherche est dans la colonne mais quand il n'y est pas il y a unn erreur de bloc non définie.
Est ce que quelqu'un sais comment faire pour dire que si il n'y a pas de résultat on arete le script?
merci d'avance.
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
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
1 réponse
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
