user form

[marie]

bonjour a tous
Dans une petite application j'ai un userform avec la propriete showmodal=falsej'aimerais lorsque je change de feuille fermer userform automatiquement dans le cas ou l'on oubli de cliquer sur la petite croix

merci pour vos reponse

 

[Eric C]

Bonjoir le forum
Bonjoir marie

Tu places ce code dans ta procédure de classeur afin qu'au changement d'onglet, ton Userorm se décharge :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Unload UserForm1
End Sub

Bonne fin de dimanche à toutes & à tous 😉

 

[lio]

Bonsoir Marie,

Un exemple en pièce jointe avec une macro évenementielle. [file name=Classeur2_20060212182540.zip size=9943]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060212182540.zip[/file]

Edition: Salut Eric C : ta solution est encore mieux je pense.

Message édité par: lio, à: 12/02/2006 18:31

 

[Eric C]

Re bonjoir le forum
Re bonjoir marie, bonjoir lio

Lionel, je n'ai de leçon à donner à quiconque vu ma connaissance VBAstique mais tu appliques ton code à un classeur de 2 feuilles. Donc si Marie possède un classeur de X feuilles, le code ne fonctionnera pas au-delà de la 2 ème feuille !.
Il vaut donc mieux appliquer une macro évènementielle au classeur par lui-même.

Bonne fin de dimanche à toutes & à tous 😉

Oupsssss.. sorry & bonsoir lio.. 😉

Message édité par: Eric C, à: 12/02/2006 18:37

 

[lio]

ok, je l'avais signalé dans mon post que ta soluce était la meilleure. Je suis là pour apprendre aussi. 😉

 

[Eric C]

Bonsoir Lionel

Ne vois aucune remarque désobligeante de ma part. Je m'excuse si t'ai blessé, je ne voulais faire qu'une remarque constructive.

Bonne soirée à toi & aux tiens 😉

 

[lio]

Re Eric,

T'inquiète il en faut beaucoup plus. J'apprécie tes qualités et justement je crois que c'est important pour tout le monde que quelques correctifs soit donnés lorsque la solution est 'limitative'.

A +

 

[marie]

bonsoir lio et eric

merci pour vos reponses

mais lorsque je lance l'userform j'ai une macro qui copie des donnees sur une autre feuille donc le code Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Unload UserForm1
End Sub
me creer de serieux probleme,j'aurais du mieux m'expliquer
si vous avez une solution merci encore marie

 

[lio]

Re Marie,

Bon je comprends pas forcément où est le problème là !

 

[marie]

re
je vais essayé de faire un petit fichier pour le joindre merci

 

[Robert]

Bonsoir Marie, Lio, Éric, bonsoir le forum,

Marie, je pensais à utiliser une variable boléenne déclarée publique dans un module du style,Public bol as Boolean.
À la fin de la validation de ton Userform tu lui donnes la valeur True.
Tu modifies le code d'Éric par :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If bol = True Then
Unload UserForm1
bol = False
End If
End Sub

Je n'ai rien testé c'est donc sous toutes réserves...

 

[marie]

bonsoir a tous
je reviens avec une pieces jointe
j'ai bien essayé la solution de Robert mais sans succés
merci [file name=Classeur2_20060212231735.zip size=12301]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060212231735.zip[/file]

 

[Robert]

Bonsoir le fil, bonsoir le forum,

Marie, regarde ton fichier modifié en pièce jointe. [file name=Marie_20060213002321.zip size=11602]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marie_20060213002321.zip[/file]

 

[marie]

bonjour robert

merci pour ta solution,mais je viens de m'apercevoir que si l'on ferme user par la croix on ne peux le relancer, j'ai compris ce qui ce passer
bol reste false,je regarderait ce soir
bonne journee a tous

 

[lio]

Salut Marie et Robert,

Ci joint une proposition. [file name=Marie_20060213083528.zip size=13278]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marie_20060213083528.zip[/file]