Filtre sous vba. Les mystères d'Excel.

[13GIBE59]

Bonjour le forum, bonjour à toutes et à tous.

Aujourd’hui, mon problème est relatif à un mystère de plus d’Excel, car mon fichier marche très bien mais seulement sous certaines conditions.
Je vais essayer d’être concis, et je m’excuse par avance si mon message paraît un peu long.

Le fichier joint comporte un tableau s’étendant de A1 à C17. La macro du bouton OK filtre les colonnes A et B selon certains critères de choix et inscrit en C18 :
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Application.Subtotal(9, ActiveSheet.AutoFilter.Range.Columns(3))
la somme correspondant aux filtres.
La commande « Annuler » ou « Fermer » efface -entre autres- le contenu de C18
Range("C18").Select
Selection.ClearContents
pour pouvoir ré-inscrire en C18 le résultat d’un nouveau filtre.
Or, c’est là que le bât blesse : en effet, un autre filtre demandé après « remise à zéro » (« Annuler ») fonctionne bien dans son calcul (le résultat est inscrit en C18) mais la ligne 18 est masquée. Seules apparaissent les lignes à partir de la ligne 19.

Cette anomalie disparaît si entre deux calculs de filtres on supprime les cellules A18 :C18 ou la ligne 18 entière (et non pas le contenu). Une telle action est facile à transcrire en vba. Je ne l’ai pas -encore- fait car j’aime comprendre les choses.

En fait, Excel agit, après suppression du contenu de A18 :C18 comme si ces cellules « contenaient » encore une valeur et les masque en cas de nouveau filtre.

Cette anomalie est-elle explicable par les plus calés d’entre vous ?

Merci d’avance pour votre attention.

 

[Modeste]

Re : Filtre sous vba. Les mystères d'Excel.

Bonsoir 13GIBE59

J'ai toujours un doute avant de répondre à un message où je lis:

Cette anomalie est-elle explicable par les plus calés d’entre vous ?

... ça donne l'impression que je me considère comme "un de ceux-là" ce qui est fort loin d'être le cas !
Bref, deux choses: la première est que je ne suis pas certain de rencontrer le même problème sous Xl 2000. La seconde est que j'aurais tendance à "décoller" le sous-total de la liste de données avec, par exemple:

Range("C65536").End(xlUp).Offset(4, 1).Select

Mais, bon ... ce que j'en dis ...

Modeste

 

[13GIBE59]

Re : Filtre sous vba. Les mystères d'Excel.

Bonsoir Modeste.

Je te remercie de ta réponse. Bien sûr je peux "placer" ma réponse sous-total ailleurs dans la feuille, d'ailleurs je l'ai intégrée dans le userform.

Mais j'aurais aimé comprendre le pourquoi du comment de cette fichue anomalie !

Qui saura ?

 

[13GIBE59]

Re : Filtre sous vba. Les mystères d'Excel.

Snif...

Personne ne s'intéresse à mon problème. Je me doutais que mon message était un peu long... Mais difficile de faire autrement.

Tant pis. J'ai la solution, mais pas l'explication du comportement dExcel.