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 :

zone de recherche avec excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Directeur technique
    Inscrit en
    Décembre 2016
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Tourisme - Loisirs

    Informations forums :
    Inscription : Décembre 2016
    Messages : 2
    Par défaut zone de recherche avec excel
    Bonjour à tous,
    Je suis tout nouveau sur ce forum, (inscrit il y a 15mn), et à part exploiter Excel de manière basique, et bien je me lance depuis hier dans une démarche qui ne relève pas de mes compétences.
    J'ai crée sous Excel un tableau qui ressemble à ceci: colonne A Nom du produit ou matériel, colonne B nom du fournisseur, colonne C prix d'achat, et colonne D prix de vente.
    Sur le net j'ai trouvé une formule VBA (qui pour moi est de l'hébreux lol) mais qui répond à mes attentes dans la recherche que je veux faire SAUF:
    Je souhaiterai également pouvoir rechercher dans la colonne B (fournisseurs),
    Surligner les lignes A B C D, et si possible ne laisser voir que la ou les lignes ou figure(nt) le mot recherché.
    Voici ce que j'ai trouvé...

    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
    Private Sub TextBox1_Change()
     
        Application.ScreenUpdating = False
     
        Range("A3:A24").Interior.ColorIndex = 2
        ListBox1.Clear
     
        If TextBox1 <> "" Then
            For ligne = 3 To 24
                If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                    Cells(ligne, 1).Interior.ColorIndex = 43
                    ListBox1.AddItem Cells(ligne, 1)
                End If
            Next
        End If
     
    End Sub
    Pour finir, je vais regarder de plus prés s'il y a sur le forum un espace dédié aux présentations sur ce forum, je ne l'ai pas trouvé dans ma recherche initiale.
    Je vous remercie tous pour votre dévouement, bonne journée et bonnes fêtes de fin d'année.
    Cordialement

  2. #2
    Expert éminent
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Par défaut

    Bonjour,

    un code est inutile en utilisant le B-A-BA d'Excel, à savoir un simple filtre …

    _________________________________________________________________________________________________________
    Je suis Paris, Berlin, Nice, Bruxelles, Charlie, …

  3. #3
    Candidat au Club
    Homme Profil pro
    Directeur technique
    Inscrit en
    Décembre 2016
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Tourisme - Loisirs

    Informations forums :
    Inscription : Décembre 2016
    Messages : 2
    Par défaut
    Bonjour Marc-L, bonjour à tous et merci pour la réponse;
    Oui effectivement avec un filtre cela fonctionne très bien, mais je souhaitais (si possible) créer une zone de texte dans laquelle je tape les premières lettres du mot que je recherche et que cette recherche se fasse au fur et à mesure des lettres tapées avec surlignage sur la totalité de la ligne trouvée.. je ne sais si je m'explique bien (:
    Bonne journée et bon réveillon à vous TOUS

Discussions similaires

  1. Moteur de recherche avec Excel dans des onglets ?
    Par jufabref dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 04/07/2008, 13h51
  2. Probleme avec le formulaire de recherche (export excel)
    Par Legarraudien dans le forum IHM
    Réponses: 3
    Dernier message: 04/07/2008, 12h47
  3. Réponses: 2
    Dernier message: 29/05/2008, 10h13
  4. Recherche opérationnelle avec excel
    Par arnest dans le forum Excel
    Réponses: 2
    Dernier message: 28/04/2008, 21h38
  5. [WD10] Influer sur la zone de recherche avec la loupe
    Par Louis Griffont dans le forum WinDev
    Réponses: 1
    Dernier message: 19/02/2008, 17h12

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