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