CB60
XLDnaute Barbatruc
Bonjour,
je cherche à rendre mon code VBA pour supprimer des colonnes plus rapide
J'ai trouvé cette macro de Job, qui fonctionne si je fais feuille par feuille
je l'ai donc transformé de cette façon:
afin de boucler sur mes feuilles, la macro que j'ai modifié plante à cet endroit:
erreur d'exécution 1004
Avez vous une idée du pourquoi?
je cherche à rendre mon code VBA pour supprimer des colonnes plus rapide
J'ai trouvé cette macro de Job, qui fonctionne si je fais feuille par feuille
Code:
Sub SupprimeColonnes()
Dim v, c As Range, sup As Range
v = "x"
For Each c In ActiveSheet.UsedRange.Rows(2).Cells
If c = v Then Set sup = Union(c, IIf(sup Is Nothing, c, sup))
Next
If Not sup Is Nothing Then sup.EntireColumn.Delete
End Sub
Code:
Sub effaceCOL()
Dim f
Dim v, c As Range, sup As Range
v = "x"
For Each f In Array("Result_Tric ", "Result_Finished", "Analyse dimensionnelle", "FT TRE1")
Sheets(f).Activate
With Sheets(f)
Rows("2:2").Copy
Rows("2:2").PasteSpecial xlPasteValues
End With
For Each c In ActiveSheet.UsedRange.Rows(2).Cells
If c = v Then Set sup = Union(c, IIf(sup Is Nothing, c, sup))
Next
If Not sup Is Nothing Then sup.EntireColumn.Delete
Next f
End Sub
Code:
Set sup = Union(c, IIf(sup Is Nothing, c, sup))
Avez vous une idée du pourquoi?