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 :

CODE VBA (activer un bouton)


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    commerçant
    Inscrit en
    Novembre 2021
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Algérie

    Informations professionnelles :
    Activité : commerçant

    Informations forums :
    Inscription : Novembre 2021
    Messages : 10
    Par défaut CODE VBA (activer un bouton)
    Bonjour,
    Je sollicite votre aide pour faire activer le bouton "RECHERCHE" afin de trouver un article dans la colonne
    "D É S I G N A T I O N" avec un code VBA.
    Ci joint mon fichier.
    Merci d'avance.
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 437
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 437
    Par défaut
    Bonjour,

    Une façon de faire est de "filtrer" le tableau par recherche du texte dans la 2e colonne:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Option Explicit
     
    Sub Recherche()
        Dim sText As String
        ActiveSheet.ListObjects("Tableau1").Range.AutoFilter
        sText = InputBox("Texte à rechercher:", "Texte", "")
        If sText <> "" Then
            ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:="=*" & sText & "*"
        End If
    End Sub
     
    Sub VoirTout()
        ActiveSheet.ListObjects("Tableau1").Range.AutoFilter
    End Sub
    Cordialement.
    Fichiers attachés Fichiers attachés

  3. #3
    Membre émérite Avatar de Alex020181
    Homme Profil pro
    Prestataire informatique développeur d'application Excel, Access, VBA
    Inscrit en
    Juin 2012
    Messages
    601
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Prestataire informatique développeur d'application Excel, Access, VBA

    Informations forums :
    Inscription : Juin 2012
    Messages : 601
    Par défaut
    Bonjour Bernard,

    Voici une proposition.

    J'ai ajouté un formulaire de recherche avec un menu déroulant reprenant les références de la feuille stock.

    Quand une désignation est choisie une msgbox t'affiche le numéro de ligne Excel où est enregistrée cette référence.

    A toi ensuite de continuer pour faire ce que tu veux maintenant que ton numéro de ligne est identifié.



    Teste et dis nous.
    Fichiers attachés Fichiers attachés

  4. #4
    Membre averti
    Homme Profil pro
    commerçant
    Inscrit en
    Novembre 2021
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Algérie

    Informations professionnelles :
    Activité : commerçant

    Informations forums :
    Inscription : Novembre 2021
    Messages : 10
    Par défaut bouton de recherhe
    Salut tout le monde
    Je souhaite avoir dans le classeur 1 à l’onglet « Facture » le bouton de recherche
    comme celui du classeur 2 avec les memes propriétés
    Merci d'avance
    Fichiers attachés Fichiers attachés

  5. #5
    Membre chevronné
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Janvier 2012
    Messages
    321
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2012
    Messages : 321
    Par défaut
    Bonsoir,

    Voir si la Pj correspond à ta demande

    Slts
    Fichiers attachés Fichiers attachés

  6. #6
    Membre averti
    Homme Profil pro
    commerçant
    Inscrit en
    Novembre 2021
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Algérie

    Informations professionnelles :
    Activité : commerçant

    Informations forums :
    Inscription : Novembre 2021
    Messages : 10
    Par défaut
    Merci pour ta réponse
    Mais je veux que le bouton renvoie à l'onglet "Stock"

  7. #7
    Membre averti
    Homme Profil pro
    commerçant
    Inscrit en
    Novembre 2021
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Algérie

    Informations professionnelles :
    Activité : commerçant

    Informations forums :
    Inscription : Novembre 2021
    Messages : 10
    Par défaut
    Merci beaucoup pour votre aide; C'est ce que je cherchais !
    *Mais il y a un problème :*Quand je fais une modification, je n'arrive pas à enregistrer le travail.*

  8. #8
    Membre émérite Avatar de Alex020181
    Homme Profil pro
    Prestataire informatique développeur d'application Excel, Access, VBA
    Inscrit en
    Juin 2012
    Messages
    601
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Prestataire informatique développeur d'application Excel, Access, VBA

    Informations forums :
    Inscription : Juin 2012
    Messages : 601
    Par défaut
    Peux-tu être plus explicite ?

    La solution donnée par Éric fonctionne bien sur mon PC.

    Tu cliques sur le bouton de recherche puis tu entres ton texte.
    Dans le tableau tu modifies tes données et c'est tout.

    Chez moi cela fonctionne.

  9. #9
    Membre averti
    Homme Profil pro
    commerçant
    Inscrit en
    Novembre 2021
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Algérie

    Informations professionnelles :
    Activité : commerçant

    Informations forums :
    Inscription : Novembre 2021
    Messages : 10
    Par défaut
    Merci
    C'est bon
    ça marche

  10. #10
    Membre averti
    Homme Profil pro
    commerçant
    Inscrit en
    Novembre 2021
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Algérie

    Informations professionnelles :
    Activité : commerçant

    Informations forums :
    Inscription : Novembre 2021
    Messages : 10
    Par défaut
    Je sollicite votre assistance;
    En appuyant sur le bouton « RECHERCHE » je veux trouver un article se trouvant dans la colonne « Désignation » et je veux faire activer le bouton "*VOIR TOUT*"
    Merci d'avance.
    Classeur A.xlsm

Discussions similaires

  1. [AC-2016] Exécuter 2 codes VBA sur un bouton
    Par MakSLR dans le forum IHM
    Réponses: 3
    Dernier message: 01/09/2017, 19h22
  2. Raffraichir un code vba via un bouton
    Par lumbroso dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 25/04/2016, 13h26
  3. [AC-2007] Code VBA d'un bouton
    Par danièle21 dans le forum VBA Access
    Réponses: 1
    Dernier message: 08/02/2013, 14h24
  4. [AC-2010] Code VBA pour un bouton
    Par Dreamz87 dans le forum IHM
    Réponses: 4
    Dernier message: 09/12/2012, 19h09
  5. Afficher dans une cellule le code VBA d'un bouton
    Par greenzephyr dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 08/11/2010, 10h01

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