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.
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.
Comme ceci :
Sub OuvrirChoix_r()
Unload usfChoix
DoEvents
usfChoix.Show 0
usfChoix.Repaint
End Sub