Microsoft 365 Suppression colonnes sauf sur 1 feuille

Orson83

XLDnaute Impliqué

• 5 Mai 2023

• #2

Bonjour farid, le forum,

Voici un exemple de fichier pour masquer/afficher les colonnes.

Orson.

 

Pièces jointes

• Masquer-colonnes-classeur-verrouillé.xlsm

  23.4 KB · Affichages: 3

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 5 Mai 2023

• #3

Bonjour @farid
Avec le code ci-dessous modifié

VB:

Sub sautpage()
    Dim xSh As Worksheet
    
    Application.ScreenUpdating = False
      
    For Each xSh In Worksheets
        If xSh.Name <> "PARAM" Then
            xSh.Select
            Call RunCode
        End If
    Next
    
    Application.ScreenUpdating = True
End Sub

@+ Lolote83

 

Vote positif 0 Vote négatif

Solution

Phil69970

XLDnaute Barbatruc

• 5 Mai 2023

• #4

Bonjour @farid

Edit Bonjour @Orson83 et @Lolote83 Désolé pour le doublon mais pb de rafraichissement

Je te propose ce code à la place de ton code

VB:

Sub sautpage()
Dim xSh As Worksheet
Application.ScreenUpdating = False
 
For Each xSh In Worksheets
    If xSh.Name <> "PARAM" Then
        xSh.Select
        Call RunCode
    End If
Next
End Sub

Merci de ton retour

@Phil69970

 

Vote positif 0 Vote négatif