Discussion :

[rsoul]

Bonsoir ,
Tout est dans ma mon titre !

Merci par av

[David2304]

Bonjour,

Essaye ce code dans ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Mise en garde !"
End Sub

[rsoul]

En fait je nai pas été très précis,
je parle d'un onglet dans Userform Multipage.
Merci qd meme

[rsoul]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub MultiPage1_Click(ByVal Index As Long)
MsgBox = "test"
vbOKOnly vbInformation, "Attention"
End Sub

jai testé ca mais ca me signale une erreure de compilation:
"Un appel dans la partie gauche de l'affectation doit renvoyer variant ou object"

Une idée??

[rsoul]

finallement j'ai fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub MultiPage1_Click(ByVal Index As Long)
Dim MsgBox As Variant
MsgBox = "test"
vbOKOnly vbInformation, "Attention"
End Sub

mais now ca me dit : Utilisation oncorrecte de la propriété???,;

[David2304]

Pourquoi tu mets pas ça tout simplement ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub MultiPage1_Change()
MsgBox "Attention !"
End Sub