reperer #N/A

[SHINTRA]

Hello tout le monde

j 'ai un probleme je cherche a supprimer des ligne contenant l'erreur #N/A

je reflechi au code suivant mais sa marche pas.
Que faudrais il modifier svp
Merci

Sub eff_vide()
Dim c As Integer 'variable efface vide
For c = 1 To 5255
        'pour la colonne A'
            If Range('A' & c).Value = '#N/A' = True Then
            Rows(c).EntireRow.Delete
        End If
        Next c
 End Sub

 

[Hervé]

Bonsoir

Essaye comme ceci :

Sub eff_vide()
Dim c As Integer 'variable efface vide
For c = 5255 To 1 Step -1
        'pour la colonne A'
            If IsError(Range('A' & c).Value) Then
            Rows(c).EntireRow.Delete
        End If
        Next c
  End Sub

par contre tu va supprimer les lignes contenant tout types d'erreur, les div/# les nom# etc...

Salut

 

[SHINTRA]

Merci Bcp herve
ca fonctionne correctement

petit plus a quoi sert le ' step -1' de ton code

merci

 

[Hervé]

re

dans une boucle for next step,

le premier élément est le point de départ de la boucle le deuxième élément la fin et le step est le pas d'incrémentation.

donc for i=1 to 200 step 2 on va de 1 à 200 par pas de 2

et si on veut boucler en partant de la fin on incrémente à la fin.

en vba quand on veut supprimer des ligne on part de la fin et on remonte

donc for i=5000 to 1 step-1

voilà

salut