Discussion :

[Martin31]

Bonjour,

Après plusieurs recherches infructueuses sur le forum et mon ami google, je me résout enfin à poser ma première question en deux années de programmation VBA

J'ai une macro qui me fait afficher un userform non modal, lequel comporte une checkbox et d'autres InputBox.
La checkbox est en première dans l'ordre des tabulations. Je confirme qu'elle est la première par un SetFocus dans la section Userform.Initialize()


Lorsque je lance ma macro, la checkbox est effectivement sélectionnée, cependant son texte n'est pas encadré en pointillé comme si on utilisait la commande "TAB" du clavier.
Est-il possible de faire en sorte que cette checkbox soit encadrée au démarrage ? (de sorte à ce que l'utilisateur ait le focus visuel dessus et se dise - ah oui tient si je tape "Enter" au clavier ça va l'activer -)



Merci d'avance pour vos idées !


NB : je préfère ne pas utiliser de SendKeys {TAB} pour éviter d'autres désagréments du genre désactivation du pavé numérique ou autre...

[unparia]

Bonjour
l'évènement Initialize intervient en tout premier lieu (alors que les éléments graphiques ne sont pas encore forcément TOUS gérés).
Utilise l'évènement Activate

[Martin31]

Bonjour unparia,

J'avais trouvé une discussion sur le forum (de toi déja il me semble ; ) sur cette différence entre le Initialize() et le activate() mais aucune des deux solutions ne semble vouloir activer la checkbox avec les "pointillés"

[unparia]

Etrange
Je viens (par pure curiosité) de tester ceci sur ma machine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Activate()
  CheckBox1.SetFocus
End Sub

Et j'ai mes "pointillés".
Y compris si pas le 1er tabindex !
C'est peut-être ta version Office (2016) ?

[unparia]

J'ai beau tester et retester -->> pas de problème chez moi ...
Ce doit être dû à ta version ffice.
Choisis pour voir un évènement ultérieur à Activate -->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Layout()
  CheckBox1.SetFocus
End Sub

Et fais-moi savoir (tout cela est étrange).

[unparia]

Ah, çà, alors !!!...
Le phénomène est en effet présent si le userform n'est pas modal !

Zut, alors !

J'ai alors installé la parade suivante (du bricolage pour "rattraper") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Activate()
  CheckBox1.SetFocus
  CheckBox1.Value = Not CheckBox1.Value
  CheckBox1.Value = Not CheckBox1.Value
End Sub

Marche chez toi également ?