petit problème de macro

[111li207]

Bonjour,
Après que quelqu'un m'ait gentiment apporté son aide, j'aimerais modifier la macro qu'il m'a créée. En effet, dans la macro ci jointe, on nous demande de choisir parmi les numéros de la colonne A. Or, les numéros dont je souhaite effacer la ligne sont en fait déjà connus et invariants (par exemple le numéro 5 et 3).
peut-on modifier la macro de sorte qu'il n'y ait plus de TextBox, mais seulement le button pour pouvoir supprimer la ligne de ces numéros enregistrés et invariant?

 

[Compte Supprimé 979]

Re : petit problème de macro

Salut 111li207,

Essaye ce code

Sub SuppressionLigne()
  Dim Lig As Long, ValASup As String
  ValASup = "3,5"  ' Sont les valeurs à supprimer
  For Lig = 2 To Range("A" & Range("A" & Rows.Count).End(xlUp).Row)
    If InStr(1, ValASup, Range("A" & Lig)) > 0 Then
      Range("A" & Lig).EntireRow.Delete
    End If
  Next Lig
End Sub

Voilà 😉

 

[Lii]

Re : petit problème de macro

Bonjour,

Autre présentation, macro affectée au bouton (pas d'USF) :

Sub suppr()
   Dim Cellule As Range
   For Each Cellule In Range("A2:A" & Range("A65536").End(xlUp).Row)
      If Cellule = 3 Or Cellule = 5 Then Cellule.EntireRow.Delete
   Next
End Sub