Discussion :

[Nounours1]

Bonsoir,

Voici une idée qui me vient, je voudrai supprimer les lignes qui contiennent un X

En cliquant sur un bouton de commande ces lignes seront supprimées, par une boîte demandant à l'utilisateur de répondre oui ou non.

Merci.

[Abed_H]

Dans quelle cellule se trouve ce X ?

[Nounours1]

Bonsoir,

Dans A10 : A100

@+

[Abed_H]

Bonsoir
voici le code à tester

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
Sub xDEL()
Dim cell As Range, CellsDel As Range, derLi As Long
  Application.ScreenUpdating = False
  derLi = Cells(Rows.Count, 1).End(xlUp).Row
  For i = derLi To 2 Step -1
    If Cells(i, 1).Value = "X" Then
      If CellsDel Is Nothing Then
        Set CellsDel = Cells(i, 1)
      Else: Set CellsDel = Union(CellsDel, Cells(i, 1))
      End If
    End If
  Next i
       If Not CellsDel Is Nothing Then _
          CellsDel.EntireRow.Delete
End Sub

Bonne soirée

Abed _H

[Nounours1]

Merci beaucoup, je vais faire des essais.

[mapeh]

Bonsoir,
si ta valeur X est une valeur inscrite manuellement, et non le résultat d'une formule, tu peux utiliser ce code :

Code :

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

1
2
3
4
5
6
Sub supp_X()
With Range("A1:A" & [A65000].End(xlUp).Row)
    .Replace What:="X", Replacement:="", LookAt:=xlWhole
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub