Discussion :

[dadou42]

Bonjour à tous,
Je suis débutant au niveau des macros et je souhaite supprimer toutes les lignes contenant "-" sur toutes mes feuilles sauf ma feuille 2.

Voici mon bout de code que j'utilise mais je dois cliquer sur mon bouton de macro à chaque fois.

Code :

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

1
2
3
4
5
6
7
8
9
Sub suppr()
Dim i As Integer
For i = 1 To 256
If Cells(i, 1) = "-" Then
Rows(i).Delete
i = i - 1
End If
Next
End Sub

Si quelqu'un a une idée pour m'aider je suis preneur
Merci d'avance

[jmh51]

Bonjour,

Quelque chose comme ceci devrait fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For Each ws In Worksheets
     if ws.name <> "Sheet2" then
        For i = 1 To 256
        If Cells(i, 1) = "-" Then
           Rows(i).Delete
           i = i - 1
        End If
        Next i
     Endif
Next ws

Voilà, j'espère que ça t'aidera...
Bon week-end

[zyhack]

Bonjour dadou42, jmh51

jmh51,

Code :

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

i = i - 1

causera des problème car c'est le For qui gère la valeur de i

de plus comme il y a supression de ligne il faut commencer par la fin, il y a plein d'explication à ce sujet sur le forum.

dadou42, le code un peu modifié et testé

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
Sub suppr()
Dim wsh As Worksheet
Dim i As Integer
 
For Each wsh In Worksheets
  If wsh.Name <> "Feuil2" Then
    For i = 256 To 1 Step -1
      's'il n'y a que le tiret dans la cellule
      If wsh.Cells(i, 1) = "-" Then wsh.Rows(i).Delete Shift:=xlUp
      'si le tiret est dans une chaine de caractère
      'If InStr(1, wsh.Cells(i, 1).Value, "-") > 0 Then wsh.Rows(i).Delete Shift:=xlUp
    Next
  End If
Next
End Sub

[dadou42]

Bonjour zyhack,
Merci pour ton retour , j'ai bien testé ta macro
Mais je n'arrive pas à la faire fonctionner sur mon fichier.
Elle me supprime 229 lignes par 229.
Merci par avance pour ton retour

[zyhack]

Bonjour

Si tu veux traiter toutes les lignes remplaces

Code :

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

For i = 256 To 1 Step -1

par

Code :

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

    For i = wsh.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1