Suppression lignes

GIGI -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
j'aimerai créer une macro qui me permet de supprimer tt les lignes (sur 65536) a chaque fois que j'ai un "0" ou "NA" qui s'affiche dans une colonne

Sub suprligne()
Dim iRow As Long
For iRow = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(iRow, "G").Value = "NA" Then
Cells(iRow, "D").Value = "NA" Then

Rows(iRow).Delete
End If
Next iRow
End Sub

ceci ne fonctionne pas...pouvez vs m'aider svp

Merci par avance

1 réponse

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour
    essaies 
    Application.ScreenUpdating = False 
For iRow = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 
    If Cells(iRow, "G") = "NA" And Cells(iRow, "D") = "NA" Then 
        Rows(iRow).Delete 
    End If 
Next

    Michel
    Vous programmez en VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...(P. Fauconnier/dvp)
    0
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      Au passage, si tu cherches à éliminer les lignes avec valeurs d'erreurs essaie 

      On Error Resume Next 
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete 
On Error GoTo 0

      et pour les zéros il faudrait savoir s'il s'agit d'une saisie ou du résultat d'une formule...
      0

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon -
oumnas -

4 réponses
Probleme d'affichage de ligne dans Excel
sammy79 -
Pierre65 -

12 réponses