Suppression de ligne sur une autre page

popy · 7 Décembre 2011

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 · 7 Décembre 2011

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

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

popy · 8 Décembre 2011

Re : Suppression de ligne sur une autre page

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

Suppression de ligne sur une autre page

popy

Guest

laetitia90

XLDnaute Barbatruc

Pièces jointes

popy

Guest

Discussions similaires

Suppression de ligne sur une autre page

popy

Guest

laetitia90

XLDnaute Barbatruc

Pièces jointes

popy

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency