[XL-2007] Userform toujours présent dans une même feuille [Résolu]

[catetesse]

Bonjour,

Je cherche à rendre toujours visible mon userform dans une même feuille.
J'arrive à le rendre toujours visible avec

Code :

1
2
3
4
Private Sub Workbook_Open()
frmMenu.Show False
 
End Sub

mais je voudrais qu'il soit visible uniquement dans la feuille "General" : est-ce possible ?

Merci

[pijaku]

Bonjour,
Toujours dans le module de ThisWorkbook, ajouter la procédure événementielle :

Code :

1
2
3
4
5
6
7
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "General" Then 'bien adapter le nom de la feuille
    frmMenu.Show False
Else
    frmMenu.Hide
End If
End Sub

[catetesse]

Bonjour,

J'ai essayé mais ça ne fonctionne pas, mon userform n'est pas présent dans l'onglet "General" ni ailleurs.

Voici le code entré
J'ai supprimé une ligne car il y avait une erreur

Code :

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "General" Then
    frmMenu.Show False
Else
 
End If
 
End Sub

[pijaku]

J'ai supprimé une ligne car il y avait une erreur Hum... Intéressant!
Mais vague. Qu'elle était donc cette erreur?

[catetesse]

En fait le Userform apparait mais seulement après avoir cliquer sur une autre feuille.

C'est à dire que lorsque j'ouvre le fichier l'onglet "General" est sélectionné, si je me positionne sur une autre feuille et que je reviens dans "General" le userform apparaît.

Je voudrais qu'il apparaisse dès que j'ouvre le document : est-possible ?

[Jean-Pierre49]

bonjour,

Le code de pijaku fonctionne chez moi

si tu veux à l' ouverture le mettre de nouveau dans

Code :

Private Sub Workbook_Open()

Bon courage

[pijaku]

Dans ton module Thisworkbook, tu dois avoir :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_Open()
If Sh.Name = "General" Then 'bien adapter le nom de la feuille
    frmMenu.Show False
Else
    frmMenu.Hide
End If
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "General" Then 'bien adapter le nom de la feuille
    frmMenu.Show False
Else
    frmMenu.Hide
End If
End Sub

@jean Claude : bonjour, merci de ton intervention, je craignais d'avoir bouletté... Mais non!
A+

[catetesse]

Ca fonctionne comme ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
frmAcceuil.Show False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'permet d'ouvrir un userform tjs dans la même feuille
If Sh.Name = "General" Then
    frmAcceuil.Show False
Else
   frmAcceuil.Hide
End If
End Sub

Merci et bonne soirée

Catherine

[pijaku]

Envoyé par catetesse

Ca fonctionne comme ceci :

Code :

ça ne fonctionne que partiellement.
Fais ce test :
- ouvre le classeur
- clic sur n'importe qu'elle feuille autre que "general"
- enregistre
- ouvre le à nouveau
Il s'ouvre sur la dernière feuille active lors de l'enregistrement et lance, malgré le fait que tu ne soit pas sur l'onglet general, le Userform.
Il convient donc de faire le test :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
If Sh.Name = "General" Then
    frmAcceuil.Show False
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'permet d'ouvrir un userform tjs dans la même feuille
If Sh.Name = "General" Then
    frmAcceuil.Show False
Else
   frmAcceuil.Hide
End If
End Sub