Supprimer ligne N/A

Bonjour,

Mon tableau est bcp trop volumineux alors une image en pj :

Je fais des stats, à chaque fois je rajoute mon extraction à mon fichier. Dans ma colonne E, le nom de mes agents, déduit par une recherche V.

Ma question est quand ma recherche V donne "N/A", je voudrai que cette ligne soit supprimée. J'ai donc crée un bouton et essayé le code suivant :

Sub MAJ()
  On Error Resume Next
  Columns("A").SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
  On Error GoTo 0
End Sub

Celui ci supprime le contenu de mes lignes "N/A" mais me laisse une ligne blanche. Je voudrai qu'il supprime complètement la ligne.

Je vous remercie, si l'image n'est pas assez bien, je vais essayer de faire un autre fichier

Bonne après midi !

capture

bonjour

moi j'ais pas N/A dans mes recherchev regarde ma formule

ex:=RECHERCHEV(L11;'nom des stations'!$A$1:$B$88;2;FAUX)

ca peux déjà résoudre un problème

A+

Maurice

Bonjour,

Ci-joint une proposition à tester et à adapter, en VBA.

Bon après midi

Bouben

192supprimelignena.xlsm (16.22 Ko)

Archer : si c'est du NA c'est normal car c'est autre chose qu'un agent, compliqué à expliquer mais merci de la réponse

Bouben : Parfait ! Ca fonctionne, j'ai adapté ça au bon numéro de colonne, et magique ! Merci !!!

Bonne fin de journée !

bonjour

pour supprimer une ligne mettre ROWS

A+

Maurice

Sub Test()
Dim Ilig As Long
Dim L As Long
Application.ScreenUpdating = False
Ilig = Range("A" & Rows.Count).End(xlUp).Row 'part de la dernière ligne
   For L = Ilig To 2 Step -1
      If IsError(Range("A" & L).Value) Then
         Rows(L).Delete
      End If
   Next
End Sub
Rechercher des sujets similaires à "supprimer ligne"