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 :

effacer une zone de liste déroulante


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    79
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 79
    Par défaut effacer "un bouton" de zone de liste déroulante
    Bonjour à tous !

    Alors je m'explique, pour un piti programme, j'ai fait une macro qui permet de créer une zone de liste déroulante en fonction de la valeur d'une cellule.

    Jusque là tout va bien, par contre, ce que je voudrais, c qu'après que l'utilisateur est utilisé la zone de liste, je puisse supprimer cette derniere.

    Mon problème, c'est que pour l'instant la zone de liste se créant une nouvelle fois à chaque utilisation, je ne peux sélectionner cette dernière (elle change de numéro à chaque fois !)

    bref, je sais pas si c très clair mais dites moi si vous avez des idées !

  2. #2
    Membre expérimenté
    Inscrit en
    Février 2008
    Messages
    208
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 208
    Par défaut
    bonjour

    soit une zone de liste en A1:A12
    utilise ce code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Sub test()
        Range("A1:A12").Select
        Selection.Validation.Delete
    End Sub
    à plus

  3. #3
    Membre averti
    Inscrit en
    Avril 2008
    Messages
    48
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 48
    Par défaut
    Tu peux utiliser l'événement
    Worksheet_SelectionChange(ByVal Target As Range) :
    Tu supprimes ta sélection comme montré ci dessus
    Tu en crée aprés une nouvelle

    j'espère que ca t'aidera

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    79
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 79
    Par défaut
    Merci les gars !

    Mais en fait à la lecture de vos solutions, je m'apercois que je me suis mal exprimé !
    En fait ce que je veux enlever, c'est le "bouton" de la liste déroulante et pas la zone de critères pour la liste.

    Si vous avez une idée...

  5. #5
    Membre Expert Avatar de mayekeul
    Inscrit en
    Août 2005
    Messages
    1 369
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 1 369
    Par défaut
    bonjour,

    le code est le suivant

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    LA_CELLULE_AVEC_MENU_DEROULANT.Validation.Delete

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    79
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 79
    Par défaut
    ta technique ne marche pas mayekeul...
    ca ne sélectionne pas le bouton de controle...

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

Discussions similaires

  1. Réponses: 5
    Dernier message: 11/06/2020, 12h44
  2. Réponses: 5
    Dernier message: 26/01/2009, 13h43
  3. Réponses: 8
    Dernier message: 24/02/2006, 09h59
  4. Réponses: 1
    Dernier message: 19/01/2006, 17h54
  5. Réponses: 4
    Dernier message: 29/10/2005, 18h03

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