Code VBA avec conditions
E
Bonjour,
J'ai 3 feuilles "a "b" "c"
je veux supprimer en colonne C toutes les lignes ne contenant pas BSC EXCEPT la ligne 1 et 2
j'ai 4 feuilles "d" "e" "f" "g"
je veux supp en colonne E toutes les lignes ne contenant pas BSC EXCEPT la ligne 1 à 6
J'ai écris 7 procèdures comme ceci pour le moment dans ma macro : Pouvez-vous m'aider à simplifier et me trouver comment ne pas supp les lignes que je souhaite garder. Merci
Sub suppregion()
Dim i As Integer
'préciser la feuille
With ThisWorkbook.Sheets("Mai")
'ici colonne C
For i = .Range("C" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("C" & i).Value <> "BSC" Then
.Rows(i).Delete
End If
Next i
End With
End Sub
g