masquer les colonnes

Bonjour,
je voudrais faire une macro qui va masquer les colonnes de B à la colonne choisi.

Code:

---

1 2 3 4 5

Dim champ As Range Set champ = Application.InputBox(prompt:="Choisisez le champ à modifier", Type:=8) Columns("b:champ").Select Selection.EntireColumn.Hidden = True

---

Au déboguage il me dit erreur 13,incompatibilité de type.
merci pour votre aide

L'inputbox ne renvoi pas un range mais un string !

Pour faire ce que tu veux faire tu peux passer par un userform avec un controle RefEdit.


Edit : un lien très intéressant sur les userform ici


Edit2 : Une autre solution, demander à l'utilisateur de cliquer sur une cellule et gérer l'évenement click(il y en a d'autres) dans les evenements de la feuille.

Code:

---

1 2 3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox Target.Address End Sub

---