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

JCGL

XLDnaute Barbatruc

• 18 Février 2012

• #2

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

Cliquez pour agrandir...

Nom de l'USF à adapter...

A + à tous

 

Vote positif 0 Vote négatif

J

jlp035

XLDnaute Occasionnel

• 18 Février 2012

• #3

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Février 2012

• #4

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

Cliquez pour agrandir...

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

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Cliquez pour agrandir...

A + à tous

 

Dernière édition: 18 Février 2012

Vote positif 0 Vote négatif

H

Hamidexcel

XLDnaute Occasionnel

• 30 Janvier 2013

• #5

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

 

Vote positif 0 Vote négatif

sourcier08

XLDnaute Occasionnel

• 30 Janvier 2013

• #6

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

En fonction du nom de ta feuille :

Code:

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.

 

Dernière édition: 30 Janvier 2013

Vote positif 0 Vote négatif

H

Hamidexcel

XLDnaute Occasionnel

• 30 Janvier 2013

• #7

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

 

Pièces jointes

• USERFORM1.xls

  50.5 KB · Affichages: 68
• USERFORM1.xls

  50.5 KB · Affichages: 65
• USERFORM1.xls

  50.5 KB · Affichages: 70

Vote positif 0 Vote négatif

sourcier08

XLDnaute Occasionnel

• 30 Janvier 2013

• #8

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

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

Code:

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.

@+

 

Pièces jointes

• USERFORM1.xls

  53.5 KB · Affichages: 128
• USERFORM1.xls

  53.5 KB · Affichages: 131
• USERFORM1.xls

  53.5 KB · Affichages: 145

Dernière édition: 30 Janvier 2013

Vote positif 0 Vote négatif

H

Hamidexcel

XLDnaute Occasionnel

• 31 Janvier 2013

• #9

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

Bonjour;

Oui sourcier08

ça marche impeccable 🙂


merci pour la réponse

 

Dernière édition: 31 Janvier 2013

Vote positif 0 Vote négatif

H

Hamidexcel

XLDnaute Occasionnel

• 31 Janvier 2013

• #10

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

 

Vote positif 0 Vote négatif

sourcier08

XLDnaute Occasionnel

• 31 Janvier 2013

• #11

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.

Code:

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

 

Dernière édition: 1 Février 2013

Vote positif 0 Vote négatif