Supprimer une colonne

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2013

• #2

Re : Supprimer une colonne

Bonjour,

en supposant qu'il y ait bien des valeurs à supprimer en dehors de ton étiquette en A1...

Code:

Range("A2", Range("A65536").End(xlUp)).ClearContents

bonne journée
@+

 

Vote positif 0 Vote négatif

B

benoa

XLDnaute Junior

• 15 Juillet 2013

• #3

Re : Supprimer une colonne

Que fait cette commande, est-ce quelle supprime toute la colonne A2?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2013

• #4

Re : Supprimer une colonne

Re,

supprime le contenu des cellules de la colonne A, de la cellule A2 à la dernière cellule renseignée de cette même colonne....

 

Vote positif 0 Vote négatif

B

benoa

XLDnaute Junior

• 15 Juillet 2013

• #5

Re : Supprimer une colonne

Excuse moi mais à quoi correspond :Range("A65536") ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2013

• #6

Re : Supprimer une colonne

Re,

on part de la dernière cellule de la colonne :

Code:

Range("A65536")

et on remonte :

Code:

.End(xlUp)

 

Vote positif 0 Vote négatif

B

benoa

XLDnaute Junior

• 15 Juillet 2013

• #7

Re : Supprimer une colonne

ok merci bien

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juillet 2013

• #8

Re : Supprimer une colonne

Bonsoir à tous

benoa
Une variante (et sa soeur)

Code:

Sub a() ' ne garde que la valeur seule
ENTETE = [A1].Text: Columns(1).Clear: [A1] = ENTETE
End Sub

Code:

Sub ab() 'préserve le format
[A1].Cut [IV1]
Columns(1).Clear
[IV1].Cut [A1]
End Sub

Mais la solution de Pierrot93 (que je salue au passage) est celle qui coule de source
(La voici modifiée pour version > XL2K3 car il y a plus de 65536 lignes dans ces versions)

Code:

Range("A2", Cells(Rows.Count, "A").End(xlUp)).ClearContents

 

Vote positif 0 Vote négatif