Supprimer une colonne

[benoa]

Bonjour à tous,

Dans un tableau, je souhaiterais créer une macro qui réinitialise une colonne, c'est à dire sélectionner toute la colonne sauf sont étiquette, puis supprimer toutes les valeurs de cette colonne. Connaîtriez-vous une fonction VBA capable de réaliser ceci.

Si l'étiquette de la colonne est "blabla", je souhaiterais donc supprimer toutes les valeurs situés en dessous de blabla jusqu'à la fin de mon fichier.

Merci à tous pour vos suggestions.

 

[Pierrot93]

Re : Supprimer une colonne

Bonjour,

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

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

bonne journée
@+

 

[benoa]

Re : Supprimer une colonne

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

 

[Pierrot93]

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

 

[benoa]

Re : Supprimer une colonne

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

 

[Pierrot93]

Re : Supprimer une colonne

Re,

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

Range("A65536")

et on remonte :

.End(xlUp)

 

[benoa]

Re : Supprimer une colonne

ok merci bien

 

[Staple1600]

Re : Supprimer une colonne

Bonsoir à tous

benoa
Une variante (et sa soeur)

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

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)

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