B
buromania
Guest
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
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