XL 2013 FILTRE & VBA

[mcj1997]

Bonjour,

En PJ, questions sur filtres et VBA,

Merci d'avance,

 

[Jacky67]

Bonjour,
Dans le cas présent, fusionner des cellules n'est pas une bonne idée
Tester le classeur en pj

 

[mcj1997]

Merci pour la réponse mais cela ne fonctionne pas, si je rentre une nouvelle date ex : 02/01/2017, la semaine 1 n'apparait pas dans le filtre.

 

[Jacky67]

Re...
Ce classeur à pour le moins un comportement bizarre.
J'ai refait une nouvelle feuille et ce problème à disparu
Néanmoins, je te conseille de refaire un classeur tout neuf


*Pj Modifié

 

[pilou76]

Bonjour,
La plage de ton filtre s'arrête à la ligne 11 et ne prend donc pas les lignes suivantes.

 

[mcj1997]

Comment modifier la plage d'un filtre automatique ?

 

[pilou76]

Bonjour,
Données/Filtre avancé.
Dans ton cas, remplace E11 par E20 par ex
A vérifier mais ça fonctionne chez moi (Excel 2010)
Cordialement

 

[MJ13]

Bonjour à tous

Rajoute des noms (ex: a partout) à gauche des dates pour que le filtre se mette à jour.

 

[Jacky67]

Re..
Tu as testé le classeur en #4 ??

 

[mcj1997]

Re..
Tu as testé le classeur en #4 ??

oui c'est ok en #4.
Mes questions 1 et 3 sont ok, la question 2 vous inspire t-elle ?

Merci

 

[mcj1997]

Bonjour,
Données/Filtre avancé.
Dans ton cas, remplace E11 par E20 par ex
A vérifier mais ça fonctionne chez moi (Excel 2010)
Cordialement
Regarde la pièce jointe 999653

Merci pour votre réponse mais cela ne fonctionne pas, en modifiant ces zones cela supprime les filtres.

 

[Jacky67]

oui c'est ok en #4.
Mes questions 1 et 3 sont ok, la question 2 vous inspire t-elle ?

Merci

Re...
Pourquoi mettre la formule par vba ? La réponse est immédiate avec la formule en E3

 

[mcj1997]

Re...
Pourquoi mettre la formule par vba ? La réponse est immédiate avec la formule en E3

Je souhaite faire disparaître les formules avant de circulariser ce fichier.

 

[Jacky67]

Je souhaite faire disparaître les formules avant de circulariser ce fichier.

Re.
Place ceci dans le module de la feuille en question
Eventuellement adapter la plage

Private Sub Worksheet_Calculate()
[e3] = [SUBTOTAL(103,e6:e5000)]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
If Target.Column = 5 And Target.Row > 5 Then [e3] = [SUBTOTAL(103,e6:e5000)]
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

 

[mapomme]

Bonjour à tous,

Un autre essai qui utilise une fonction personnalisée LigAff(xplage As Range).
Cette fonction renvoie un tableau dont chaque élément i est égal :

• à 1 si la i ème ligne de la xplage est visible
• à 0 si la i ème ligne de la xplage est masquée

Ce tableau est un tableau est en "colonne". xplage doit être une plage de cellules contiguës. Cela fonctionne aussi s'il n'y qu'une cellule dans xplage.

Cette fonction est utilisable dans une expression de type SOMMEPROD ==> voir cellules C3 et E3.

Dans le tableau, les cellules fusionnées ont été "dé-fusionnées". Les cellules vides ont été "re-vidées".
Le filtre a été appliqué sur la zone A5:E30.