[VBA, Excel] Fonction find() aucun résultat

morgan -  
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.

1 réponse

  1.
    Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   214
     
    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
    18

Discussions similaires

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

0 réponse
VBA : dysfonctionnement fonction Find : Excel ne trouve pas des valeurs
GG69 -
eriiic -

4 réponses
Message "cette fonction n'est pas disponible actuellement"
daladala -
Lucaslebg -

15 réponses
Message récurrent sur TV LG LED HD
bullshitt -
ghsi med -

5 réponses