masquer afficher des colonnes sans activer la feuille

[freefer]

Bonjour,

Je voudrais savoir s'il est possible de masquer/afficher des colonnes/lignes sans activer ou selectionner la feuille concernée.

Merci d'avance.

 

[tdenfert]

Re : masquer afficher des colonnes sans activer la feuille

bonjour,

En Vba c'est possible avec une commande de ce style

Range("feuil2!a1:c12").EntireColumn.Hidden = True
pour cacher les colonnes a à C de la feuille2
même cde pour les afficher avec false

 

[Robert]

Re : masquer afficher des colonnes sans activer la feuille

Bonjour le fil, bonjour le forum,

Tdenfert, j'aurais plutôt écrit ça comme ça :

Sheets("Feuil2").Range("A1:C1").EntireColumn.Hidden = True

 

[freefer]

Re : masquer afficher des colonnes sans activer la feuille

bonjour,

En Vba c'est possible avec une commande de ce style

Range("feuil2!a1:c12").EntireColumn.Hidden = True
pour cacher les colonnes a à C de la feuille2
même cde pour les afficher avec false

Bonjour,

Merci pour ta réponse, je sais comment masquer/afficher des lignes et colonnes dans une feuille, mais je souhaiterais le faire sur d'autres feuilles que celle sélectionnée, sans les selectionner les unes après les autres afin de gagner du temps et en confort visuel (Application.ScreenUpdating ne fonctionne pas lors de l'activation /désactivation de feuilles).

 

[Robert]

Re : masquer afficher des colonnes sans activer la feuille

Bonjour le fil, bonjour le forum,

Pas besoin ni de sélectionner, ni de Application.ScreeUpdating = False... Le code ci-dessous masques les colonne A à C des onglets 2 à 3 en garrdant l'onglet 1 actif (si tu lance la macro avec cet onglet actif) :

Sub Macro1()
dim x as Byte
For x = 2 To 3
    Sheets(x).Range("A1:C1").EntireColumn.Hidden = True
Next x
End Sub

 

[freefer]

Re : masquer afficher des colonnes sans activer la feuille

Bonjour le fil, bonjour le forum,

Tdenfert, j'aurais plutôt écrit ça comme ça :

Sheets("Feuil2").Range("A1:C1").EntireColumn.Hidden = True

Bonjour,

un extrait de code qui me renvoie erreur 1004.
"S = "S " & (Nb_Semaines + 1)
With Sheets("Saisie")
Set cel = Range("i3:bw3").Find(S)
cln = cel.Column
For i = cln To 76
.Columns(i).Hidden = True
Next i
Application.Goto ActiveSheet.Range("A1"), True
End With"

sachant que le nombre de semaines peut être variable.

 

[Robert]

Re : masquer afficher des colonnes sans activer la feuille

Bonjour le fil, bonjour le forum,

Freefer, quand un code plante il est bon, d'une part, de préciser la ligne qui plante et ensuite, de fournir un fichier exemple pour qu'on comprenne pourquoi ça plante dans ton environnement.
Sinon, essaie comme ça :

S = "S " & (Nb_Semaines + 1)
With Sheets("Saisie")
    Set cel = Range("I3:BW3").Find(S)
    If cel Is Nothing Then Exit Sub
    cln = cel.Column
    For i = cln To 76
        .Columns(i).Hidden = True
    Next i
    Application.Goto ActiveSheet.Range("A1"), True
End With