Discussion :

[Denis_67]

Bonjour,
J'ai un petit userform amodal qui me sert de menu pour lancer des useform de saisies.
or j'ai beau l'avoir mis en modal 0, il se ferme aléatoirement lors de la fermeture des userform appelés.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
'Appel de l'USF menu (dans un module)
Sub Appel_Menu()
Load UsF_Menu
UsF_Menu.Show 0
End Sub
 
'L'USF Menu
Private Sub UserForm_Initialize()
    Me.StartUpPosition = 3
End Sub
 
'un des sous USF appelé code dans module
Sub Appel_Zoom()
Load USF_Zoom
USF_Zoom.Show
End Sub
 
'Fermeture de l'USF Zoom
Unload Me

comment puis-je améliorer le gestionde mon menu?
Merci.

[Gado2600]

Bonjour,

Il n'y a vraiment que ça en code ?
Parce que sur ce que tu montres, il n'y a rien qui justifierait le problème.

Par contre, pas certain que les "Load" servent à grand chose juste avant des "Show".

Cordialement,

[Denis_67]

Merci pour ton retour,

Bien sûr il ya du code entre, j'initialise un USF, j'affiche des données et je ressors.
J'ai montré les séquences d'ouverture et de fermeture des USF.

Pour le chargement des USF, entre ce qui sert et les bonnes pratiques on est parfois tanté de faire trop à la place de trop peu !
donc habituellement je charge et j'affiche.
En relisant le Tuto de Silky Road, pas une fois il ne parle de load.
Je pense que je l'avais ajouté un jour suite à d'autre problèmes et conservé depuis dans mes pratiques.

quoi q'il en soit je viens de supprimer mon load partout... et testé une dizaine de fois, opn dirait que mon menu reste affiché !
JE ne sais pas si c'était ça le problème et si c'est robuste, on verra.

Question subsidiaire, du coup à quoi sert le load ? si on peu s'en passer, car je ne vois pas l'intéret de charger un usf sans l'afficher, mais il doit bien y avoir des cas.

merci
Denis

[Gado2600]

Si cela refonctionne, tant mieux.

A mon avis, le Load est présent pour charger un userform sans avoir à l'afficher, pour quand même lancer la procédure Initialize.
Ce que fait le Show également, tu me diras. Mais j'ai déjà rencontré des codes de confrères où ils mettaient à jour des contrôles sur un userform sans pré-charger celui-ci.

En gros, c'était ce genre de truc :

Code :

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

1
2
3
4
sub A()
usf.textbox1.value = "Hello The World !"
usf.show
end sub

Le soucis, c'est que l'Initialize n'est pas lancé dans ce cas de figure et cela peut engendrer des problèmes dans l'algorithme mis en place.
Tu arrives vite avec des fonctionnalités qui sont, comme je les appelles, des "coups de poker".

La bonne écriture aurait été la suivante :

Code :

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

1
2
3
4
5
6
' Bon, c'est un peu inutile comme exemple mais c'est l'idée
sub A()
Load usf
usf.textbox1.value = "Hello The World !"
usf.show
end sub

Code :

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

1
2
3
4
5
' Version correcte
sub A()
usf.show 0
usf.textbox1.value = "Hello The World !"
end sub

Cordialement,