KikutaTakeo
XLDnaute Nouveau
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
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
Dernière édition: