Supprimer des colonnes

MJ13

XLDnaute Barbatruc

• 7 Août 2009

• #2

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é.

 

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 7 Août 2009

• #3

Re : Supprimer des colonnes

Salut,

Un petit exemple en piece jointe.

ALT+F8 et lance LanceCopieColonnes

 

Pièces jointes

• CopieColonnes.xls

  41.5 KB · Affichages: 62

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 7 Août 2009

• #4

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

Code:

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

 

Dernière édition: 7 Août 2009

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 7 Août 2009

• #5

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.

 

Vote positif 0 Vote négatif