XL 2021 VBA - UserForm ActiveControl dans un Frame

[Dudu2]

Bonjour,
J'ai une TextBox dans un Frame.
Je SetFocus sur cette TextBox et l'ActiveControl est toujours le Frame.
Comment je fais pour récupérer l'ActiveControl TextBox ?
Merci

 

[Dranreb]

Ajoutez cette 1ère instruction dans ma version récursive de la Function GetActiveControl :

   If Obj.Controls.Count = 0 Then Exit Function

Elle renverra Nothing s'il n'y a aucun contrôle dans l'objet.

 

[Dudu2]

Merci @Nicolas JACQUIN pour ton code du Post #15.
Il a quand même des airs de famille avec mon code du Post #14. 😉

@Dranreb, j'avais aussi pensé à utiliser ce Controls.Count mais tu peux avoir dans le Count des Controls qui ne sont pas activables (ex d'un Label ou d'une Image). D'ailleurs j'ai toujours un crash sur cette Page 2:

Function GetActiveControl(Obj As Object) As MSForms.Control
   If Obj.Controls.Count = 0 Then Exit Function
   Set GetActiveControl = Obj.ActiveControl
   If TypeOf GetActiveControl Is MSForms.Frame Then Set GetActiveControl = GetActiveControl(GetActiveControl)
   If TypeOf GetActiveControl Is MSForms.MultiPage Then Set GetActiveControl = GetActiveControl(GetActiveControl.SelectedItem)
   End Function

De plus, il y a toujours un Control Actif "final" me semble-t-il, même si ce Control est une Page d'un MultiPage. Et il peut être intéressant de le connaître. Le code du Post #14 le retourne.

 

[Dranreb]

Bon alors je mettrais On Error Resume Next et derrière If Err Then Set GetActiveControl = Obj: Exit Function

Function GetActiveControl(Obj As Object) As MSForms.Control
   On Error Resume Next
   Set GetActiveControl = Obj.ActiveControl
   If Err Then Set GetActiveControl = Obj: Exit Function
   If TypeOf GetActiveControl Is MSForms.Frame Then Set GetActiveControl = GetActiveControl(GetActiveControl)
   If TypeOf GetActiveControl Is MSForms.MultiPage Then Set GetActiveControl = GetActiveControl(GetActiveControl.SelectedItem)
   End Function

 

[Dudu2]

Le On Error ne fonctionnera pas. Je le sais, je m'y suis collé aussi.
Il faut tester si le Control résultant est Nothing.

 

[Dranreb]

Soit.

If Err Or GetActiveControl Is Nothing Then Set GetActiveControl = Obj: Exit Function

 

[Dudu2]

Ok, ça, ça fonctionne (je suis le testeur de @Dranreb 😅)

Function GetActiveControl(Obj As Object) As MSForms.Control
   Set GetActiveControl = Obj.ActiveControl
   If GetActiveControl Is Nothing Then Set GetActiveControl = Obj: Exit Function
   If TypeOf GetActiveControl Is MSForms.Frame Then Set GetActiveControl = GetActiveControl(GetActiveControl)
   If TypeOf GetActiveControl Is MSForms.MultiPage Then Set GetActiveControl = GetActiveControl(GetActiveControl.SelectedItem)
   End Function

 

[patricktoulon]

Ok, ça, ça fonctionne (je suis le testeur de @Dranreb 😅)

Function GetActiveControl(Obj As Object) As MSForms.Control
   Set GetActiveControl = Obj.ActiveControl
   If GetActiveControl Is Nothing Then Set GetActiveControl = Obj: Exit Function
   If TypeOf GetActiveControl Is MSForms.Frame Then Set GetActiveControl = GetActiveControl(GetActiveControl)
   If TypeOf GetActiveControl Is MSForms.MultiPage Then Set GetActiveControl = GetActiveControl(GetActiveControl.SelectedItem)
   End Function

et bien c'est pas si mal en appel récursif
voila comme quoi tu vois pas besoin de nom
on contourne le parent pour le multipage avec son page(index de value)
pour le reste c'est activecontrol.activecontrol

terminé

👍

 

[Dudu2]

On peut même gagner une instruction qui dépareille cette jolie succession de tests, surtout qu'elle vient après un ":" disgracieux (à mon goût).

Function GetActiveControl(Obj As Object) As MSForms.Control
   Set GetActiveControl = Obj.ActiveControl
   If GetActiveControl Is Nothing Then Set GetActiveControl = Obj
   If TypeOf GetActiveControl Is MSForms.Frame Then Set GetActiveControl = GetActiveControl(GetActiveControl)
   If TypeOf GetActiveControl Is MSForms.MultiPage Then Set GetActiveControl = GetActiveControl(GetActiveControl.SelectedItem)
   End Function

 

[patricktoulon]

tu peux l’écrire avec un joli switch avec ligne interrompue + indentation pour une lisibilité et modification(ajout supression) aisée

Function GetActiveControl(Obj As Object) As MSForms.Control
    Set GetActiveControl = Obj.ActiveControl
    If GetActiveControl Is Nothing Then Set GetActiveControl = Obj
    Set GetActiveControl = Switch( _
                                  GetActiveControl Is MSForms.Frame, GetActiveControl(GetActiveControl), _
                                  GetActiveControl Is MSForms.MultiPage, GetActiveControl(GetActiveControl.SelectedItem) _
                                  )
End Function

 

[Dudu2]

Pour le code par boucle du Post #14 point n'est besoin d'une variable Control de travail.
Et en faisant le test sur Page différemment...
Ça raccourci le code.