|
|
|
|
Salut adam.pierson,
Private Sub Worksheet_Activate() ' traitement End Sub 2. utiliser l'évènement Workbook_SheetActivate du module ThisWorkbook, en testant le nom de la feuille qui vient d'être activée Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "Toto" Then ' traitement adéquat End If End Sub A+, Kobaya. |