VBA Excel03 - Boucle supprimer colonnes

Résolu
Palteza Messages postés 79 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
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 6917 Date d'inscription   Statut Membre Dernière intervention   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 79 Date d'inscription   Statut Membre Dernière intervention   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 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
De rien.

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

Bonne continuation

;o)
0