XL 2016 activer une macro dès l'ouverture d'un combobox

[ssonap]

Bonjour,

Dans un Userform, j'essaye de trouver comment je peux activer un petit programme (ex: masquer un frame et faire apparaître un bouton à la place) à chaque ouverture de la liste déroulante de la ComboBox1.


Il ne s'agit pas d'activer le programme lorsqu'un item est sélectionné mais bien l'action avant.

J'ai essayé ComboBox1_Click mais ça ne fait rien cela active après sélection d'un item
Merci de votre aide.

Bien cordialement

 

[mapomme]

Bonsoir ssonap,

Un essai pour se rapprocher de la demande. On utilise les évènements Enter et Exit de la ComboBox.

 

[ssonap]

Bonjour Mapomme et merci de ta réponse,

Effectivement on s'en rapproche mais pas totalement.
En prenant ton exemple, je souhaiterai qu'à chaque fois que j'ouvre la liste,le label disparaît et dès que je sélectionne un item, il réapparaît.
Sans sortir du combobox !

Est-ce possible ?

Cordialement

 

[mapomme]

Bonjour ssonap,

Effectivement on s'en rapproche mais pas totalement.
En prenant ton exemple, je souhaiterai qu'à chaque fois que j'ouvre la liste,le label disparaît et dès que je sélectionne un item, il réapparaît.
Sans sortir du combobox !

Est-ce possible ?

Je ne sais pas si c'est possible avec VBA. En tout cas, je ne sais pas faire...

 

[ssonap]

OK merci
Est ce que quelqu'un d'autre à une idée ?

 

[Eric C]

Bonjour le forum
Bonjour ssonap, bonjour mapomme

Essaies ceci qui lorsque tu cliques sur la flèche du ComboBox fait disparaître le caption de ton Label

Private Sub ComboBox1_DropButtonClick()
Me.Label1.Caption = ""
End Sub

Après il te faudra poursuivre pour le faire réapparaître à l'issue de ta saisie d'une valeur.
Bon ouikand à toutes & à tous
Eric C

 

[ssonap]

B

 

[ssonap]

Bonjour Eric,
Merci pour ta réponse

Ton événement va agir sur l'ouverture de le liste mas aussi sur la fermeture.
Alors que je cherche une action pour l'ouverture et une action pour la fermeture de la liste.

J'ai l'impression malheureusement que cela n'existe pas. Va falloir bidouiller


Cordialement

 

[Si...]

Bon_jour

peut-être ainsi ... ?

édit : oups, le clic n'a d'effet qui si on affecte une macro au texte

 

[laetitia90]

bonjour tous
une autre méthote en utilisant un label supp...

 

[Si...]

Re

j'ai ajouté le bouton de façon à se retrouver dans la situation initiale quand on efface le choix.

C'est vrai, Léti , que l'on peut jouer sur le texte de l'étiquette comme dans le nouveau fichier.

 

[ssonap]

Re,

Laetitia, très subtil comme solution de rajouter un label sur le combobox

Merci à tous

 

[laetitia90]

re,
salut ssonap tu devrais t orienter sur le code de notre ami SI
bien plus finalisé a mon avis mon code ne traite pas tous les cas de figure

 

[Eric C]

Bonjour le forum
Bonjour ssonap, mapomme, Si, laeticia90

Très ingénieux le placement du Label2 qui détecte l'ouverture de la liste (je prends). Pour ma part, ta
proposition se rapproche idéalement du souhait initial de ssonap :
#3 ==> Effectivement on s'en rapproche mais pas totalement.
En prenant ton exemple, je souhaiterai qu'à chaque fois que j'ouvre la liste,le label disparaît et dès que je sélectionne un item, il réapparaît.
Sans sortir du combobox !
Bon dimanche à toutes & à tous
Eric C

 

[Theze]

Bonjour à tous,

Si j'ai bien compris la demande, le Label doit être vidé à chaque ouverture de la liste et rempli au clic sur un élément de la liste ! Sur "Click" et sur "DropButtonClick" :

Private Sub ComboBox1_Click()
    Label1.Caption = ComboBox1.Text
End Sub

Private Sub ComboBox1_DropButtonClick()

    Static Etat As Boolean
   
    Etat = Not Etat
   
    If Etat = True Then Label1.Caption = ""

End Sub