IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Recherche d'un texte dans une feuille et recuperation des coordonnees


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 5
    Points : 3
    Points
    3
    Par défaut Recherche d'un texte dans une feuille et recuperation des coordonnees
    Bonjour,

    je souhaite faire une tâche toute simple qui consiste à rechercher l'emplacement dans une sheet, d'un texte donné. Ce qui m'interesse étant la ligne et la colonne de la cellule contenant ce texte.

    Mais je ne comprends pas trop comment fonctionne la methode find, si c'est bien ca qu'il faut que j'utilise.

    Si on peut m'aider, merci d'avance.

    PS: je suis sur excel 2003

  2. #2
    Membre éprouvé
    Avatar de JackOuYA
    Inscrit en
    Juin 2008
    Messages
    1 040
    Détails du profil
    Informations forums :
    Inscription : Juin 2008
    Messages : 1 040
    Points : 1 191
    Points
    1 191
    Par défaut
    bonsoir,

    pour la commande Find, tu as l'aide en ligne elle correspond à la commande recherche , du menu excel , je te conseille de préciser tous ces paramétres pour éviter qu'elle ne prenne le paramétre par défaut ( celui de la recherche précédente)


    tiens un exemple de code de recherche :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Sub yaCherche()
     Dim yaSt As String 'Valeur cherchée
     Dim yaCell As Range  'Cellule cherchée
     Dim yaPlage As Range ' Plage de recherche
     yaSt = "Salut"
     
     Set yaPlage = ThisWorkbook.Sheets("Feuil1").Cells 'Recherche dans toutes les cellules de la feuille 1
     
     Set yaCell = yaPlage.Find( _
                           What:=yaSt _
                             , After:=yaPlage.Cells(1), LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
     
       If Not yaCell Is Nothing Then
           MsgBox "Trouvé ligne : " & yaCell.Row & " colonne : " & yaCell.Column
        Else
           MsgBox """" & yaSt & """  Introuvable ! dans " & yaPlage.Parent.Name & "!" & yaPlage.Address
       End If
     
    End Sub
    JacqueS.

    Ps: je ne télécharge les piéces jointes qu'en dernier recours .(et encore...)

    Pour devenir mon ami laissez moi un message

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 5
    Points : 3
    Points
    3
    Par défaut
    Merci pour l'exemple, ca marche trés bien pour mon cas!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Recherche d'un texte dans une variable
    Par Cj_Dal dans le forum Shell et commandes GNU
    Réponses: 6
    Dernier message: 11/06/2010, 19h04
  2. [E-03] Récupérer la valeur d'une zone de texte dans une feuille
    Par moilou2 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 25/03/2009, 10h57
  3. Importer fichier texte dans une feuille
    Par malouxa dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 25/11/2008, 20h45
  4. Recherche par mot clef dans une feuille excel.
    Par takamo dans le forum Excel
    Réponses: 12
    Dernier message: 18/06/2008, 14h35
  5. Réponses: 1
    Dernier message: 18/04/2007, 18h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo