Supprimer des colonnes avec leur numéros.

[MJ13]

Bonjour à tous

Avce les lignes, on peut supprimer facilement sur leur numéros. Mais avec des colonnes j'ai trouvé ce code:

Sub Delete_Column_Excel_VBA()
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
End Sub

Mais je voudrais mettre les colonnes en numéros, comme sur les Rows qui fonctionne (ex: Rows(derLigne & ":" & Rows.Count).Delete). Comment faire?

Merci d'avance 🙂.

 

[vgendron]

Re : Supprimer des colonnes avec leur numéros.

hello.
faut chercher un peu quand meme.. pour la colonne F
Columns(6).Select
Selection.Delete Shift:=xlToLeft

 

[MJ13]

Re : Supprimer des colonnes avec leur numéros.

Bonjour Vgendron

Merci pour ta proposition 🙂. Mais ce n'est pas tout à fait cela. Je veux par exemple supprimer les colonnes Coldeb =10 à ColFin = 20.

La, je ne sais pas 😕.

 

[vgendron]

Re : Supprimer des colonnes avec leur numéros.

Range(Columns(10), Columns(20)).Select

 

[MJ13]

Re : Supprimer des colonnes avec leur numéros.

Re

Et bien ,voila, c'était le code qu'il me fallait. Merci beaucoup 🙂.

 

[Pierrot93]

Re : Supprimer des colonnes avec leur numéros.

Bonjour,

une autre approche :

Columns(10).Resize(, 11).Select

bon après midi
@+

 

[MJ13]

Re : Supprimer des colonnes avec leur numéros.

Bonjour Pierrot

Merci beaucoup pour ce code avec le resize que j'utilise peu 🙂.

Du coup, cela m'a permis d'avoir un code sympa pour supprimer dans une feuille les lignes inutiles quand on créer des TCDs ou qu'on importe des données:

Code à placer dans Thisworbook pour que tout le classeur soit pris en compte.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Cancel = True
Columns(ActiveSheet.UsedRange.Columns.Count + 1).Resize(Rows.Count, Columns.Count - ActiveSheet.UsedRange.Columns.Count).Delete
Rows(ActiveSheet.UsedRange.Rows.Count + 1).Resize(Rows.Count - ActiveSheet.UsedRange.Rows.Count, Columns.Count).Delete
[A1].Select
End Sub