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 :

Chercher du texte et afficher le résultat


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Profil pro
    Inscrit en
    Octobre 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2011
    Messages : 2
    Par défaut Chercher du texte et afficher le résultat
    Bonjour, voici ce que j'aimerai faire depuis un petit moment déjà.

    J'ai cherché sur des tutos mais je n'arrive pas à construire ma macro....

    J'ai la colonne A d'une feuille excelle qui contient des dates sous la forme texte (ex 1 janvier) et les colonnes B,C,D qui contiennent des noms (Ex jean dupont)


    J'ai crée une userform avec une textbox et un bouton et j'aimerais que si l'on marque un nom dans la textbox (jean dupont) un message apparait avec la date qui correspond (1 janvier) sachant que dans mon classeur si la cellule A1 contient 1 janvier, la cellule b1 contient jean dupont.

    Suis-je assez clair?

    Merci

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Tu peux utiliser la méthode find

    Ici on recherche le nom lors du click sur un bouton
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub CommandButton1_Click()
     
    Dim rg As Range
     
    If TextBox1.Text <> "" Then
        Set rg = Sheets("Feuil1").Range("B:D").Find(what:=TextBox1.Text, lookat:=xlWhole)
        If Not rg Is Nothing Then
            MsgBox Sheets("Feuil1").Range("A" & rg.Row).Value
        End If
    End If
     
    End Sub

  3. #3
    Nouveau candidat au Club
    Profil pro
    Inscrit en
    Octobre 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2011
    Messages : 2
    Par défaut
    Super, merci beaucoup pour cette réponse rapide et efficace !!! tu m’enlèves une épine du pied ! c'est exactement ce que je recherchais.

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

Discussions similaires

  1. Clause WHERE pour chercher un texte contenu dans le résultat
    Par Lincoln911 dans le forum VBA Access
    Réponses: 7
    Dernier message: 12/04/2010, 16h41
  2. Réponses: 13
    Dernier message: 03/02/2010, 18h32
  3. Afficher un résultat dans l'édit text du guide
    Par wafaa2009 dans le forum Interfaces Graphiques
    Réponses: 4
    Dernier message: 21/06/2009, 11h04
  4. Réponses: 1
    Dernier message: 07/03/2007, 12h05
  5. Réponses: 6
    Dernier message: 02/10/2006, 13h13

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