Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$4" Then Exit Sub
Cancel = True
If Val(Target) = 1 Then
Target = "2 produits"
On Error Resume Next
Me.ShowAllData
Else
Target = "1 produit"
[A5] = "=B5<>""B"""
Range("B4:F" & [B65536].End(xlUp).Row) _
.AdvancedFilter xlFilterInPlace, [A4:A5]
[A5] = ""
End If
End Sub
Re,
Fichier (2) pour le cas de 3 produits.
A+
le fichier est il correcte?