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 :

List Custom en VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    23
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 23
    Par défaut
    Bonjour,

    Voici mon problème, je doit parcourir un ensemble de donné, récupérer toutes les années différentes qui existe pour en faire une DropDown list.

    Jusqu'ici pas de problèmes, ensuite il faudrait qu'a chaque changement de la sélection dans la liste, je cache/montre les ligne qui ne correspondent pas à l'année sélectionnée.

    Voici comment je fait jusqu'ici :


    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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    Private Function BuildDateComboBox()
     
        Set CellRef = Range("DatePicker").Cells
     
        With Feuil8
     
            On Error Resume Next
     
                .Shapes.Item ("DatePickerDropDown")
     
            If Err.Number <> 0 Then
     
                Set DatePickerDropDown = .Shapes.AddFormControl(xlDropDown, CellRef.Left, CellRef.Top, CellRef.Width, CellRef.Height)
     
                DatePickerDropDown.Name = "DatePickerDropDown"
                DatePickerDropDown.ControlFormat.SmallChange
     
            End If
     
     
            DatePickerDropDown.ControlFormat.RemoveAllItems
            For Each d In GetYears()
                    DatePickerDropDown.ControlFormat.AddItem d
            Next d
     
            On Error GoTo 0
     
        End With
     
    End Function
    Le problème est que je n'arrive pas à écouter un évènement ou exécuter une action au changement de la valeur de ma liste. Pour pouvoir effectuer les opérations dont je parle plus haut.

    Donc :

    Puis-je écouter le changement de mon FormControl DropDown?

    Existe-t-il une façon plus simple de faire cela ?

    Merci d'avance.

    Au fait : Cela doit être compatible avec Excel Office XP.

    (Y parais qu'on se fait taper dessus quand on donne pas la version )

  2. #2
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Utilise les contrôles du menu "Boîte à outils contrôle" et pas du menu "Formulaire".
    A ce moment là tu pourras faire un clic droit sur le contrôle --> visualiser le code et avoir accès à toute une série d'événements

Discussions similaires

  1. Réponses: 50
    Dernier message: 12/06/2014, 14h48
  2. Liste déroulante Excel VBA
    Par a.dequidt dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 05/09/2007, 16h34
  3. Liste, enum en VBA
    Par theshark85 dans le forum Général VBA
    Réponses: 5
    Dernier message: 30/08/2007, 16h44
  4. Réponses: 4
    Dernier message: 16/06/2005, 15h37
  5. Réponses: 10
    Dernier message: 13/06/2005, 16h02

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