masquer des colonnes

Version imprimable

11/07/2007, 11h24
magictom42

masquer des colonnes
Bonjour, je voudrais à partir d'un bouton : masquer certaines colonnes de plusieurs onglets. J'ai essayé de code mais il n'y a rien qui ce fait. Merci de votre aide.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub CommandButton3_Click() Dim nb As Integer For nb = 1 To 11 Sheets(nb).Select Columns("Y:CJ").Hidden = False nb = nb + 1 Next End Sub
11/07/2007, 11h27
COCONUT2

Et si tu mets la fonction Hidden sur True ca donne quoi?

Parceque To Hide en anglais, c'est cacher donc en fait tu ne cache pas mes colonnes, tu les affiches!
11/07/2007, 11h35
magictom42

ca ne fait rien!
11/07/2007, 11h37
skorpio

ecrit Next i
a la fin pour voir

next nb pardon
11/07/2007, 11h38
magictom42

ca n'a rien fait.

en plus j'ai l'impression d'une erreur dans ton code car tu incrémente 2 fois!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CommandButton3_Click()
Dim nb As Integer
For nb = 1 To 11
 
Sheets(nb).Select
Columns("Y:CJ").Hidden = False
'1ere incrémentation
nb = nb + 1
 
'2 eme incrémentation
Next
End Sub

C'est normal?

et essaies ca!

Code:

1
2
 
    Range("Y:CJ").EntireColumn.Hidden = True

11/07/2007, 11h45
skorpio
moi j'arrive à cacher ta colonne avec par exemple,
Code:

1 2 Columns("B:B").Select Selection.EntireColumn.Hidden = True

et pour gagner du temps dans le déroulement de ta macro, elimine le select

Code:

1
2
3
4
5
6
7
8
Private Sub CommandButton3_Click()
Dim nb As Integer
 
For nb = 1 To 11
     Sheets(nb).Range("Y:CJ").EntireColumn.Hidden = True
Next
 
End Sub

11/07/2007, 13h40
magictom42

le masquage fonctionne, mais quand je masque les cellules si je met false au lieu de true pour démasquer ca ne fonctionne pas.
11/07/2007, 13h44
COCONUT2

Normalement ca marche sauf si tu as en plus une protection de feuille et que VBA te jette à cause de ca.

Quel est le message d'erreur?
Quel est le code en entier?

C'est le meme sauf que je prévois plus large pour les colonnes.

Code:

1
2
3
4
5
6
7
8
 
Private Sub CommandButton5_Click()
Dim nb As Integer
 
For nb = 1 To 10
     Sheets(nb).Range("A:JJ").EntireColumn.Hidden = False
Next
End Sub

11/07/2007, 13h51
COCONUT2

Tu prévois trop large, il n'y a pas autant de colonnes dans une feuille XL.

Ca s'arrete à IV.

Déjà essaies de changer ca et puis,
As tu vraiment besoin de selectionner jusque là?
11/07/2007, 14h16
magictom42

C'est bon merci tout fonctionne.