Microsoft 365 Suppression colonnes sauf sur 1 feuille

[farid]

Bonjour à vous tous ,
En PJ , un exemple d'une macro qui fonctionne très bien sur toutes les feuilles. Cependant, j'aurais souhaité que cette action ne s'applique pas sur l'onglet "PARAM".
Par avance , merci et bonne journée

 

[Orson83]

Bonjour farid, le forum,

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

Orson.

 

[Lolote83]

Bonjour @farid
Avec le code ci-dessous modifié

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

 

[Phil69970]

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

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