ouverture userform en séléctionnant un onglet

[seb02]

Bonjour le forum,

J'aimerai savoir comment faire pour ouvrir un userform lorsque l'utilisateur clique sur onglet
j'ai bien essayé

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sheets('feuil1').Select Then
userform.Show
Else: End If
End Sub

mais je ne pas quitter la feuil1 lol.
merci

 

[Brigitte]

Bonjour Seb,


Alors voilà j'ai un fichier avec plusieurs feuilles et quand je clique sur l'une d'entre elles, mon USERFORM se déclenche, voici le code qu'a utilisé jmps pour faire ca :

Private Sub Worksheet_Activate()
Nom Userform.Show
End Sub

Espérant t'avoir aidé.

 

[MichelXld]

bonjour Seb , bonjour Brigitte

tu peux aussi tester

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = 'Feuil1' Then UserForm1.Show
End Sub


bon apres midi
MichelXld

 

[seb02]

salut brigitte, MichelXld et le forum

merci pour vos reponses, j'ai effectué la facon de MichelXld et comme elle fonctionné je l'ai gardé.

encore merci a vous 2
par contre je ne comprend pourquoi cela fonctionne dans END IF ??

 

[Eric C]

Bonjour le forum
Bonjour seb02, bonjour Michel

Seb02 (Moi je suis de St.QUENTIN....plus exactement de GAUCHY petite aparté). Il n'y a pas de End If tout simplement parce que tout tient sur une ligne (code assez concis ici). Par contre si le code avait été plus compliqué, il y aurait eu des retours à la ligne après le Then.

Tu peus écrire le même code de la façon suivante :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = 'Feuil1' Then 
UserForm1.Show
End If 
End Sub

Bon fin de dimanche

 

[Brigitte]

Bonsoir à tous,

Juste une petite précision, il s'agit du nom du userform... tout simplement et donc j'ai mis Nom Userform...


Ouarf...