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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager