filtre automatiques à plusieurs choix (suite message du 19/10)
2 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
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 wrote:
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 -
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 <cof...@discussions.microsoft.com> wrote:
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 -
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 wrote:
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
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 wrote:
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 -
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 <cof...@discussions.microsoft.com> wrote:
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 -
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 wrote:
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 -
