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 ?

[patricktoulon]

re
bonjour
ca doit etre du a la version de excel car chez moi meme sans code dans le userform (modal ou pas) si le checkbox est le premier control il prends le focus (testé)
et j'ai bien le checkbox encadré de pointillets (je le repete meme sans code!!!)
pour info j'utilise 2007 pro plus

[Martin31]

Je viens de tester sur un petit bout de code différent de ma macro principale et il semble que tu aies raison, le setFocus fonctionne avec affichage du cadre pointillé, fenêtre modale ou pas !

Devant cette démonstration absolue je suis allé chercher d'autres erreurs de mon code et j'ai trouvé une redondance qui était à l'origine du problème.

En fait j'avais dans un module l'appel de la userForm non-modale, "dataInputs.show 0" , mais dans le UserForm_Initialize() j'avais de nouveau un "Me.show"
Et clairement le setFocus n'a pas aimé la confirmation d'affichage...

Merci à vous deux !