ptit soucis sur boucle

[buromania]

Bonjour
Qu'est ce qui manque sur cette boucle?
With Feuil2.Range('bv2:bv5000')
Dim clef As Range
Dim x As Long
x = Feuil2.Range('Bv' & e).Value
For Each clef In Range('bv1', [bv1].End(xlDown))
If clef.Value = x Then
clef.EntireRow.Delete
End If
Next clef
end with

les x sont supprimés sauf 1 ou 2
Pourquoi ne sont ils pas tous supprimés ??

Bonne journée

 

[PascalXLD]

Bonjour

Tu mets

x = Feuil2.Range('Bv' & e).Value

Mais ton e on ne le voit nulle part pas de valeur

Donc déjà là ça m'interpelle

 

[buromania]

Bonjour Pascal 76, le forum

Dim e As Integer
e = devis.ListBox2.ListIndex + 2

placé un peut plus haut dans la procédure

bonne journée

 

[PascalXLD]

Ok

A titre perso je préfère pour supprimer des lignes boucler à l'envers

maligne = Range('BV1').End(xlDown).Row
For y = maligne To 1 Step -1
If Range('BV' & y) = x Then Rows(y).Delete
Next y

 

[buromania]

re bonjour pascal 76 le forum
éssaie ta méthode de suite et te tiens au courant
Bonne journée

 

[buromania]

Merci beaucoup Pascal 76
une épine de moins sur le cactus
Bonne journée à tous