filtre automatiques à plusieurs choix (suite message du 19/10)
Le
coffee
Bonjour,
JB, dans cette macro comment faire pour empêcher de selectionner 2 fois la
même valeur car celà a pour effet de réafficher toute la liste.
merci pour votre réponse
coffee
> > Bonjour,
>
> > Choix de plusieurs codes dans un filtre du type OU
>
> >http://cjoint.com/?ktmoDr6mTc
>
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > If Target.Address = "$F$2" And Target.Count = 1 Then
> > Application.EnableEvents = False
> > On Error Resume Next
> > ActiveSheet.ShowAllData
> > p = Application.Match(Target, [crit], 0)
> > If IsError(p) Then
> > [D65000].End(xlUp).Offset(1, 0) = Target
> > Else
> > Cells(p, 4).Resize(1, 1).Delete Shift:=xlUp
> > End If
> > Application.EnableEvents = True
> > [A7].CurrentRegion.AdvancedFilter Action:=xlFilterInPlace,
> > CriteriaRange:=[crit]
> > End If
> > End Sub
>
> > JB
> >http://boisgontierjacques.free.fr
JB, dans cette macro comment faire pour empêcher de selectionner 2 fois la
même valeur car celà a pour effet de réafficher toute la liste.
merci pour votre réponse
coffee
> > Bonjour,
>
> > Choix de plusieurs codes dans un filtre du type OU
>
> >http://cjoint.com/?ktmoDr6mTc
>
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > If Target.Address = "$F$2" And Target.Count = 1 Then
> > Application.EnableEvents = False
> > On Error Resume Next
> > ActiveSheet.ShowAllData
> > p = Application.Match(Target, [crit], 0)
> > If IsError(p) Then
> > [D65000].End(xlUp).Offset(1, 0) = Target
> > Else
> > Cells(p, 4).Resize(1, 1).Delete Shift:=xlUp
> > End If
> > Application.EnableEvents = True
> > [A7].CurrentRegion.AdvancedFilter Action:=xlFilterInPlace,
> > CriteriaRange:=[crit]
> > End If
> > End Sub
>
> > JB
> >http://boisgontierjacques.free.fr
Poser une question
Choisir la même valeur dans le menu a pour effet de supprimer
l'élément de la liste.
Sur cette version, choisir la même valeur dans le menu est sans effet
sur la liste.
http://cjoint.com/?kAot2q7o6L
JB
On 26 oct, 13:44, coffee
coffee