Discussion :

[peofofo]

Bonjour a tous,

Je cherche une solution pour cacher plusieurs colonnes successives.

Code :

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

1
2
3
4
5
For n = 0 To i
Sheets("type").Select
Columns("CA:CA").Select
Selection.EntireColumn.Hidden = True
Next n

Le problème est que les colonnnes sont des lettres et que je voudrait caché plusieurs colonnes.
Exemple : lorsque i=3
la colonne CA, CB et CC.

Comment faire ?

[rvtoulon]

slt,
admettons que tu veuilles cacher les colonnes B, C, D tu peux écrire:

Code :

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

1
2
3
4
5
Sub cachercolonne()
For i = 2 To 4
Columns(i).Hidden = True
Next i
End Sub

voila une piste. A+

edit: pour colonne CA, CB, CC:

Code :

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

For i = 79 To 81

ou directement:

Code :

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

1
2
3
Sub cachercolonne()
Columns("CA:CC").Hidden = True
End Sub

[peofofo]

Bonjour, et désolé de n'avoir pas pu répondre plus tôt

Merci rvtoulon ta réponse marche a merveille.