Rechercher/filtrer le texte copier - Macro

Bonjour à tous,

Je cherche à définir une macro me permettant:

1) De copier le texte de la cellule actuellement sélectionnée.

2) Via le filtre de la colonne, rechercher toutes les autres cellules contenant le même texte que la cellule sélectionnée.

3) Mettre en couleur (orange) toutes ces cases étant identiques.

J'ai essayé de définir cette macro par enregistrement, cependant, j'ai un soucis: le texte collé dans l'outil de recherche du filtre, est celui que j'ai copié lors de la définition de ma macro... Voici mon code pour comprendre.

Sub Orange()
'
' Orange Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+O
'
    ActiveCell.Select
    Selection.Copy
    ActiveSheet.Range("$A$3:$R$600").AutoFilter Field:=11, Criteria1:= _
        "=Texte copié lors de la création de ma macro par enregistrement", _
        Operator:=xlAnd
    ActiveCell.Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    ActiveSheet.Range("$A$3:$R$600").AutoFilter Field:=11
End Sub

Comme solution j'avais pensé à stocker le texte copié dans une variable intermédiaire et de porter la recherche sur le contenu de cette variable. Ce qui permet donc d'adapter la filtration à la case sélectionnée. En espérant être toujours claire :p

Le problème est que je suis actuellement un novice de chez novice en VBA donc je en sais pas trop m'en sortir seul pour le moment.

Merci d'avance pour votre aide !

Bonjour,

Essaie comme cela

Sub Orange()
'
' Orange Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+O
'
    Application.ScreenUpdating = False
    Range("$A$3:$R$600").AutoFilter Field:=11, Criteria1:=ActiveCell.Value, Operator:=xlAnd
    Range("$K$4:$K$600").SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 46
    Range("$A$3:$R$600").AutoFilter
End Sub

A+

Bonjour,

Merci pour ta réponse rapide. Cependant, cela ne fonctionne pas ... Ou bien je ne l'utilise pas correctement.

Quand j'entre le raccourci clavier, il y a comme un petit sursaut de la page mais rien ne se passe ... Quid ?

Merci

La valeur du critère du filtre est donné par la cellule active.

La plage sur laquelle s'applique le filtre est A3:R600.

Le filtre est appliqué sur la colonne K.

Il suffit donc que tu sélectionnes la cellule qui contient la valeur à filtrer et que tu lances la macro avec Ctrl+Maj+O.

Sinon, fais passer un fichier exemple.

A+