Discussion :

[Peerl]

Bonjour, Meilleurs voeux à tous

J'utilise le code ci-dessous pour masquer mes feuilles de calculs à l'aide d'un bouton. sauf que quand je masque une feuille la boite de dialogue ne disparaît pas automatiquement! ce qui est embêtant étant donné que je me redirige vers une autre feuille qui n'a pas de bouton de masquage.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Hide_Click()
 
'ActiveWindow.DisplayWorkbookTabs = False
 
 
Dim feuille As Worksheet
Dim cell As Range
 
Application.DisplayAlerts = False
 
ActiveSheet.Unprotect ("")
 If MsgBox("Vous êtes sur?", vbYesNo) = vbYes Then
 Application.ScreenUpdating = False
 ActiveWindow.SelectedSheets.Visible = False
 Sheets("feuil1").Select
 ActiveSheet.Protect ("")
 
 On Error Resume Next
 Application.ScreenUpdating = True
 End If
 
  Application.DisplayAlerts = True
End Sub

quelqu'un peut me dire qu'est ce qui cloche dans ce bout de code ?
Merci

[mat955]

Bonjour, et bonne année 2020.

Qu'est-ce qui ne se masque pas ? La Msgbox ?
Qu'est-ce qui déclenche la procédure Hide_Click ? Un contrôle sur ta feuille ?

[Peerl]

Bonjour, et bonne année 2020.

Merci mat,
J'ai une boite de dialogue avec deux boutons : masquer et supprimer quand je clique sur masquer la feuille active se masque et je suis redirigé vers feuille 1.

quand je suis sur la feuille1 j'ai toujours la boite de dialogue avec masquer et supprimer.

[mat955]

D'accord, j'en conclus que ta boite de dialogue est un Userform.
Si tu veux qu'elle se masque, il faut utiliser la méthode Hide, ou carrément la fonction Unload si tu veux libérer l'objet.

Ex : si ton Userform sappelle "MonUserform"
Il faudra utiliser

Code :

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

MonUserform.Hide

[Peerl]

Il faudra utiliser

Code :

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

MonUserform.Hide

Utiliser cette ligne ou exactement ? excuse moi je n'arrive toujours pas à comprendre

[mat955]

Dans ta boucle If par exemple.

Peux-tu me confirmer que tu as bien un Userform ?
Si oui, il doit y avoir une action qui charge cet Userform, ce qui permet de l'afficher à l'écran.
La ligne que je t'ai écrite permet de le masquer, mais il faut le masquer si l'utilisateur confirme qu'il veut bien masquer la feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Hide_Click()
 
'ActiveWindow.DisplayWorkbookTabs = False
 
 
Dim feuille As Worksheet
Dim cell As Range
 
Application.DisplayAlerts = False
 
ActiveSheet.Unprotect ("")
 If MsgBox("Vous êtes sur?", vbYesNo) = vbYes Then
 Application.ScreenUpdating = False
 ActiveWindow.SelectedSheets.Visible = False
 Sheets("feuil1").Select
 ActiveSheet.Protect ("")
MonUserform.Hide    'Remplace MonUserform par le nom de ton userform
 
 On Error Resume Next
 Application.ScreenUpdating = True
 End If
 
  Application.DisplayAlerts = True
End Sub

[Peerl]

Peux-tu me confirmer que tu as bien un Userform ?

Oui c'est bien un UserForm.
ça fonctionne très bien merci mat