Code message d'erreur

Version imprimable

03/06/2009, 13h28
NEC14

Code message d'erreur

Bonjour à tous,

Dans un menu, j'ai un Bouton sur lequel doit cliquer l'utilisateur pour ouvrir un formulaire de saisi (UFsais).
Celui-ci ne doit s'ouvrir uniquement si un onglet contenant un nom d'école est actif.
Les onglets concernant les écoles commencent soit par EP soit par MAT.
Je souhaiterai donc mettre en place un message à l'attention de l'utilisateur lui indiquant qu'il doit choisir une école (UFecole) avant de faire une saisie si aucun onglet commencant par EP ou MAT n'est visible.
Est-ce possible et comment ?
Merci pour votre aide

re nec, le forum
suivant ce que tu veux,

Code:

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
If ActiveSheet.Name Like "ep*" Or ActiveSheet.Name Like "mat*" Then
UFsais.Show
Else
MsgBox "vous devez selectionner une ecole avant d'ouvrir le formulaire": Exit Sub
End If
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton2_Click()
Dim x As Integer
For x = 1 To Sheets.Count
If Sheets(x).Visible = True And Sheets(x).Name Like "ep*" Or Sheets(x).Name Like "mat*" Then
UFsais.Show
Else
MsgBox "vous devez selectionner une ecole avant d'ouvrir le formulaire": Exit Sub
End If
Next x
End Sub

je rectifie ma seconde proposition

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim x As Integer
For x = 1 To Sheets.Count
If Sheets(x).Name Like "ep*" Or Sheets(x).Name Like "mat*" Then
 If Sheets(x).Visible = True Then
UFsais.Show
Else
MsgBox "vous devez selectionner une ecole avant d'ouvrir le formulaire": Exit Sub
End If
End If
Next x
End Sub

03/06/2009, 14h03
NEC14

Super cool Casefayere. Ce forum m'étonnera toujours.
Merci beaucoup