Suppression colonne via Userform

Bonjour à tous,

Je voudrais pouvoir supprimer des colonnes dans mon tableau via un Userform type ListBox et un bouton "supprimer" :

Etape 1 : Le mieux serait d'afficher les nom de mes colonnes(Ligne A1, il s'agit de variables générés depuis mon instrument) dans une liste box, pour visualiser de manières clair les variables à ma disposition.

Etape 2 : L’opérateur pourrait sélectionner le nom de la variable depuis la ListBox et ensuite avec un bouton "supprimer" que ca me supprime ma colonne dans ma Feuille excel mais aussi dans ma Listbox.

Je peux avoir plus de 40 variables donc 40 colonnes selon les jours, c'est pour cela que je voudrais passer par un Userform.

Merci d'avance pour votre aide

Bonjour,

Une listbox nommée "ListBox1" et un commandbutton nommé "CommandButton1" (noms par défaut) posés sur une Form et tu colles le code ci-dessous dans le module de la Form :

Private Sub UserForm_Initialize()

    RemplirListe

End Sub

Private Sub CommandButton1_Click()

    If ListBox1.ListIndex <> -1 Then

        Columns(ListBox1.ListIndex + 1).Delete
        RemplirListe

    End If
End Sub

Sub RemplirListe()

    Dim Plage As Range
    Dim Cel As Range

    With ActiveSheet

        Set Plage = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft))

    End With

    ListBox1.Clear

    For Each Cel In Plage: ListBox1.AddItem Cel.Value: Next Cel

End Sub