Bonjour,

Voici mon petit problème en espérant avoir votre aide précieuse

Dans un userform, j'ai une listbox qui est alimentée par chaque cellule de la première ligne d'un tableau, donc j'obtiens les items correspondant aux valeurs de A1, B1, C1, D1, etc.. jusqu'à la dernière cellule non vide

J'aimerais, lorsque l'utilisateur ne sélectionne pas un item, que la macro supprime la colonne correspondant à l'item non sélectionné. J'ai crée le code suivant associé au clique d'un bouton :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
For m = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(m) Then
Workbooks("Programme").Sheets("Interface").Range("A1").Value = ""
Else
Workbooks("Programme").Sheets("Feuil1").Cells(1, m + 3).Columns.EntireColumn.Delete
End If
Next
Certaines colonnes correspondant à des items non sélectionnés se suppriment mais pas toutes !

Mon code a-t-il une faille que je ne trouve pas ?

Merci d'avance,

Greg