Ouverture automatique d'un userform quand une feuille est activée

[jlp035]

Bonjour,
une fois de plus je demande une petite aide !...
Quelle est la formule qui ouvre automatiquement un userform dans une feuille "Documents" est active.
Et referme l'serform quand cette feuille"Documents" n'est plus active.

Merci par avance.

 

[JCGL]

Re : Ouverture automatique d'un userform quand une feuille est activée

Bonjour à tous,

Dans le module du code la feuille "Documents" :

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

Nom de l'USF à adapter...

A + à tous

 

[jlp035]

Re : Ouverture automatique d'un userform quand une feuille est activée

Merci JCGL pour ta prompt reponse.
Peut tu également m'indiquer comment fermer automatiquement l'userform quand je me deplace sur une autre feuille"Documents" car l'userform reste affiché.
Peut également m'indiquer comment activer automatiquement à l'ouverture ma feuille "Documents" car malgrés que se soit la premiere feuille du classeur je dois cliquer dessus pour activer ma feuille"Documents" qui active mon userform.

Merci encore

 

[JCGL]

Re : Ouverture automatique d'un userform quand une feuille est activée

Bonjour à tous,

Le plus simple : cliquer sur la croix rouge

Dans le module ThisWorkBook :

Private Sub Workbook_Open()
Sheets("Documents").Activate
End Sub

Mais tu n'es pas obligé d'activer la feuille pour voir l'USF :

Private Sub Workbook_Open()
UserForm1.Show
End Sub

A + à tous

 

[Hamidexcel]

Re : Ouverture automatique d'un userform quand une feuille est activée

Bonjour;

si quelqu'un peut m'aider
je veux à ce que le UserForm1 disparait une fois je change la feuille sur laquelle il est codé

merci

 

[sourcier08]

Re : Ouverture automatique d'un userform quand une feuille est activée

En fonction du nom de ta feuille :

Private Sub Workbook_Open()

Worksheets("Documents").Select 'sélectionne l'onglet "documents" à l'ouverture du classeur
UserForm1.Show 0 'mode d'affichage non modal

End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Name <> Worksheets("Documents").Name Then Unload UserForm1
If Sh.Name = Worksheets("Documents").Name Then UserForm1.Show 0 'mode d'affichage non modal

End Sub

à placer dans le module le module ThisWorkBook.

 

[Hamidexcel]

Re : Ouverture automatique d'un userform quand une feuille est activée

Bonsoir;
sourcier08

mais le problème c'est que le user Form apparait toujours

vous pouvez consulter la pj

merci

 

[sourcier08]

Re : Ouverture automatique d'un userform quand une feuille est activée

Il suffit de remplacer documents par 01 et UserForm1 par hamid.

Private Sub Workbook_Open()

Worksheets("01").Select 'sélectionne l'onglet "01" à l'ouverture du classeur
hamid.Show 0 'mode d'affichage non modal

End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Name <> Worksheets("01").Name Then Unload hamid
If Sh.Name = Worksheets("01").Name Then hamid.Show 0 'mode d'affichage non modal

End Sub

Voici le fichier.

@+

 

[Hamidexcel]

Re : Ouverture automatique d'un userform quand une feuille est activée

Bonjour;

Oui sourcier08

ça marche impeccable 🙂


merci pour la réponse

 

[Hamidexcel]

Re : Ouverture automatique d'un userform quand une feuille est activée

Bonjour;

J'ai oublié de vous dire que je veux aussi que le Userform1 disparait aussi si je change de classeur
chose qui est bien entre les feuilles mais non lorsque je change de classeur
merci

 

[sourcier08]

Re : Ouverture automatique d'un userform quand une feuille est activée

Salut,

À ce moment là, tu dois simplement ajouter une instruction lors de l'activation et une autre lors de la désactivation du classeur dans le module "ThisWorkBook". + un contrôle du nom de la feuille active lors du retour au classeur.

Private Sub Workbook_Activate()

    hamid.Show 0
    If ActiveSheet.Name <> Worksheets("01").Name Then Unload hamid 'contrôle du nom

End Sub
Private Sub Workbook_Deactivate()

    Unload hamid

End Sub