appliquer macro sur les premières feuilles

[KikutaTakeo]

Bonjour à tous,

Hier vous m'avez gentiment donné la macro dont j'avais besoin mais pour faciliter son utilisation je voudrais qu'elle s'applique automatiquement à la fermeture sur les 13 premières feuilles. Comment dois-je faire ?

Ma macro à appliquer

Sub Macro1()
For i = Range("A65535").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountBlank(Range(Cells(i, 1), Cells(i, 5))) = 5 Then
Range(Cells(i, 1), Cells(i, 5)).Delete Shift:=xlUp
End If
Next i
End Sub


Merci d'avance

 

[Pierrot93]

Re : appliquer macro sur les premières feuilles

Bonjour,

modifie peut être comme suit :

Sub Macro1()
Dim ws As Worksheet
For x = 1 To 13
    With Worksheets(x)
        For i = .Range("A65535").End(xlUp).Row To 1 Step -1
            If WorksheetFunction.CountBlank(.Range(.Cells(i, 1), .Cells(i, 5))) = 5 Then
                .Range(.Cells(i, 1), .Cells(i, 5)).Delete Shift:=xlUp
            End If
        Next i
    End With
Next x
End Sub

bonne journée
@+

 

[KikutaTakeo]

Re : appliquer macro sur les premières feuilles

Merci ça à l'air de marcher comme il faut !

 

[KikutaTakeo]

Re : appliquer macro sur les premières feuilles

Enfaite ça marche pas comme il faut... quoique je fasse la macro prend en compte ma 14ième feuille alors qu'il faut pas.

 

[KikutaTakeo]

Re : appliquer macro sur les premières feuilles

ça marche je suis juste nul ! Merci beaucoup !!