Bonjour,
Sauf erreur de ma part on ne peut filtrer en horizontal (trier oui). Donc en l’occurrence par VBA via USF :
Private Sub ComboBox1_Change()
Me.ComboBox2 = Me.ComboBox1
End Sub
Private Sub CommandButton1_Click()
Dim C_I As Variant, C_F As Variant
With Worksheets("Plan Maintenance")
C_I = .Rows("8:9").Find(Me.ComboBox1).Column
C_F = .Rows("8:9").Find(Me.ComboBox2).Column
.Columns(9).Resize(, 52).Hidden = True
.Columns(C_I).Resize(, C_F - C_I + 1).Hidden = False
End With
End Sub
Private Sub CommandButton2_Click()
Worksheets("Plan Maintenance").Columns(9).Resize(, 52).Hidden = False
End Sub
Private Sub UserForm_Initialize()
Dim C As Byte
For C = 9 To 60
Me.ComboBox1.AddItem Worksheets("Plan Maintenance").Cells(8, C)
Me.ComboBox2.AddItem Worksheets("Plan Maintenance").Cells(8, C)
Next C
End Sub
Cf fichier joint.
Cdlt,