Supprimer colonne tableau en fonction d'une Listbox

Bonjour,

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

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:

---

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

Bonsoir,

Lorsqu'on supprime des colonnes "une par une", il faut commencer par la droite, pas par la gauche...

Il va falloir transformer ton code en conséquence... ou trier la liste des items pour qu'elle soit décroissante ?

(NB pour les lignes, évidemment, l faut commencer par le bas et remonter !)

Bon courage

Bonjour,

outre la solution avisée que t'as donné EBRAG, et qui résoudra ton problème :

- est-il normal que ce soit toujours A1 qui soit effacée quoi qu'il arrive, pour chaque élément sélectionné ? Et du coup pouvoir être amené à faire plusieurs fois cette même opération ?

- au lieu d'utiliser la "colonne entière" de la cellule située en ligne 1 et en colonne "untel", pourquoi ne pas directement manipuler la colonne "untel" ?

Bonjour
la remarque faite par joe.levrai (que je salue) est on ne peut plus fondée.
Le mécanisme le plus logique devrait ressembler à ceci :

Code:

---

1 2 3 4 5

if la_listbox.listindex > 0 then Workbooks("Programme").Sheets("Interface").Range("A1").Value = "" else exit sub end if

---

et seulement alors la boucle sur les sélectionnés et actions subséquentes

Merci pour ces réponses !

J'ai réussi grâce à ERBAG à obtenir ce que je voulais (j'ai procédé par une boucle dans l'ordre décroissant et non croissant pour supprimer mes colonnes grâce à "Step -1")

Sujet résolu :lol:

Bonjour,

problème résolu, mais logique toujours absconte.

Enfin, c'est toi le patron de la discussion ;)