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.![]()
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.![]()
Dans quelle cellule se trouve ce X ?
Bonsoir
voici le code à tester
Bonne soirée
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
Abed _H![]()
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
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
Soit le code directement inséré dans l'évènement Click
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub CommandButton1_Click() NomdelaMacroquivabien End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub CommandButton1_Click() ...code ...code ...code End Sub
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager