Non reconnaissance d'un événement click

  • Auteur de la discussion Marie-Line
  • Date de début
M

Marie-Line

Guest
Bonjour,


J'ai un petit problème que je n'arrive pas à résoudre.
J'ai inséré dans une feuille Excel deux frame. dans le premier, j'ai positionné un comboBox et dans le second un contrôle multipages.
Ce qui doit se passer c'est qu'en clickant sur le premier élément de la liste du cbo, la page "Compléments" du multipage doit s'activer, ce qui n'est pas le cas pour l'instant.
En fait, pour que ça marche je dois lancer manuellement ma macro.
Alors quelqu'un a-t-il une solution à me proposer? Voici le code que j'ai essayé:

Private Function IsClicked(ctrle As Control, ByVal X As Single, ByVal Y As Single) As Boolean

IsClicked = (X <> ctrle.Left) And (X <> ctrle.Left + ctrle.Width) And _
(Y <> ctrle.Top) And (Y <> ctrle.Top + ctrle.Height)

End Function

Private Sub Frame1_Enter()

Dim Controle As Control
Set Controle = [Feuil1].frame1.Controls("cboSSType")
If IsClicked(Controle, X, Y) Then GoSub Controle_Change
Exit Sub

Controle_Change:

If Controle.ListIndex = 0 Then
Worksheets("Evénement").Frame2.Controls("Multipage1").Pages("Compléments").Enabled = True
Else: Worksheets("Evénement").Frame2.Controls("Multipage1").Pages("Compléments").Enabled = False
End If

End Sub


A très vite j'espère
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas