Bonjour à tous,


Je traite une base de données comportant environ 500 lignes.

Je souhaiterais supprimer la colonne si la cellule correspondante à la ligne 48 est égale à 0.

J'utilise deux boucles mais elles doivent être mal construites car elles sont très lente:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
  Dim Compteur As Long
For Compteur = 1 To 10
supprimer
Next Compteur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 Sub supprimer()
 Application.ScreenUpdating = False
 For i = 1 To 500
    If Cells(48, i) = "0" Then
        Columns(i).Delete Shift:=xlToLeft   
   End If
Next i
 End Sub
Pourriez-vous m'aider car cela ralenti fortement ma macro.