Suppression de lignes selon caracteres

Bonjour

Je vous écris par ce que j'ai besoin de votre aide svp.

Ma macro fonctionne mlais elle supprime plus de données que ce que je lui demande et je ne comprends pas pourquoi.

En effet, j'ai réalisé un code pour que ma macro demande à supprimer toutes les lignes dont le numéro d'article ne commence pas par R ou V, dans la colonne Numéro d'article.

Ce que je ne comprends pas, c'est pourquoi les lignes commencant par un R sont supprimées (cf foichir en PJ).

Trouvez ci joint le fichier ainsi que le code ci dessous

Merci d'avance pour votre aide

'Supprimer les articles qui ne commencent pas par R et V

Cells.Find(What:="Numéro d'article", After:=ActiveCell, LookIn:= _

xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _

xlNext, MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(1, 0).Select

While ActiveCell.Offset <> ""

If Left(ActiveCell.Value, 1) <> "R" Or Left(ActiveCell.Value, 1) <> "V" Then

ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete

ActiveCell.Offset(-1, 0).Select

End If

ActiveCell.Offset(1, 0).Select

5classeur1.xlsm (14.36 Ko)

bonjour

Sub Macro6()
Dim x As Integer, nb As Integer, strt As String
With Sheets("Feuil1")
nb = .Range("C" & Rows.Count).End(xlUp).Row
For x = nb To 2 Step -1
'If .Range("C" & x).Value <> "" Then
strt = UCase(Mid(.Range("C" & x), 1, 1))
If strt <> "R" And strt <> "V" Then
.Rows(x).Delete
End If
'End If
Next
End With
End Sub
' C etait : "OR"
''--###-- If strt <> "R" Or strt <> "V" Then '--###--

Super Merci beaucoup Amir

Le And plutot que le Or...

La etait la solution

Rechercher des sujets similaires à "suppression lignes caracteres"