Discussion :

[jijie]

Bonjour à tous,

Je voulais naviguer sur mes feuilles en effacent les autres feuilles mais je trouve ça un peu galère d'écrire la formule suivante pour chaque feuilles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sheets("Cpte_chèq_trés").Visible = True 'rendre la feuille visible
ActiveSheet.Unprotect 'ôté la protection de la feuille
Sheets("Grand_livre").Visible = True 'rendre la feuille visible
ActiveSheet.Unprotect 'ôté la protection de la feuille
Sheets("51251-Cpte_livret").Visible = True 'rendre la feuille visible
ActiveSheet.Unprotect 'ôté la protection de la feuille
Sheets("feuilfam").Visible = True 'rendre la feuille visible
ActiveSheet.Unprotect 'ôté la protection de la feuille
Sheets("Plan_comptable").Visible = True 'rendre la feuille visible
ActiveSheet.Unprotect 'ôté la protection de la feuille
Sheets("51231-directeur").Visible = False 'rendre la feuille invisible
ActiveSheet.Protect ' protection de la feuille

Alors pour les ouvrir à nvx j'ai trouvé ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
Dim LaFeuille As Worksheet
For Each LaFeuille In ActiveWorkbook.Worksheets
      LaFeuille.Unprotect
Next
 
Dim MaFeuille As Worksheet
 
For Each MaFeuille In ActiveWorkbook.Worksheets
      MaFeuille.Visible = xlSheetVisible
 
Next
 
End Sub

ça c'est bon!!
Et je voulais essayer ce code mais là, ça ne marche pas

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
Private Sub CommandButton15_Click()
Dim LaFeuille As Worksheet
For Each LaFeuille In ActiveWorkbook.Worksheets
      LaFeuille.Protect
Next
 
 
Dim MaFeuille As Worksheet
 
For Each MaFeuille In ActiveWorkbook.Worksheets
      MaFeuille.Visible
Next
Sheets("Grand_livre").Visible = True 'rendre la feuille visible
Range("a1").Select
 
End Sub

Auriez-vous une idée?

[jijie]

Bon,

et bien j'ai trouvé la réponse!

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
Private Sub CommandButton15_Click()
 
Dim a As Worksheet
 
For Each a In ActiveWorkbook.Worksheets
    If a.Name <> "Grand_livre" Then '
        a.Visible = False
    End If
Next a
 
Sheets("Grand_livre").Visible = True 'rendre la feuille visible
ActiveSheet.Protect ' protection de la feuille
Range("a1").Select
 
 
 
End Sub

a moins qu'il y est une autre solution!?

[ucfoutu]

Bonjour,

teste pour moi ce que j'écris ici à main levée :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton15_Click()
  Dim a As Worksheet
  For Each a In ActiveWorkbook.Worksheets
      a.Visible = (a.Name = "Grand_livre")
  Next a
  ActiveSheet.Protect ' protection de la feuille
  Range("a1").Select
End Sub

[jijie]

Salut Ucfoutu,

Oui ça marche très bien, je me demande si ce n'est pas un peu moins rapide!
mais ce n'est pas certain.

Si il n'y a pas de réponse de plus demain, je note "Résolu"!

Merci à toi, car ta version va me rendre service pour autre chose!!
jijie

[ucfoutu]

Salut Ucfoutu,

Oui ça marche très bien, je me demande si ce n'est pas un peu moins rapide!
mais ce n'est pas certain.

Non, ce n'est pâs moins rapide (la boucle restant rigoureusement la même, seule son utilisation étant modifiée)...
Je dirais même que c'est un tout petit peu plus rapide (mais si peu) pour les raisons suivantes :


- pas d'expression conditionnelle, mais utilisation directe d'un booléen résultant d'une expression simple (égalité)
- on ne revient pas (on l'a déjà fait dans la boucle) sur le traitement de la propriété de la feuille Grand_livre

[jijie]

Merci à toi ucfoutu et à la prochaine!!