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

[Nounours1]

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

[fring]

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 :

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

1
2
3
Private Sub CommandButton1_Click()
NomdelaMacroquivabien
End Sub

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

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
...code
...code
...code
End Sub

[Nounours1]

Merci beaucoup pour ta réponse.
@+