VBA Excel03 - Boucle supprimer colonnes

Résolu
Palteza Messages postés 82 Statut Membre -  
Polux31 Messages postés 7219 Statut Membre -
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

A voir également:

2 réponses

Polux31 Messages postés 7219 Statut Membre 1 204
 
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)
0
Palteza Messages postés 82 Statut Membre 3
 
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 ...)?
0
Polux31 Messages postés 7219 Statut Membre 1 204
 
De rien.

Je ne sais pas pourquoi ton code ne fonctionne pas, je ne l'ai pas testé ^^

Bonne continuation

;o)
0