Suppression de ligne en fonction de plusieurs critères
bonjour; je voudrais supprimer des lignes en fonction de plusieurs critères qui se trouve dans une même colonne.
Sub Suppligne()
Dim i As Long
'Cette macro efface l'ensemble des lignes pour lesquelles l'imputation affiche OPEX dans SAP/DEFI
With Sheets("SAP")
For i = .Range("P65536").End(xlUp).ROW To 2 Step -1
If .Cells(i, 16) = "" Then .Cells(i, 16).EntireRow.Delete
Next
End With
End Sub
En gros je voudrais utiliser ce code en ajoutant
si dans cette colonne il y a "" ou "N/A" ou "?" on efface la ligne
Merci
Bonjour
Ce n'était pas la peine d'ouvrir un autre post
Un fichier avec ces diverses données serait utiles
voilà le lien de mon fichier .
Merci
tu peux simplement ajouter
If .Cells(i, 16) = "?" Then .Cells(i, 16).EntireRow.Delete
If .Cells(i, 16) = "" Then .Cells(i, 16).EntireRow.Delete
à la suite de ta précédente ligne :
If .Cells(i, 16) = "OPEX" Then .Cells(i, 16).EntireRow.Delete
Bonjour,
Ton code ne fonctionne pas il y a pb à la ligne
.Range("A1:P" & Nblg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("P" & Nblg + 2).Resize(2, 1).
Cela est il dû au fait que j'ai plus de 5000 lignes dans mon fichier?
Bonjour
Je ne sais pas si le filtre à une limite quant aux nombre de lignes à filtrer
Et si tu fournis uniquement la page à filtrer afin de tester (et moi de faire un fichier) ?
Du coup j'ai gardé la soulution de nanouk même si elle est un peu longue.
Merci Banzai