Discussion :

[alucard_xs]

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 ...

[jfontaine]

Bonjour,

Essais comme cela.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub bouton1()
 
Dim i As Long
Dim Ws As Worksheet
 
For Each Ws In ActiveWorkbook.Sheets
    For i = Ws.Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Ws.Cells(i, 1).Value = "toto" Then Ws.Rows(i).Delete
    Next i
Next
 
End Sub

Tu as déclaré une variable Ws mais ne l'utilise pas

[alucard_xs]

Merci mais j'ai testé et nada en feuille 2 et autres ...

Je confirme, il ne fait rien de plus en feuille 2 ... zut ... comment c'est possible ?
je lance la macro via un bouton présent sur la feuille 1 pour info.

[jfontaine]

Oui, on peut boucler sur les fichiers d'un répertoire

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
17
18
19
20
21
22
23
Dim fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object
Dim i As Long
 
Dim str() As String
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
'Répertoire à lire
Set FsoRepertoire = fso.GetFolder("C:\")
 
'Boucle sur fichiers du repertoire
i = 1
For Each FsoFichier In FsoRepertoire.Files
    'Test l'extension du fichier
    str = Split(FsoFichier.Name, ".")
    If str(UBound(str)) = "xls" Then
       'Ajoute dans la colonne A le nom du fichier
        Range("A" & i).Value = FsoFichier.Name
        i = i + 1
    End If
Next

[alucard_xs]

merci
as tu une réponse pourquoi ça ne marche pas ma macro sur les autres onglets de mon fichier ?

[nchal]

Salut,

As tu utiliser le code de jfontaine ? Je viens de l'essayer et il marche très bien.

[jfontaine]

Il n'y pas de raison que le code ne passe pas sur toutes les feuilles

Ajoute la ligne msgbox pour être sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub bouton1()
 
Dim i As Long
Dim Ws As Worksheet
 
For Each Ws In ActiveWorkbook.Sheets
    msgbox ws.name
    For i = Ws.Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Ws.Cells(i, 1).Value = "toto" Then Ws.Rows(i).Delete
    Next i
Next
 
End Sub