High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

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

Dernière réponse le 25 jun 2006 à 19:22:16 morgan, le 25 jun 2006 à 16:42:25 
 Signaler ce message aux modérateurs

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.

Meilleures réponses pour « [VBA, Excel] Fonction find() aucun résultat » dans :
[VBA] Fonction NB.SI_Plus VoirFonction NB.SI_Plus sans limitation Cette fonction "Plus" permet d'appliquer la fonction NB.SI sans que l'on soit limité au nombre de paramètres imposés par Excel. Introduction Le classeur Dans un module général Télécharger le...
Posez votre question Répondre

1

 Kobaya, le 25 jun 2006 à 19:22:16
  • +3

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
A+,
Kobaya.

   
Répondre à Kobaya
Posez votre question Répondre
Ils ont besoin de votre aide