Macro fonctionnant sur plusieurs onglets

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Mars 2014

• #2

Re : Macro fonctionnant sur plusieurs onglets

Bonjour Clappier, bonjour le forum,

Peut-être comme ça :

Code:

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

 

Dernière édition: 18 Mars 2014

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 18 Mars 2014

• #3

Re : Macro fonctionnant sur plusieurs onglets

Bonjour à tous

Elle ne fonctionne que sur le classeur actif.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 19 Mars 2014

• #4

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?

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 19 Mars 2014

• #5

Re : Macro fonctionnant sur plusieurs onglets

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 19 Mars 2014

• #6

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...

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 19 Mars 2014

• #7

Re : Macro fonctionnant sur plusieurs onglets

Re bonjour

Pas saisi le jeux de mot cette fois !

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 19 Mars 2014

• #8

Re : Macro fonctionnant sur plusieurs onglets

Bonjour le fil, bonjour le forum,

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

 

Vote positif 0 Vote négatif