Discussion :

[kesdo]

Bonjour voici le problème,

J'aimerai supprimer des lignes en fonction d'une valeure située sur la 5 eme colonne derniere ligne.
J'ai crée une boucle mais cela ne supprime qu'une ligne (la derniere)
Pouvez vous m'aidez?
merci d'avance.

mon code:

Code :

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

1
2
3
4
5
h = Cells(1, 5).End(xlDown).Row
 
For i = Cells(1, 5).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 5).Value = Cells(h, 5).Value Then Cells(i, 5).EntireRow.Delete
Next

[amnorian]

Es tu sur que cela fonctionne comme cela, il ne te met pas une erreur ? parceque j'aurais mis next i à la fin.

sinon pour la boucle j'utilise plus facilement

Code :

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

for i = 1 to  h

sans passer par les step (qu'y sont plus à utiliser lorsque tu veux faire des sauts d'au moins 2 lignes)
Mais je ne dis pas que ton code est faux je ne l'ai pas testé

[fring]

Es tu sur que cela fonctionne comme cela, il ne te met pas une erreur ? parceque j'aurais mis next i à la fin.

Oui cela fonctionne, il n'est pas nécessaire d'ajouter "i" après le Next. Cela devient utile lorsqu'on a plusieurs boucles imbriquées afin de de rapidement savoir à quelle boucle le Next appartient.

Code :

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

for i = 1 to  h

sans passer par les step (qu'y sont plus à utiliser lorsque tu veux faire des sauts d'au moins 2 lignes)

Non, il faut impérativement passer par un "Step -1" pour réaliser une boucle de bas vers le haut lorsqu'on veut supprimer des lignes entières sinon pour chaque ligne supprimée la ligne suivante ne sera pas vérifiée.

[fring]

Cela ne fonctionne pas pour la raison suivante : tu relèves la dernière ligne de la colonne E qui est par exemple la ligne 22. Ensuite tu compares les cellules de la colonne E à cette cellule E22. Le hic est que dès que tu supprimes une ligne, le contenue de la cellule E22 remonte d'une ligne...

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
Dim i As Integer, h As Integer, xVal As String
 
h = Cells(Rows.Count, 5).End(xlUp).Row
xVal = Cells(h, 5).Text
 
For i = h To 1 Step -1
    If Cells(i, 5).Text = xVal Then Rows(i).Delete
Next

[amnorian]

Non, il faut impérativement passer par un "Step -1" pour réaliser une boucle de bas vers le haut lorsqu'on veut supprimer des lignes entières sinon pour chaque ligne supprimée la ligne suivante ne sera pas vérifiée.

D'accord je n'étais jamais passé par un step -1 (qui est beaucoup plus intelligent) mais par des boucles qui ne s'incrémentait que lorsque la conditions de suppression de ligne n'avait pas été réalisé.

[patricktoulon]

bonjour

personnellement j'aurais utilisé une autre méthode(find et find next)


au plaisir