Discussion :

[tomylf]

Bonjour à toutes et à tous,

Je me permets de poster cette demande afin de trouver une aide à mon ignorance sur le sujet :-)
J'ai un bout de code VBA que je souhaiterai améliorer en insérant une listbox qui proposerait de sélectionner les critères au lieu de les indiquer bêtement dans le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveSheet.Range("$B$2:$Q$5000").AutoFilter Field:=6, Criteria1:=Array( _
        "1", "2", "3"), Operator:=xlFilterValues
        ActiveSheet.Rows("3:5000").SpecialCells(xlCellTypeVisible).Delete
        ActiveSheet.ShowAllData

Ce code est aujourd'hui inséré au centre d'une macro beaucoup plus longue.

Espérant trouver ici votre aide précieuse.
Bien cordialement,

[boisgontierjacques]

Sur l'exemple ci dessous,on affiche une ListBox mobile qui permet de choisir les items pour 3 colonnes (C,E,F).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub ListBox1_Change()
  If témoin Then Exit Sub
  Dim b()
  n = 0
  For i = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(i) Then
      n = n + 1: ReDim Preserve b(1 To n): b(n) = Me.ListBox1.List(i)
    End If
  Next i
  col = ActiveCell.Column
  If n > 0 Then
    ActiveSheet.Range("$A$9:$G$1000").AutoFilter Field:=col, Criteria1:=b, Operator:=xlFilterValues
  Else
   ActiveSheet.Range("$A$9:$G$1000").AutoFilter Field:=col
  End If
  Calculate
End Sub

Boisgontier

[tomylf]

Bonjour,

Merci pour votre réponse mais je crois que j'ai mal exprimé ma demande initiale.
En gros je cherche à créer une boîte de dialogue (peut être une msgbox du coup ?) lors de l'ouverture d'un fichier "X" qui me permettrai de choisir les différents critères (situés dans une même colonne) pour les filtrer par la suite et ainsi poursuivre le fil du code précédent.

Merci toutefois pour votre proposition.
Bien cordialement,

[boisgontierjacques]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Initialize()
  Me.ListBox1.List = Array("1", "2", "3")
  B_tout_Click
End Sub
 
Private Sub ListBox1_Change()
   Dim Tbl()
   For i = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(i) = True Then
       n = n + 1: ReDim Preserve Tbl(1 To n)
       Tbl(n) = Me.ListBox1.List(i)
    End If
   Next i
   If n > 0 Then
     Sheets("bd").[A1].AutoFilter Field:=6, Criteria1:=Tbl, Operator:=xlFilterValues
        'ActiveSheet.Rows("3:5000").SpecialCells(xlCellTypeVisible).Delete
        'ActiveSheet.ShowAllData
   Else   
     Sheets("bd").[A1].AutoFilter
   End If

Boisgontier

[tomylf]

Bonjour,

Merci d'avoir pris le temps de répondre à ma question.
Cependant je ne vois pas du tout comment intégrer votre code dans ma macro.

Ma macro réalise les tâches suivantes :

J'ai 2 fichiers X & Y
J'initialise depuis X l'ouverture de Y
C'est à ce moment là que je souhaiterai modifier mes 3 lignes de codes pour qu'à son ouverture on propose à l'utilisateur de sélectionner les critères.
Suite à cette sélection le code doit supprimer ces lignes filtrées puis défiltrer les lignes restantes.

Suite à cela je copie les données de Y vers X.

J'espère que ces explications permettront de mieux interpréter ma question.
Remerciant d'avance toutes personnes souhaitant m'apporter son aide.

Bien cordialement,