Bonjour,

J'ai (encore) un problème de suppression de ligne. Je tape en C17 de la feuille DEPART un mot, et je voudrais que soient supprimées les lignes contenant ce mot dans la colonne A de la feuille RESULTAT.

Sub SupprimeLigne()

Sheets("DEPART").Select
Oper = Cells(17, 3).Value
Sheets("RESULTAT").Select
Range("A1").Select
Dim i&
With ActiveSheet
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Cells(i, 1).Value <> "Oper" Then
.Cells(i, 1).EntireRow.Delete
End If
Next i
End With

End Sub

Je coince avec "Oper". La macro prend le mot Oper et pas ce que j'ai désigné en ligne 2. Je suis obligé de procéder comme cela, car j'utilise la cellule Oper dans des requêtes QMF.

XP XLS 2003

Merci de votre aide

Doublon. Voir l'autre.

Yes Ferrand, mais j'avais oublié de mettre le sujet dans Excel. Autant essayer de le mettre au bon endroit dès le départ.

Bye