Supprimer des colonnes

[Tophe2]

Bonjour Le forum

Voilà j'ai un tableau avec une ligne d'entête importante (A1à BZ1), cependant j'ai besoin de copier régulièrement le tableau mais en gardant que quelques colonnes, peut on par le biais d'une macro demander à l'utilisateur les colonnes à conserver car elle sont moindre que celles à supprimer pour éviter de le faire manuellement et vraiment régulièrement.

Cordialement
Christophe.

 

[MJ13]

Re : Supprimer des colonnes

Bonjour Christophe

Oui, tu peux le faire par le biais d'un USf (ou useform ou formulaire).

Tu met une listbox multiselect dans ton USF, ensuite, tu y insères le nom de chaque colonne.
La personne n'aura qu'à cliquer sur les colonnes a suprrimer et le tour est joué.

 

[Minick]

Re : Supprimer des colonnes

Salut,

Un petit exemple en piece jointe.

ALT+F8 et lance LanceCopieColonnes

 

[skoobi]

Re : Supprimer des colonnes

Bonjour Christophe,

L'exemple suivant copie les colonnes A,C,E et K du tableau se trouvant en A1 (de la feuille active) vers la "feuil2":

Sub copiepart()
Dim MyCol As Variant
MyCol = Array("A", "C", "E", "K")
For i = 0 To UBound(MyCol)
  ActiveSheet.Range("A1").CurrentRegion.Columns(MyCol(i)).Copy Sheets("Feuil2").Range("IV1").End(xlToLeft).Offset(0, 1)
Next
Sheets("Feuil2").Columns("A").Delete
End Sub

Edit: oullaaa!, il y a du monde au portillon, bonjour Minick et Michel

 

[Tophe2]

Re : Supprimer des colonnes

Bonjour skoobi, Minick, MJ13 et le forum

Tout d'abord merci pour vos propositions, j'ai opté pour la proposition de Minick qui me propose de garder les colonnes désirées en sélectionnant cela dans la listbox car les colonnes peuvent changer pas toujours les mêmes.

Cordialement
Christophe.