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 :

Lancer code Vba des la selecion d'une cellule


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
    Étudiant
    Inscrit en
    Juillet 2018
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2018
    Messages : 37
    Par défaut Lancer code Vba des la selecion d'une cellule
    Bonjour, tout est dans le titre j'aimerai savoir si on pouvait lancer un certain code vba des qu'une certaine cellule est sélectionnée. En fait, le but est de créer un sommaire dans mon Excel. Ainsi des qu'on cliquera sur la cellule en question je lancerai un code qui va parcourir mon tableur et si le texte de ma cellule est le même qu'un dans le tableur, je vais sélectionner cette cellule.
    Merci d'avance, bonne journée

  2. #2
    Membre Expert Avatar de Zekraoui_Jakani
    Homme Profil pro
    Inscrit en
    Novembre 2013
    Messages
    1 671
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2013
    Messages : 1 671
    Par défaut
    Sélectionnez votre feuille
    Faites un clic droit sur le nom de la feuille
    Choisissez "View Code" ("voir Code" devrait être le titre français, ou qq chose de similaire)
    Vous n'avez plus qu'à écrire les instructions VBA que vous voudrez

  3. #3
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    re

    dans le module de la feuille
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'le code que tu veux executer
    'ou
    'les appels de sub que tu veux 
    End Sub
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  4. #4
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2018
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2018
    Messages : 37
    Par défaut
    Merci a vous deux!
    Mon code marche bien mais il ne se lance pas a chaque fois que je clique sur la dite cellule. Savez vous comment régler ce problème? Voici mon code (c'est juste un essaie et pas mon code finale
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Sub Worksheet()
    If ActiveCell = Range("B6") Then
    MsgBox "wapiti"
    End If
     
    End Sub

  5. #5
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    re
    non
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    if cells(2,6) is selected then
    oui
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    if activecell.address=cells(2,6).address
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  6. #6
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2018
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2018
    Messages : 37
    Par défaut
    Merci ca marche!

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

Discussions similaires

  1. Code VBA Figer le temps dans une cellule
    Par Twixman dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 08/02/2019, 12h11
  2. Découvrez le code VBA des assistants
    Par Arkham46 dans le forum Contribuez
    Réponses: 6
    Dernier message: 09/01/2009, 15h15
  3. Trouver le code VBA de la moyenne d'une colonne d'un tableau
    Par Valérie32 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/06/2008, 12h37
  4. Code VBA fonction du resultat d'une requête
    Par Nessie37 dans le forum VBA Access
    Réponses: 10
    Dernier message: 20/02/2008, 13h21
  5. [code VBA]passage de variable pour une requête paramétrée
    Par christrabin dans le forum VBA Access
    Réponses: 3
    Dernier message: 13/04/2007, 14h30

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