activation filtre automatique

[Yldie]

Chers XlDnautes,

Je vous joins mon pb et espère que vous aurez une réponse efficace....je n'en doute pas. Encore merci au forum, à ses passionnés.

YLDIE🙂

 

[kjin]

Re : activation filtre automatique

Bonjour,
Essaie plutôt le filtre élaboré
Par contre la colonne moyenne ??
A+
kjin

 

[job75]

Re : activation filtre automatique

Bonjour Yldie, le forum,

Cette macro dans le code de la 1ère feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3]) Is Nothing Then Exit Sub
With Feuil2 'CodeName de la feuille "saisie", c'est mieux
  .AutoFilterMode = False
  If [B3] <> "" Then .Range("3:" & .[A65536].End(xlUp).Row).AutoFilter Field:=1, Criteria1:=[B3]
  Feuil3.Rows("3:65536").ClearContents
  [COLOR="Red"]If .AutoFilterMode Then .AutoFilter.Range.SpecialCells(xlVisible).Copy Feuil3.[A3][/COLOR]
End With
End Sub

Mais je n'ai pas bien compris :

- le pourquoi de la feuille "impression" puisqu'on peut imprimer directement la feuille "saisie"

- la raison de la colonne F "moyenne" que vous aviez mis en feuille "impression".

S'il s'agit de calculer la moyenne de la colonne E vous pouvez entrer en D1 les formules adéquates...

Edit 1 : salut kjin, pas rafraîchi

Edit 2 : au lieu de la ligne en rouge, on peut préférer :

Intersect(.UsedRange, .Rows("3:65536").SpecialCells(xlVisible)).Copy Feuil3.[A3]

A+

 

[Yldie]

Re : activation filtre automatique

Bonsoir et merci Kjin, Job75,

Vos réponses, c'est sûr, vont bien m'aider à progresser, en ce qui concerne vos questions, il s'agit d'un exemple qui reprend "très succinctement" mon classeur qui, lui, contient vraiment énormément de données (beaucoup de colonnes et lignes d'où le filtre automatique), l'onglet impression existe parce que non seulement il reprend la sélection de la saisie mais englobe également un graphique....bref, ce n'est là qu'une partie de l'iceberg qui, visuellement, prend de la place, encore merci pour vos réponses.

YLDIE