Suppression lignes

[Aladin]

Bonjour le forum

Je recherche une macro qui puisse travaille sur toutes les feuilles du classeur pour supprimer
les lignes dont n' importe quel cellule = X
colonne A à F de 100 lignes environ, Classeur de
7 feuilles
Merci à tous ceux qui pourront m' aider

Aladin

 

[Staple1600]

Bonsoir

Ceci fonctionne sur une seule feuille
et je n'arrive pas aà savoir pourquoi

Sub Test()
Set XX = Range('A1:F100')
For Each ws In Worksheets
For Each Cell In XX
If Cell = 'X' Then
Cells.EntireRow.Delete
End If
Next Cell
Next ws
End Sub

 

[Staple1600]

Oups

Sub Test()
Dim XX
Set XX = Range('A1:F100')
For Each ws In Worksheets
For Each Cell In XX
If Cell = 'X' Then
Cell.EntireRow.Delete
End If
Next Cell
Next ws
End Sub

 

[Staple1600]

La ça devrait mieux marcher
e pour toutes les feuilles

Sub Test2()
For i = 1 To Worksheets.Count
For Each CELLULE In Worksheets(i).Range('A1:F100')
If CELLULE.Value = 'X' Then
CELLULE.EntireRow.Delete
End If
Next CELLULE
Next i
End Sub

 

[Staple1600]

Ce n'est pas encore optimum

Il faut qu'il y ait des X dans chaque colonne
de la range

Je ne comprends pas ce qui ne va pas le code

 

[Dan]

Bonsoir,

Tu n'étais pas loin, il faut que la feuille soit activée.

Sub Test()
Dim ws As Worksheet
Set Plage = Range('A1:F100')
For Each ws In Worksheets
ws.Activate
For Each Cell In Plage
If Cell = 'X' Then
Cells.EntireRow.Delete
End If
Next Cell
Next ws
End Sub

Bon travail

 

[Staple1600]

Bonsoir Dan

Chez moi ta macro ne supprime les lignes quees dans la premiere feuille du classeur

 

[Staple1600]

Ci-joint mon classeur de test

La macro Test2 semble fonctionner non? [file name=testsupplig.zip size=9456]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testsupplig.zip[/file]

 

[Dan]

Re,

Stapple ton code
Cell.EntireRow.Delete

mon code :

Cell s .EntireRow.Delete



Message édité par: Dan, à: 22/03/2006 22:18

 

[Staple1600]

Cells.EntireRow.Delete

supprime toutes les lignes

 

[Staple1600]

As tu teste avec le classeur que j'ai joint?

 

[Staple1600]

Quand je lance
Test
seule la feuille active est traitée

Test2
supprime les les lignes contenant un X sur toutes les feuilles

TestDan
supprime toutes les lignes quelque soit leurs contenus

 

[Staple1600]

Peux tu tester cela?

Sub Test3()
For i = 1 To Worksheets.Count
For Each N In Worksheets(i).Range('A1:F10')
If N.Value Like 'X' Then
N.EntireRow.Delete
End If
Next N
Next i
End Sub

Chez moi, il ne reste plus que les lignes avec des
cellules contenant AX
Les lignes contenant X ont été supprimés dans tout le classeur

Ta macro supprime tout

Me trompe-je ??

 

[Dan]

Re,

Elle supprime les lignes où tu as un X.

Ta dernière macro est Ok aussi.

Edition : ajoute Dim N As Variant



Message édité par: Dan, à: 22/03/2006 22:49

 

[Hervé]

bonsoir tout le monde

une autre synthaxe possible :

Sub Bouton1_QuandClic()
Dim plage As Range
Dim ws As Worksheet
Dim i As Integer

For Each ws In Worksheets
        Set plage = ws.Range('a1:f100')
        For i = plage.Rows.Count To 1 Step -1
                If Application.CountIf(plage.Rows(i), 'X') = 1 Then
                        ws.Rows(i).Delete
                End If
        Next i
Next ws

End Sub

salut