Discussion :

[Greg57365]

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

[EBRAG]

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

[joe.levrai]

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" ?

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Greg57365]

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

[joe.levrai]

Bonjour,

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

Enfin, c'est toi le patron de la discussion