Discussion :

[NEC14]

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

[casefayere]

re nec, le forum
suivant ce que tu veux,

Code :

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

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

ou

Code :

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

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 :

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

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

[NEC14]

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