Caché plusieurs colonnes

Bonjour a tous,

Je cherche une solution pour cacher plusieurs colonnes successives.

Code:

---

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

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

Code:

---

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:

---

For i = 79 To 81

---

ou directement:

Code:

---

1 2 3

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

---

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

Merci rvtoulon ta réponse marche a merveille.:ccool: