VBA Excel03 - Boucle supprimer colonnes

Résolu/Fermé
Palteza Messages postés 79 Date d'inscription mercredi 2 décembre 2009 Statut Membre Dernière intervention 6 septembre 2014 - Modifié par Palteza le 12/04/2010 à 16:25
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 12 avril 2010 à 16:32
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

2 réponses

Réponse 1 / 2
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 avril 2010 à 16:22
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
Réponse 2 / 2
Palteza Messages postés 79 Date d'inscription mercredi 2 décembre 2009 Statut Membre Dernière intervention 6 septembre 2014 3
12 avril 2010 à 16:27
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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 avril 2010 à 16:32
De rien.

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

Bonne continuation

;o)
0