A
AurélienP
Guest
Bonjour à tous,
j'ai récupérer un code sur le forum, qui fonctionne bien pour mon cas (Merci à PierreJean 😱)
cependant, je souhaitais y intégrer une inputbox afin de choisir mon critère de suppression.
ici toutes les Lignes dont la colonne M contient le texte souhaité.
voici le code qui fonctionne nickel (mais sans sélection souple du critère de suppression)
et voici ma variante... qui plante mon PC...
merci de votre aide...
j'ai récupérer un code sur le forum, qui fonctionne bien pour mon cas (Merci à PierreJean 😱)
cependant, je souhaitais y intégrer une inputbox afin de choisir mon critère de suppression.
ici toutes les Lignes dont la colonne M contient le texte souhaité.
voici le code qui fonctionne nickel (mais sans sélection souple du critère de suppression)
Code:
Sub test()
Dim n As Integer
For n = Range("A65536").End(xlUp).Row To 11 Step -1
If InStr(Range("M" & n), "81802") <> 0 Then Rows(n).Delete
If UCase(Left(Range("M" & n), 5)) = "SOMME" Then Rows(n).Font.Bold = True
Next n
End Subet voici ma variante... qui plante mon PC...
Code:
Sub test123()
Dim n As Integer
For n = Range("A65536").End(xlUp).Row To 11 Step -1
If InStr(Range("M" & n), InputBox("Quelle Famille souhaitez vous supprimer ?")) <> 0 Then Rows(n).Delete
If UCase(Left(Range("M" & n), 5)) = "SOMME" Then Rows(n).Font.Bold = True
Next n
End Submerci de votre aide...