Discussion :

[magictom42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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!

[magictom42]

ca ne fait rien!

[skorpio]

ecrit Next i
a la fin pour voir

next nb pardon

[magictom42]

ca n'a rien fait.

[COCONUT2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[skorpio]

moi j'arrive à cacher ta colonne avec par exemple,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[COCONUT2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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?

[magictom42]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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à?

[magictom42]

C'est bon merci tout fonctionne.