Bonsoir à tous,

impossible de faire appliquer ma macro à l'ensemble de s mes feuilles ... je vois pas d'où cela peut venir ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub bouton1()
 
 
Dim i As Long
Dim Ws As Worksheet
 
For Each f In ActiveWorkbook.Sheets
f.Activate
f.Select
    For i = Range("A100").End(xlUp).Row To 1 Step -1
        If Cells(i, 1).Value = "toto" Then Rows(i).Delete
    Next i
Next f
 
 
End Sub
merci

je lui demande de me trouver dans ma colonne A les lignes qui commencent par toto et si il les trouve alors il efface la ligne ...
il le fait bien pour la feuille 1 mais il balaie les autres feuilles sans rien faire ...