Macro suppression de lignes selon conditions via userform
Bonjour à tous,
Pour le travail, je dois réaliser une macro qui doit me permettre en rentrant des conditions dans le userform, supprimer les lignes qui ne remplissent pas certaines conditions. J'ai commencé à réaliser le code vba seulement étant novice en macro, je n'ai aucune idée de la façon de créer une boite de dialogue (useform) me permettant de rentrer les conditions en input.
La dernière partie de ma macro consiste à ne garder seulement la colonne B une fois la suppression des ligne vs faites.
Merci d'avance de votre aide,
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Sub test()
Dim zone As Range, Tablo
Dim der_ligne As Long
Application.ScreenUpdating = False
Set zone = Range("i2").CurrentRegion
der_ligne = zone.Rows(zone.Rows.Count).Row
Tablo = Range("A9:I" & der_ligne)
For i = UBound(Tablo) To LBound(Tablo) Step -1
If Not Tablo(i, 9) >= 110 Or Not Tablo(i, 3) <= 1000 Then
Rows(i + 8).Delete
End If
Next i
End Sub |
