XL 2016 Filtre dynamique et suppression valeur cellule si le premier filtre est effacée

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Septembre 2020

• #2

Bonsoir Albatore,
En trichant un petit peu.
Liste déroulante E5 = =SI($E$3="";"";INDIRECT($E$3))
MFC sur E5 : =$E$3="" police blanche fond blanc

 

Pièces jointes

• exemple (42).xlsx

  10.1 KB · Affichages: 3

Vote positif 0 Vote négatif

A

albatore78

XLDnaute Nouveau

• 15 Septembre 2020

• #3

Bonsoir Sylvanu,

Cela ne peut pas fonctionner dans mon cas, car une fois que l'ensemble des données est saisi, je viens à l'aide d'une macro, copier l'ensemble de ces valeurs dans une nouvelle feuille et je fais des tableaux croisés dynamiques pour obtenir des statistiques.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Septembre 2020

• #4

On a le droit aux macro ! 😀
Alors en PJ avec ceci :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E3")) Is Nothing Then
        If Target = "" Then Range("E5") = ""
    End If
End Sub

Elle s'active si changement en E3, si vide alors on efface E5.

 

Pièces jointes

• exemple (42) (1).xlsm

  15.1 KB · Affichages: 4

Vote positif 0 Vote négatif

A

albatore78

XLDnaute Nouveau

• 15 Septembre 2020

• #5

On peut se lâcher en VBA et comme ça je vais apprendre pleins de choses. Je suis super preneur 🙂.

On est sur un bon début pour la première partie de ma demande. Cependant, en plus de ça il faudrait (j'avoue que je n'avais pas prévu) que lorsque l'on change la valeur dans la case E3, la case E5 se mette à vide car la valeur n'est plus conforme au filtre dynamique.

Pour la 2ème partie de ma demande peut-on bloquer la cellule E5 si E3 n'est pas renseignée ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Septembre 2020

• #6

C'est encore plus simple :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E3")) Is Nothing Then
        Range("E5") = ""
    End If
End Sub

Dès qu'on touche à E3, on vide E5.

Pour la seconde question ..... c'est déjà le cas avec la liste en E5 :
=SI($E$3="";"";INDIRECT($E$3))

 

Vote positif 0 Vote négatif

A

albatore78

XLDnaute Nouveau

• 15 Septembre 2020

• #7

Parfait pour la première partie. Pour la 2ème, en revanche, si E3 n'est pas renseignée et que je saisis n'importe quoi dans la cellule E5, il n'y a aucun message bloquant.

 

Dernière édition: 15 Septembre 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Septembre 2020

• #8

En PJ on ne plus rien écrire en E5 si E3 est vide. Avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("E3")) Is Nothing Then
        Range("E5") = ""
    End If
    If Not Intersect(Target, Range("E5")) Is Nothing Then
        If Range("E3") = "" Then Range("E5") = ""
    End If
    Application.EnableEvents = True
End Sub

EnableEvents= false permet d'éviter toute réentrance.

 

Pièces jointes

• exemple (42) (3) .xlsm

  15.3 KB · Affichages: 2

Vote positif 0 Vote négatif

Solution

A

albatore78

XLDnaute Nouveau

• 15 Septembre 2020

• #9

Parfait c'est exactement ce qu'il me fallait un très grand merci sylvanu pour ton aide.

 

Vote positif 0 Vote négatif