reperer #N/A

SHINTRA · 9 Juin 2005

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

Code:

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é · 9 Juin 2005

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 · 9 Juin 2005

Merci Bcp herve
ca fonctionne correctement

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

merci

Hervé · 9 Juin 2005

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

reperer #N/A

SHINTRA

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

SHINTRA

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

Discussions similaires