Discussion :

[PaulineH]

Bonjour,

Je cherche à automatiser la suppression de certaine ligne de mon tableau lorsque la valeur de la colonne réservation est égale ou supérieur à 100000.

Je sais que je pourrais trier et supprimer ensuite manuellement mais j'aurais aimé pouvoir inclure une procédure quelconque à une macro.

Merci pour vos idées.

Pièce jointe 651696

[Franc]

Bonjour, lien de la pièce jointe non valide. Voici quand même une suggestion:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub SupprimerLignes()
    Dim rng As Range
    Dim cell As Range
    Dim del As Range
 
    Set rng = Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns("A")) 'Changez "A" par la colonne de réservation
 
    For Each cell In rng
      If (cell.Value >= 100000) Then
            If del Is Nothing Then
                Set del = cell
            Else
                Set del = Union(del, cell)
            End If
        End If
    Next cell
 
    On Error Resume Next
    del.EntireRow.Delete
End Sub