Bonjour,
Je suis novice
pouvez vous m'indiquer un prog sous vba-excel pour :
 
Dans un tableau de 5 colonnes, dans la colonne E si les cellules sont differente de "A" ou "B"  alors suppression de la ligne et ceux pour toute la colonne E du tableau !
 
J 'ai essayé de "bidouiller" des bout de code mais là je seche
[cpp]Sub SupprimeCellule()
Dim i As Long
For i = [E65536].End(xlUp).Row To 1 Step -1
Select Case Left(Cells(i, 5), 2)
Case "A", "B"
Rows(i).Delete
End Select
Next i
 ce que je voudrais c'est que le code fasse le contraire,qu'il suprime toutes les lignes où il n'y a pas "A" ou "B"
 
Quelqu 'un a une idée ?
 
Merci d 'avance.

 
Salut
 
La macro suivante devrait permettre de répondre à ta question
Sub Macro1()
For i = [E65536].End(xlUp).Row To 2 Step -1
'Row To 2 Step -1 si on suppose que tu as une ligne d'en-tête que tu veux conserver
For j = 5 To 5
If Cells(i, j) = "A" Or Cells(i, j) = "B" Then
Cells(i, j).Select
Else
Rows(i).Delete
End If
Next j
Next i
End Sub