masquer cellule

[ajit]

Je dispose d'une feuille de donnees.
Cette feuille dispose d'une quarantaine de colonne, chaque colonne ayant une en tete.

Je veux creer un bouton qui me demande trois nom de colonne, une fois ces colonnes rentrer, je veux masquer toute les autres colonnes.

Quelqu'un peut m'aider ?

Merci

 

[catherine]

exemple sur les 40 premieres colonnes : A à AO
1- masquage
Columns("A:AO").Select
Selection.EntireColumn.Hidden = True

2-réaffichage de 3 colonnes non contigües
for I = 1 to 3
Message = "Entrez une colonne à afficher"
Title = "Démonstration de InputBox" ' Définit le titre.
Defaut = "1" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
macolonne = InputBox(Message, Title, Defaut)
Columns(macolonne & ":" & macolonne).Select
Selection.EntireColumn.Hidden = False
Next

Catherine