Suppresion des 2 dernières colonnes

[Citaro]

En ce dernier jour de l'année, bonjour au forum

Dans le fichier joint, je voudrais rechercher et supprimer par macro les 2 dernières colonnes à droite dont la ligne 2 est non vide et bloquer la macro si on arrive à la colonne E
Citaro, bon réveillon

 

[Paf]

Re : Suppresion des 2 dernières colonnes

bonjour,

pas sûr d'avoir compris "...supprimer par macro les 2 dernières colonnes à droite dont la ligne 2 est non vide ..."

une solution à tester:

Sub Dernière_colonne_supprimer()
 Dim DerCol As Long, WS As Worksheet

 Set WS = Worksheets("Feuil1") ' à adapter
 DerCol = WS.Cells(1, WS.Columns.Count).End(xlToLeft).Column

 If DerCol >= 7 Then
    If WS.Cells(2, DerCol) <> "" Then WS.Columns(DerCol).Delete
    If WS.Cells(2, DerCol - 1) <> "" Then WS.Columns(DerCol - 1).Delete
 End If
End Sub

A+

 

[Citaro]

Re : Suppresion des 2 dernières colonnes

Bonsoir Paf,

Tu as bien compris ma demande et réussi à la traitée,

Merci bonne soirée et bonne année 2016

 

[DoubleZero]

Re : Suppresion des 2 dernières colonnes

Bonjour, Citaro, Paf, le Forum,

Une autre suggestion, peut-être :

Option Explicit
Sub Dernière_colonne_supprimer()
    Range("f2").End(xlToRight).Offset(, -1).EntireColumn.Resize(, 2).Delete
    Range("e2").Select
End Sub

A bientôt