Masquer colonnes

Bonjour à toutes et tous,

J'ai plusieurs feuilles excel et sur les différentes feuilles, je dois masquer des colonnes. Bien sûre ce ne sont pas les mêmes à chaque fois . Avec tous les forums, j'ai pu créer une macro qui fonctionne mais pour une seule colonne à la fois. Pourriez-vous m'aider pour réussir à en sélectionner plusieurs ?

Merci à toutes et tous pour votre aide.

Voici mon code :

Sub Masquer_colonnes()
x = InputBox("Numero de la colonne")
Columns(x).EntireColumn.Hidden = True
End Sub

Bonsoir

avec un usf, on peut modifier sans usf aussi

ci-joint

crdlt,

André

Bonjour à tous

Variantes.

Bye !

Merci beaucoup pour votre aide. Mais y a t il une possibilité de ne mettre que les lettres de la colonne comme ceci :

Bonjour,

Dans ton premier message ... tu demandes le Numéro de la Colonne ...

Dans ton dernier message ... tu demandes la Lettre de la Colonne ..

Donc ... la conclusion est ...

Oui, désolé. Donc ma conclusion est la lettre des colonnes.

encore merci pour votre aide.

Re,

Merci pour la clarification ...

Sub CacherColonnes()
Dim colLetter As String
Dim vCol As Variant
Dim i As Long

    colLetter = InputBox("Merci de Saisir les Lettres des Colonnes (séparées par des Virgules)  :")
    If colLetter = "" Then MsgBox "Opération Annulée": Exit Sub

     If Len(colLetter) > 1 Then
        vCol = Split(colLetter, ",")
        For i = 0 To UBound(vCol)
            Range(vCol(i) & ":" & vCol(i)).EntireColumn.Hidden = True
        Next i
     Else
        Range(colLetter & ":" & colLetter).EntireColumn.Hidden = True
     End If
End Sub

En espèrant que cela t'aide ...

Merci beaucoup, c'est exactement ce que je voulais. Il me reste à comprendre le code et à faire le même pour les lignes.

bonne journée.

Content que cela corresponde à ton attente ...

Merci ... pour tes remerciements ...

Re,

Tu viens de découvrir que Masquer ...et ... Supprimer ne peuvent pas être traités de la même façon ...

Effectivement ... pour supprimer des lignes ou des colonnes ... il faut systématiquement commencer par la fin ...