Discussion :

[nabelou1]

bonjour,
en voulant faire un test qui va me permettre de supprimer ou non une ligne dans ma feuille je tombe sur une erreur que je ne parviens pas a resoudre.

je m'explique:

je parcours la feuille et supprime toutes les lignes qui ont 0 dans la colonne 2.
comme la colonne 2 fais reference a une autre colonne d'une autre feuille,
je me retrouve avec de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

#REF!

et le compilateur ne semble pas aimer ça lors de la comparaison( qui se fait de la maniere suivante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For iter = 1 To nb_lig
Cells(iter, 2).Select
If Cells(iter, 2).Value = "0" Then
Cells(iter, 2).EntireRow.Delete

et donc il me donne le message suivant

erreur '13'
incompatibilité de type

quelqu'un peut m'aider?
merci d'avance pour vos reponses

[dadavyvy]

Bonjour, tu peux utiliser la fonction IsError pour savoir si la cellule renvoie une erreur ou non

[nabelou1]

oui mais je ne vois pas comment cela peut m'aider car avant de lancer la macro j'ai bien des zero dans ma colonne.
mais apres l'execution il bloque en fin de fichier dans le quel les zero sont devenu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

#REF

[dadavyvy]

Il faut faire la verif a chaque comparaison.
D'ailleurs, il vaut mieux commencer par la derniere ligne pour remonter, car sinon, a chaque suppression de ligne, tu dois diminuer le numero de ligne de 1 pour ne pas en louper :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For iter = nb_lig To 1 Step -1
    If IsError(Cells(iter, 2)) Then 'Supprime la ligne si c'est une erreur
        Cells(iter, 2).EntireRow.Delete
    ElseIf CStr(Cells(iter, 2)) = "0" Then 'Supprime la ligne si c'est 0
        Cells(iter, 2).EntireRow.Delete
    End If
Next iter

[nabelou1]

ça marche.
je bloquais car il y'a des ligne qui faisait reference a des lignes que j'avais deja effacer.
pour m'en sortir j'ai juste commencer a effacer a partir du bas comme ça je ne perds pas de reference et j'ai toujours des 0 dans ma colonne.

merci à tous pour le coup de main