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 :
Code:
Private Sub Worksheet_Activate()
Nom Userform.Show
End Sub
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 :
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = 'Feuil1' Then
UserForm1.Show
End If
End Sub