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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5003511
Bonjour,

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
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- Masquer le texte des messages pré cédents -



- Afficher le texte des messages précédents -




coffee
Le #5003421
je te remercie. la 2 éme version à l'air de mieux correspondre à mon besoin.
coffee


Bonjour,

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
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- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -









Publicité
Poster une réponse
Anonyme