XL pour MAC Filtrer par la valeur de la cellule sélectionnée

[pamino]

Bonjour,

J'utilise énormément cette fonction. Sur EXCEL sous WINDOWS, j'ai mis en barre d'outil rapide l'icône FILTRE AUTOMATIQUE puis je me positionne sur la cellule à sélectionner et je clique sur l'icône... trop simple !

Mais sur EXCEL sous MAC OS, pas d'icône identique donc il faut se positionner sur la cellule à sélectionner puis clic droit / menu FILTRER / Filtrer par la valeur de la cellule sélectionnée... un peu fastidieux.

J'ai essayé en mettant un raccourci clavier sur la fonction mais ça ne marche pas. J'ai testé une macro mais ça me sélectionne la cellule sur laquelle j'ai monté la macro et non celle ou je serai la prochaine fois.

Sub Filtrer()
'
' Filtrer Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
Range("C6033").Select
ActiveSheet.Range("$A$7:$P$6054").AutoFilter Field:=3, Criteria1:="Charges" je voudrais que ça soit la position de ma souris dans une cellule
Range("C115").Select
Selection.End(xlDown).Select
End Sub

Ca ne doit pas être très compliqué mais j'ai atteints mes limites !.

ou bien un raccourci clavier qui fonctionne.

Merci pour votre aide...

 

[Hasco]

Bonjour,
Normalement ceci devrait fonctionner. Par ailleurs à moins d'un besoin particulier cette ligne peut être la seule de la macro. Les lignes avec des .Select sont en trop.

ActiveSheet.Range("$A$7:$P$6054").AutoFilter Field:=3, Criteria1:=ActiveCell.Text

cordialement

 

[Staple1600]

Bonjour le fil

Roblochon
Si vous permettez, je m'inscris en False avec votre affirmation!
Cette ligne ne peut être seule
Il y a forcément son ainée : Sub Filtrer()
Et sa cadette: End Sub
Sur ce, je vous souhaite un bon dimanche

 

[BOISGONTIER]

Bonjour,


Exemple avec un filtre élaboré


Boisgontier

 

[Staple1600]

Re, Bonjour JB

Roblochon
Si j'étais moi, j'ajouterais ce petit test, non ?

Sub Filtrer()
If Not ActiveCell.Row = 7 Then
ActiveSheet.Range("$A$7:$P$6054").AutoFilter Field:=3, Criteria1:=ActiveCell.Text
End If
End Sub

 

[Hasco]

Hi @Staple1600 ,

Si vous permettez, je m'inscris en False avec votre affirmation!
Cette ligne ne peut être seule
Il y a forcément son ainée : Sub Filtrer()
Et sa cadette: End Sub
Sur ce, je vous souhaite un bon dimanche

Sans doute les lunettes sont-elles restées sur la table de nuit.
Car "... cette ligne peut être la seule de la macro." ... macro se constituant forcément d'un corps (Sub ...... End Sub )

Si je disais cette personne pourrait être la seule conductrice de la voiture, faudrait-il préciser à chaque fois de quoi est constitué une voiture?

A+++

 

[pamino]

Oui top...
Le SELECT c'était pour aller en bas de la sélection pas pas important.
Encore merci...

 

[BOISGONTIER]

Exemple pour une colonne qq

Sub filtre()
  col = ActiveCell.Column
  If col <= [A1].CurrentRegion.Columns.Count Then
    ActiveSheet.Range("A1").AutoFilter Field:=col, Criteria1:=ActiveCell
  End If
End Sub

Sub tout()
  On Error Resume Next
  ActiveSheet.Range("a1").AutoFilter
End Sub

Boisgontier

 

[Staple1600]

Re

Roblochon
Moi qui voulais prétexter d'une blague pour te saluer, j'ai échoué.
Je m'excuse.

 

[Hasco]

Re, Mon agrafe préférée,

Roblochon
Moi qui voulais prétexter d'une blague pour te saluer, j'ai échoué.
Je m'excuse.

Pas de problème. j'ai été précédemment très échaudé par des commentaires que je ne qualifierai pas ici. C'est à moi de m'excuser de n'avoir pas fait la différence.
A+++

 

[pamino]

Exemple pour une colonne qq

Sub filtre()
  col = ActiveCell.Column
  If col <= [A1].CurrentRegion.Columns.Count Then
    ActiveSheet.Range("A1").AutoFilter Field:=col, Criteria1:=ActiveCell
  End If
End Sub

Sub tout()
  On Error Resume Next
  ActiveSheet.Range("a1").AutoFilter
End Sub

Boisgontier

Bonjour,
J'ai essayé => très bien merci mais j'ai changé
Range("a1").AutoFilter
par
ActiveSheet.ShowAllData
qui efface et non défiltre

MERCI A TOUS

 

[pamino]

Au final, ça donne

'Sub Filtrer()
'
' Filtrer Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
Sub filtre()
col = ActiveCell.Column
If col <= [A1].CurrentRegion.Columns.Count Then
ActiveSheet.Range("A1").AutoFilter Field:=col, Criteria1:=ActiveCell
End If
End Sub
Sub tout()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

 

[pamino]

Bon ben en fait j'ai fait le malin mais ça ne fonctionne que si je reste sur la même colonne et par n'importe où (voir fichier joint)
Merci pour la correction...

 

[Hasco]

Bonjour,

@BOISGONTIER vous avait donné un code parfaitement opérationnel, il n'est même pas dans votre classeur.

Dans le fichier joint, la même chose formulée autrement.
Pour que cela fonction avec les dates, il faut rajouter .Text à ActiveCell comme valeur de filtre.

Bon 11 novembre.

 

[pamino]

Bonjour,

BOISGONTIER avait envoyé deux post donc il se peut que je n'ai pas mis le bon mais le fichier que vous m'avez renvoyé ne fonctionne pas car erreur à l'ouverture !

ALERTE
Désolé... Nous avons trouvé un problème dans le contenu de « test macro filtrage-3.xlsm », mais nous pouvons essayer de récupérer le maximum de contenu. Si la source de ce classeur est fiable, cliquez sur Oui.

Pouvez-vous simplement copier le texte dans le post

Merci.