XL 2019 la méthode AutoFilter de la classe range a échoué

[Afro]

Bonjour Tout le monde,

je revient vers vous pour un code que j'utilise souvent dans mes applications, et je précise que ce bout de code fonctionner normalement et j'arrive pas à détecter le souci donc voici le bout de code en question :

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'ActiveSheet.Unprotect
Dim PremiereCellule As Range
Set PremiereCellule = ActiveCell.CurrentRegion.Cells(1)
Dim colonne As Integer
colonne = ActiveCell.Column - PremiereCellule.Column + 1
Dim Filtre As String
Filtre = InputBox("Texte à filtrer :", "FILTRE", ActiveCell)
PremiereCellule.AutoFilter
PremiereCellule.AutoFilter Field:=colonne, Criteria1:="*" & Filtre & "*"
'ActiveSheet.Protect
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

c'est pour filtrer un tableau d'après la cellule sélectionner.
Merci d'avance .

 

[Phil69970]

Bonjour @Afro

Juste ce bout code sortie de tout contexte c'est un peu light non ??

Une piste ta souris est en dehors de la zone de CurrentRegion

Set PremiereCellule = ActiveCell.CurrentRegion.Cells(1)

Exemple

Merci de ton retour

 

[Afro]

Bonjour @Afro

Juste ce bout code sortie de tout contexte c'est un peu light non ??

Une piste ta souris est en dehors de la zone de CurrentRegion



Exemple
Regarde la pièce jointe 1202055


Merci de ton retour

merci pour ta réflexion Phil, mais non c'est pas sa le probléme vue que je selectionne l'élément à l'interieur du tableau

 

[Phil69970]

@Afro

Juste ce bout code sortie de tout contexte c'est un peu light non ??

J'ai pas vu ton fichier pour tester !!!

 

[Afro]

@Afro


J'ai pas vu ton fichier pour tester !!!

Voici le fichier.

 

[Phil69970]

Re

@Afro

Je te propose ce fichier

Merci de ton retour