[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

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.

A voir également:

Vba find
Erreur 1004 vba ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

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

salut morgan,

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

Discussions similaires

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

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

commande find et option ctime

linux : find & grep

VBA : Range avec références variables..

Discussions similaires

Newsletters