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

Hasco

XLDnaute Barbatruc

Repose en paix

• 27 Octobre 2019

• #2

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.

VB:

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

Code:

cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #3

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
😉

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Octobre 2019

• #4

Bonjour,


Exemple avec un filtre élaboré


Boisgontier

 

Pièces jointes

• Copie de FiltreElaboreExtraitMacro3.xls

  43 KB · Affichages: 6

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #5

Re, Bonjour JB

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

VB:

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

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 27 Octobre 2019

• #6

Hi @Staple1600 ,

Staple1600 à dit:

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

Cliquez pour agrandir...

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+++ 🙂

 

Vote positif 0 Vote négatif

P

pamino

XLDnaute Nouveau

• 27 Octobre 2019

• #7

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Octobre 2019

• #8

Exemple pour une colonne qq

VB:

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

 

Pièces jointes

• FiltreAutoExtrait.xls

  41 KB · Affichages: 9

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #9

Re

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

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 27 Octobre 2019

• #10

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

Staple1600 à dit:

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

Cliquez pour agrandir...

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+++

 

Vote positif 0 Vote négatif

P

pamino

XLDnaute Nouveau

• 11 Novembre 2019

• #11

BOISGONTIER à dit:

Exemple pour une colonne qq

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

P

pamino

XLDnaute Nouveau

• 11 Novembre 2019

• #12

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

 

Vote positif 0 Vote négatif

P

pamino

XLDnaute Nouveau

• 11 Novembre 2019

• #13

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...

 

Pièces jointes

• test macro filtrage.xlsm

  21.9 KB · Affichages: 2

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Novembre 2019

• #14

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.

 

Pièces jointes

• test macro filtrage.xlsm

  23.1 KB · Affichages: 9

Vote positif 0 Vote négatif

P

pamino

XLDnaute Nouveau

• 11 Novembre 2019

• #15

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.

 

Vote positif 0 Vote négatif