Suppression de ligne sur une autre page

[popy]

Bonjour,

J'ai une macro qui supprime des lignes selon certain critères, mais elle s’exécute sur la page courant.
Je voudrai l’exécuter sur la page de mon choix grâce à un bouton!

Help me please 🙂

Sub Nettoyer()

Dim i%
For i = 500 To 1 Step -1
If Cells(i, 2) = "1" Then Rows(i).Delete
Next
Dim f%
For f = 500 To 1 Step -1
If Cells(f, 2) = "0" Then Rows(f).Delete
Next
Dim a%
For a = 500 To 1 Step -1
If Cells(a, 2) = "" Then Rows(a).Delete
Next

End Sub

 

[laetitia90]

Re : Suppression de ligne sur une autre page

bonjour popy🙂
peut être passer par un user comme dans l'exemple
autrement mettre un bouton formulaire dans chaque feuille & appeler la macro

Sub es()
Dim i As Long
Application.ScreenUpdating = False
For i = 500 To 1 Step -1
If Cells(i, 2) = "1" Or Cells(i, 2) = "0" Or Cells(i, 2) = "" Then Rows(i).Delete
Next
End Sub

 

[popy]

Re : Suppression de ligne sur une autre page

Finalement j'ai trouvé une solution.... Merci quand même !!!!!! 😀