Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion TKF_Patrick
  • 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 !

T

TKF_Patrick

Guest
Bonjour,


j'avait travaillé sur un programme de filtrage et de recherche, avec un macro, Le but de ma macro est de pouvoir, à partir d'une base de donnée, filtrer sur des critères et obtenir le résultat de ce filtre , je vous joints mon fichier, je vous serai très connaissant de bien vouloir à me déceler l'erreur que je ne trouve pas

très cordialement,
 

Pièces jointes

Bonjour,

la première erreur rencontrée provient d'une mauvaise coupure de ligne de code:
Sheets("BDD").Range("A1:I13").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Resultat") - .Range( _
"b2:I3"), CopyToRange:=Range("A7"), Unique:=False


Comme ceci:
VB:
    Sheets("BDD").Range("A1:I13").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Resultat").Range( _
        "b2:I3"), CopyToRange:=Range("A7"), Unique:=False

c'est mieux, mais il y a encore une erreur, puisque les feuilles BDD et Resultat n'existent pas dans le classeur joint.

A+
 
bonjour;

merci de me répondre, je vous joints là le fichier qui fonctionne bien, pour que vous puissiez me comprendre mieux, parceque peut etre j'avait mal expliqué, en faites moi je veux juste inverser les tableu qui dedans de ce fichier.

cordialement;
 

Pièces jointes

Si ce n'était pas cette erreur, merci de signaler le message d'erreur et la ligne en erreur !

le message, c'est toujours "la normes n'existe pas" même quand je mets des valeurs excisent.

moi j'ai modifié le fichier qui bien fonctionne par cette façon (fichier joints) en faites moi j'ai juste changé la position de tableau, donc dans le programme j'ai modifie que les numérotations des ligne.

merci.
 

Pièces jointes

- 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
5
Affichages
492
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…