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

[rsoul]

Parce que mes messages differes en fonction des onglets selectionnés

[David2304]

C'est juste un exemple mais ça te permet au moins de savoir qu'elle page est selectionnée

Code :

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

1
2
3
Private Sub MultiPage1_Change()
MsgBox "Attention ! & vbLf & MultiPage1.SelectedItem.Caption "
End Sub

[fring]

Bonjour tlm,

Là le code va faire gueuler VBA, petite erreur de placement des guillemets

Code :

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

1
2
3
Private Sub MultiPage1_Change()
MsgBox "Attention !" & vbLf & MultiPage1.SelectedItem.Caption, vbOKOnly + vbInformation, "Attention"
End Sub

Le paramètre vbOkOnly est facultatif, c'est le paramètre par défaut qui sera pris en compte si aucun paramètre de bouton n'est précisé

Code :

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

1
2
3
Private Sub MultiPage1_Change()
MsgBox "Attention !" & vbLf & MultiPage1.SelectedItem.Caption, vbInformation, "Attention"
End Sub

Un mémo sur l'utilisation d'une MsgBox --> ICI