Suppression ligne tableau

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Suppression ligne tableau

LeSqual

Bonjour,

Voici mon petit probleme:
For i = 2 To N
If (Cells(i, 38) = 9156) Then
Rows(i).Delete
i = i - 1
End If
Next

Lorsque j'exécute cette macro effectivement il m'elimine bien toutes les lignes dont la cellule en colonne 38 est égale à 9156
mais maintenant si je souhaite modifier cette macro en :

For i = 2 To N
If (Cells(i, 38) <> 9156) Then
Rows(i).Delete
i = i - 1
End If
Next

ben cette fois-ci il tourne indéfiniement dans le vide. Pourquoi ?

Merci de m'apporter une aide.

LeSqual.

Publicité

olivthill

La variable i recule d'un pas (ligne i = i-1), puis avance d'un pas (ligne Next).
Autrement dit, i fait du sur-place, sauf lorsque une cellule contient 9156.
Donc, pour que la boucle se termine, il faut qu'il existe N-2 cellules contenant 9156.

porcinet82

Salut,

Lorsque l'on veut supprimer des lignes, il faut partir du bas pour aller vers le haut avec un pas de -1. Ainsi, ta boucle serait plutot de ce genre la :

Code :

For i = N To 2 Step -1
If (Cells(i, 38) = 9156) Then
Rows(i).Delete
End If
Next

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Suppression ligne tableau

Sujets relatifs
Réalisé un tableau dynamique en 2 dimensions	Sauts de ligne pas pris en compte à l'affichage (avec MySQL)
[résolu] difference tableau multi dimension	utiliser les éléments d'un tableau d'entiers
Ajouter une ligne en tête et fin de fichier	BDD simple (tableau 10 colonnes) > comment m'y prendre ?
Ajout de caractère en tête de ligne d'un fichier	Alignement a la ligne des div
afficher ligne group by meme si pas de valeurs	HTML probleme avec tableau tres complexe
Plus de sujets relatifs à : Suppression ligne tableau

Page générée en 0.029 secondes