Userform

Le
Jaguar
J'utilise la procédure suivante:

Sub OuvrirChoix_r() : option clavier "r"

Unload usfChoix : facultatif : pour ne pas charger le userform à dou=
ble
usfChoix.Show (0) : usfChoix = nom d'un userform

End Sub

De manière ALEATOIRE, l'affichage de l'userform se fait correctement ou b=
ien il apparaît seulement sa bordure. Il suffit alors de cliquer n'import=
e où sur l'écran pour que l'affichage se complète correctement. (en e=
xaminant pas à pas la macro, il apparaît parfois un liseré sur celle-=
ci qui disparaît lors du clic qui rétablit la situation).
Qui peut me donner une idée pour résoudre ce problème ? Merci d'avanc=
e.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26351856
Bonjour,

Comme ceci :

Sub OuvrirChoix_r()

Unload usfChoix
DoEvents
usfChoix.Show 0
usfChoix.Repaint

End Sub
Publicité
Poster une réponse
Anonyme