VBA Excel03 - Boucle supprimer colonnes
Résolu
Bonjour,
suite à une extraction, je dois supprimer des mêmes colonnes (admettons seulement la B) sur toutes les feuilles de mon classeur. En activant la macro qui suit, la suppression s'opère seulement sur la feuille active :
Sub effacer()
Dim Feuille As Worksheet
With ActiveWorkbook
For Each Feuille In Worksheets
With Feuille
Columns("B:B").Delete Shift:=xlToLeft
End With
Next
End With
End Sub
Je vous remercie d'avance
suite à une extraction, je dois supprimer des mêmes colonnes (admettons seulement la B) sur toutes les feuilles de mon classeur. En activant la macro qui suit, la suppression s'opère seulement sur la feuille active :
Sub effacer()
Dim Feuille As Worksheet
With ActiveWorkbook
For Each Feuille In Worksheets
With Feuille
Columns("B:B").Delete Shift:=xlToLeft
End With
Next
End With
End Sub
Je vous remercie d'avance
2 réponses
-
Bonjour,
Ca marche avec ça:
Sub effacer() Dim Feuille As Worksheet With ActiveWorkbook For Each Feuille In Worksheets Feuille.Range("B:B").Delete Next End With End Sub
;o) -
Ben merci bien, c'est nickel!
D'où ça vient, simple problème de syntaxe inhérent à VBA (j'avais fait un With en trop remarque ...)?
