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
bonjour popy
peut être passer par un user comme dans l'exemple
autrement mettre un bouton formulaire dans chaque feuille & appeler la macro
Code:
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