Supression en bloc de lignes

[Aimedjie]

Bonjour,

J'ai une macro qui me permet d'ajouter des lignes dans un tableau et une autre qui me permet d'en supprimer. Le problème survient si je sélectionne plus d'une ligne, la macro n'en supprime que quelques unes. Plus je sélectionne de lignes, plus la macro en oubli.

Pouvez-vous m'aider?

 

[pierrejean]

Re : Supression en bloc de lignes

bonjour Aimedjie

Teste remplacer

For Each cellAutresEcartsToDelete In Selection
    
        If Cells(cellAutresEcartsToDelete.Row, 1).Value = "D" Then
            cellAutresEcartsToDelete.EntireRow.Delete
        End If
        
    Next cellAutresEcartsToDelete

par

For n = Selection.Row + Selection.Rows.Count - 1 To Selection.Row Step -1
  If Cells(n, 1).Value = "D" Then Rows(n).Delete
Next n

 

[Aimedjie]

Re : Supression en bloc de lignes

Merveilleux!!! Tout fonctionne à la perfection.