Macro fonctionnant sur plusieurs onglets

[c.clappier]

Bonjour,
J'essaye tant bien que mal de faire tourner la macro suivante sur tous les onglets de mon classeur, mais il y a de toute évidence un problème que je n'arrive pas à résoudre. Elle ne fonctionne que sur le classeur actif.
Any idea ?
Par ailleurs, j'ai l'impression que si elle fonctionne sur tous les onglets, le temps de traitement sera long. Y aurait-il un moyen de l'améliorer ? (en sachant que j'essaye de supprimer toutes les lignes dont la colonne A est vide.

Sub Suppression_lignes()
Dim ws As Worksheet
For Each ws In Worksheets
Columns("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next ws
End Sub

Merci beaucoup

 

[Robert]

Re : Macro fonctionnant sur plusieurs onglets

Bonjour Clappier, bonjour le forum,

Peut-être comme ça :

Sub Suppression_lignes()
Dim ws As Worksheet
Dim pl As Range

For Each ws In Worksheets
    With ws
        Set pl = Application.Intersect(.UsedRange, ws.Columns(1))
        On Error Resume Next
        pl.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        If Err <> 0 then Err = 0
    End With
Next ws
End Sub

 

[Paf]

Re : Macro fonctionnant sur plusieurs onglets

Bonjour à tous

Elle ne fonctionne que sur le classeur actif.

C'est normal que le code n'agisse que sur la feuille active puisque le code ne précise pas la feuille où les lignes doivent être supprimées !
il faudrait rajouter:
ws.Columns("a:a").SpecialCells(xlCellTypeBlanks).Enti reRow.Delete

Mais, si une feuille ne comporte aucune ligne, le code "plante".

Bonne suite

 

[Robert]

Re : Macro fonctionnant sur plusieurs onglets

Bonjour le Clappier, Paf, bonjour le forum,

Heu... Paf, je crois que Clappier nous a posé un lapin, non?

 

[Paf]

Re : Macro fonctionnant sur plusieurs onglets

@ Robert: il doit être dans les choux !!

 

[Robert]

Re : Macro fonctionnant sur plusieurs onglets

Bonjour le fil, bonjour le forum,

@ Paf : Sûr ! Mais s'il échoue ça sera pas de notre faute...

 

[Paf]

Re : Macro fonctionnant sur plusieurs onglets

Re bonjour

Pas saisi le jeux de mot cette fois !

 

[Robert]

Re : Macro fonctionnant sur plusieurs onglets

Bonjour le fil, bonjour le forum,

@ Paf, comme tu navet pas compris : Les Choux... s'il échoue...