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
 

Discussions similaires


Haut Bas