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

morgan, le dimanche 25 juin 2006 à 16:42:25

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.

Répondre à morgan Signaler ce message aux modérateurs Aller au dernier message

1Ce message vous semble utile, votez !
Ce message ne vous semble pas utile, votez !
Signaler ce message aux modérateurs

Kobaya, le dimanche 25 juin 2006 à 19:22:16

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

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

Vba, Problème avec la foncction find (1004) (Résolu) Bonjour, J'ai un léger problème avec la fonction find (je suis avec excel 2002 sp3), je vous explique : Voici mon programme : Public vcherch As String Public vtrouve As Range -----------------------------------------------------------------------... www.commentcamarche.net/forum/affich-5433659-vba-probleme-avec-la-foncction-find-1004

[VBA Excel] partie entière sup (Résolu) Bonjour, existe-t-il en VBA une fonction renvoyant la partie entière supérieure d'un réel ? expl : si x = 2.1 --> partie_entière_sup (x) = 3 merci d'avance ! www.commentcamarche.net/forum/affich-7416420-vba-excel-partie-entiere-sup

VBA Excel - Ecrire dans fichier txt (Résolu) Bonjour à tous Je dois exécuter 2 macros en vba Excel, - une qui ouvre un fichier text et incrémente un tableau de variable, là pas de problème (voici le code épuré pour info) --------------------- Private Sub Command6_Click() On Error GoTo... www.commentcamarche.net/forum/affich-4854458-vba-excel-ecrire-dans-fichier-txt

1 2 3 Suivant

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

VBA excel formulaire de saisie - aide (Résolu)Bonjour, je suis débutant en VBA excel, et j'ai construis un formulaire de saisie (userform). Malheureusement je n'arrive pas à le finaliser... il me manque : a/ le numéro de transaction (TRANID) ne change pas lorsque j'appuie sur OK... www.commentcamarche.net/forum/affich-6740657-vba-excel-formulaire-de-saisie-aide

[VBA Excel] activesheet.visible=false !HELP!! (Résolu)Bonjour, Je me dirige vers vous, car je crois que je viens de faire une belle boulette .... J'ai écrit un module en VBA Excel. Dans un module, j'enregistre dans un fichier "base e données" toutes les données que l'utilisateur vient... www.commentcamarche.net/forum/affich-4942514-vba-excel-activesheet-visible-false-help

VBA excel insérer une ligne vide (Résolu)Bonjour, Je voudrais en vba excel insérer des lignes à chaque fois qu'une valeur d'une cellule change par rapport à celle du dessus. exemple : il faudrait que j'insére une ligne vide entre 15 et 20, entre 20 et 23, entre 23 et 26.... www.commentcamarche.net/forum/affich-4126535-vba-excel-inserer-une-ligne-vide

1 2 3 Suivant

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

Télécharger YemuzipYemuzip est l'application de compression la plus simple et non moins efficace disponible sur Mac. Il vous suffit de déplacer les fichiers à compresser sur l'interface de Yemuzip et le tour est joué. La fonction "Finder's Archive" permet de protéger... www.commentcamarche.net/telecharger/telecharger-34055651-yemuzip

1 2 3 Suivant