Sélectionner onglets pairs ou impairs

Re-bonjour Francis,

Vu le code hyper-light que tu as trouvé la semaine dernière, je me permets d’abuser de tes compétences… et de ta patience :
Aurais-tu une variante pour :

– masquer les onglets pairs
– masquer les onglets impairs
– tout démasquer

dans une version aussi light que la précédente.

J’en ai bien un (ci-dessous) mais avec 24 onglets, je me rends compte que la formule est lourde pour le CPU :

Sub MASQUER_PAIRS()

Dim Sht As Worksheet

For Each Sht In ActiveWorkbook.Sheets 'tout déselectionner
   Sht.Select Replace:=True

Next

Sheets(Sheets.Count).Select Replace:=True
ind = 1
  
  For Each Sht In ActiveWorkbook.Sheets
    
  If ind Mod 2 = 0 And ind > 5 Then 'si pair
    Sht.Select Replace:=False
  End If
  
  ind = ind + 1
  
  Sheets(Sheets.Count - 1).Activate
  Sheets(1).Visible = False
  Sheets(2).Visible = False
  Sheets(3).Visible = False
  Sheets(4).Visible = False
  Sheets(5).Visible = False
   
  Next Sht
    
    ActiveWindow.SelectedSheets.Visible = False
    
End Sub

Sub MASQUER_IMPAIRS()

Dim Sht As Worksheet

For Each Sht In ActiveWorkbook.Sheets 'tout déselectionner
Sht.Select Replace:=True

Next

Sheets(Sheets.Count).Select Replace:=True
ind = 1

  For Each Sht In ActiveWorkbook.Sheets
  
  If ind Mod 2 <> 0 And ind > 5 Then 'si impair
    Sht.Select Replace:=False
  End If
  
  ind = ind + 1
  
  Sheets(1).Visible = False
  Sheets(2).Visible = False
  Sheets(3).Visible = False
  Sheets(4).Visible = False
  Sheets(5).Visible = False

  Next Sht
  
    ActiveWindow.SelectedSheets.Visible = False
    
    Sheets(6).Select
    
End Sub

Sub TOUT_DEMASQUER()

Dim Feuille As Object

For Each Feuille In ActiveWorkbook.Sheets
 Feuille.Visible = xlSheetVisible
Next

Sheets(6).Select

End Sub

Merci à toi Francis.

Bon we.

Bonjour Francis,

Vous êtes un chef!

Exactement ce que je cherchais! Avec votre code, le masquage est instantané. Le mien le faisait en 2 étapes : d’abord la sélection des onglets puis le masquage de ces derniers.
(enfin le mien… disons le code que j’ai récupéré ailleurs sur le net…).

Du coup pour la formule de démasquage, j’ai repris votre base et l’ai modifiée pour obtenir ceci :

Sub TOUT_DEMASQUER()
Dim i As Integer

    For i = 1 To Sheets.Count
            
            Sheets(i).Visible = xlSheetVisible
        
    Next i
    
    Sheets(1).Select
    Sheets(6).Select

End Sub

Mais il me fait défiler tous les onglets du 1er au dernier, tout comme la formule que j’avais initialement. Auriez-vous une idée pour un démasquage aussi instantané que les 2 formules de masquages que vous m’avez proposées?

Merci à vous Francis.

A bientôt.

Bonjour Francis,

Merci pour la 2è proposition, mais en effet ça ne change rien, notamment quant à la vitesse.
Je garde donc la 1ère version, plus simple à comprendre pour le noob que je suis en VBA…
Merci beaucoup pour votre aide depuis le début.
Je reviendrai peut-être vers vous bientôt, mais cette fois-ci concernant une formule INDIRECT Excel qui me fait des misères.
Mais j’essaie d’abord de trouver seul, sinon toc toc!

Merci encore.

Philgood.001

• Cette réponse a été modifiée le il y a 6 années et 12 mois par Philgood.001.

Bonjour Francis,

Bon, je pense que je vous pense que je vous ai lassé avec mes questions sans fin.

Je comprends.

Merci beaucoup pour votre aide. Je vais conserver ces codes bien au chaud.

Bon we à vous et à bientôt!

Philgood.001

Bonjour Francis,

Merci pour les infos. Je vais garder la formule actuelle pour l’instant.

J’ai une dernière question toujours sur ce classeur :

Sur chaque onglet, j’ai un bouton “Imprimer” (qui avant d’imprimer, cache certaines colonnes puis imprime puis ré-affiche lesdites colonnes). Du coup j’ai le même code sur 24 onglets (pour l’instant…).
Mais si je veux modifier le code par ex., je dois le faire pour chaque onglet, et ce 24 fois!!!

Y-a-t-il donc une solution qui permette de centraliser la formule d’impression quelque part et de ne créer que des renvois standardisés sur chaque onglet vers la formule générale d’impression?

J’avais pensé mettre la formule dans “ThisWorkBook” et mettre un renvoi dans chaque “Sheets”.
Qu’en penses-tu? Par contre pour le code je ne sais pas faire…

Merci encore à toi.

A bientôt.

Philgood.001.

• Cette réponse a été modifiée le il y a 6 années et 11 mois par Philgood.001.
• Cette réponse a été modifiée le il y a 6 années et 11 mois par Philgood.001.

Bonjour Francis,

Merci pour ton retour rapide.
En effet je suis d’accord avec toi s’il s’agit d’un bouton en mode “Formulaire”.
Mais j’ai oublié de préciser que pour des raisons esthétiques et pratiques, je préfère utiliser un bouton “ActiveX” dont je pourrai personnaliser la couleur. Et dans ce cas, ta proposition ne fonctionne pas.
Comment faire pour simplifier de la même façon qu’avec le mode “Formulaire”?

Merci à toi Francis.

Philgood.001.