effacer des lignes sous conditions

[Francis]

Bonsoir le forum
Suite à un tri, je désire effacer des lignes qui ne contiennent pas une valeur.
J’ai pondu ces quelques lignes et c’est « le différent de » qui ne marche pas.
Avec « = » ça marche, mais c’est le contraire que je veux faire.

Set rg_plage = ActiveSheet.UsedRange
With rg_plage
LastL = .Find("*", .Item(1), , , xlByRows, xlPrevious).row
LastC = .Find("*", .Item(1), , , xlByColumns, xlPrevious).Column
For i = LastL To 10 Step -1
For j = 6 To LastC
If Cells(i, j) <> valtest Then ‘le couac est dans cette ligne
Rows(i).Delete
End If
Next j
Next i
End With

Quelqu’un pourrait-il me mettre sur la voie ?
Merci d’avance
Francis

 

[Dan]

Re : effacer des lignes sous conditions

Bonsoir,

Valtest correpond à quoi ?

A te lire

Dan

 

[Francis]

Re : effacer des lignes sous conditions

Bonsoir Dan et le forum

valtest est une variable issue d'une combo pouvant prendre comme valeur une lettre.

Francis