suppression colonne : code VBA trop long à exécuter

[C@thy]

Bonjour le forum,

je voudrais supprimer toutes les colonnes (à partir de la colonne N) dont la date en ligne 2 est inférieure à aujourd'hui - 30 jours
j'ai écrit ceci : (pensant que c'était bien)

Sub SupprimeColonnes()
dercol = [IV1].End(xlToLeft).Column
Range(Cells(2, 14).Address & ":" & Cells(2, dercol).Address).Select
For Each c In Selection
If IsEmpty(c.Value) Then Exit Sub ' vide = après la dernière colonne
If c.Value < Date - 30 Then
    c.EntireColumn.Delete
End If

mais ça rame comme c'est pas possible et ça ne marche pas vraiment...

Auriez-vous une idée de code plus efficace???

Merci à vous

Bises

C@thy

 

[Papou-net]

Re : suppression colonne : code VBA trop long à exécuter

Bonjour C@thy,

Essaies comme ceci, voir si ça va mieux :

Sub SupprimeColonnes()
Application.Screenupdating = False
For Each c In range("N2:IV2").SpecialCells(xlCellTypeConstants)
  If c.Value < Date - 30 Then c.EntireColumn.Delete
Next
Application.Screenupdating = True
End If

A +

Bises.

 

[Pierrot93]

Re : suppression colonne : code VBA trop long à exécuter

Bonjour Cathy,

pour les colonnes comme pour les lignes quand tu veux en supprimer préférable de commencer par la fin et remonter, au cas ou 2 fois de suite la condition est vérifiée... essaye peut être avec ceci :

Option Explicit
Sub SupprimeColonnes()
Dim c As Long, dercol As Long
dercol = [IV1].End(xlToLeft).Column
For c = dercol To 14 Step -1
    If Cells(2, c) < Date - 30 Then Columns(c).Delete
Next c
End Sub

bon après midi
@+

Edition : bonjour Papou

 

[C@thy]

Re : suppression colonne : code VBA trop long à exécuter

Un grand MERCI à vous deux, c'est SUPER!!!

Bises

C@thy

 

[Efgé]

Re : suppression colonne : code VBA trop long à exécuter

Bonjour C@thy , Papou-net , Pierrot93 , Une variante par union. Cordialement

 

[C@thy]

Re : suppression colonne : code VBA trop long à exécuter

Ah bravo Efgé, ça c'est très rapide!!!

Vive l'union!!!

Bises et MERCI

C@thy

 

[Efgé]

Re : suppression colonne : code VBA trop long à exécuter

Re,
Il y a quand même une grosse bétise dont je suis coutumier..
Il faut remetre le calcul en automatique à la fin du code

Application.Calculation =xlCalculationAutomatic

Désolé

Cordialement

 

[C@thy]

Re : suppression colonne : code VBA trop long à exécuter

Salut Efgé, ne soit pas désolé, je l'avais vu et j'avais rectifié, c'est pas une grosse bêtise, ça!

Bises et bonne journée

C@thy