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
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