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

  • Initiateur de la discussion Initiateur de la discussion Afro
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Afro

XLDnaute Nouveau
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 .
 
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
20240819_134434.gif



Merci de ton retour
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
464
Retour