Supprimer plusieurs lignes avec VBA

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. :roll:

Dans quelle cellule se trouve ce X ?

Bonsoir,

Dans A10 : A100

@+ ;)

Bonsoir
voici le code à tester

Code:

---

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 :king:

Merci beaucoup, je vais faire des essais. :king:

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

Code:

---

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

---

Merci pour ta réponse, mais ou place tu ce code ? dans un module ou sur un bouton de commande? :?

Citation:

---

Envoyé par Nounours1

Merci pour ta réponse, mais ou place tu ce code ? dans un module ou sur un bouton de commande? :?

---

Bonjour,

C'est au choix, les deux sont possible.
Soit dans un module et le code inséré dans l'évènement Click du bouton donnera ceci

Code:

---

1 2 3

Private Sub CommandButton1_Click() NomdelaMacroquivabien End Sub

---

Soit le code directement inséré dans l'évènement Click

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() ...code ...code ...code End Sub

---

Merci beaucoup pour ta réponse.
@+ :king: