Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Pb macro Advancedfilter

  • Initiateur de la discussion Initiateur de la discussion aborsell
  • 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 !

A

aborsell

Guest
Bonjour à tous,

J'ai un soucis avec une macro qui ne fonctionne pas en mode "partage de classeur" (elle fonctionne très bien en mode normal !!!)

voici le code :

Code:
Sub Cherche()
    Application.ScreenUpdating = False

    Range("base").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("b4:m5"), Unique:=False

    Range("base!A7").EntireRow.Hidden = True    
End Sub

J'obtiens l'erreur :
"Erreur 1004 :
La méthode AdvancedFilter de la classe Range a échoué"


Quelqu'un aurait-il un idée ??

D'avance merci beaucoup

Adrien
 
Re : Pb macro Advancedfilter

Bonjour,

Le Filtre élaboré (sans macro) n'est pas accessible en mode Classeur paratagé.
Donc c'est normal.

En revanche, tu peux utiliser les filtres automatiques
 
Re : Pb macro Advancedfilter

Bonjour Catrice, merci pour ta réponse rapide,

Je ne suis pas expert en filtres peux-tu m'expliquer un peu s'il te plait :

Voilà ma base de données avec le filtre actuel
> Le filtre est situé sur la ligne jaune : on doit pouvoir multiplier les critères (date + chantier ou chantier + matériel, ....)

Si tu peux jeter un oeil et me mettre sur la voie , s'il te plait ...

Un grand merci à toi !!
Adrien
 

Pièces jointes

Re : Pb macro Advancedfilter

Re,

Personnellement, je ne me casserais pas la tete à developper en Vba.
Les filtres fonctionnent en classeur partagé et font ce que tu souhaites faire.

Voir le fichier joint

Pour coder en filtre automatique, voici un exemple :

Sub Cherche()
Range("B7:" & Range("B65536").End(xlUp).Address).Resize(, 12).AutoFilter Field:=3, Criteria1:=Range("D5")
End Sub
 

Pièces jointes

Dernière édition:
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
834
K
Réponses
3
Affichages
930
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…