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

Copie resultat listbox multicritere sur une autre feuille

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

AreYouBush

Guest
Bonsoir le forum,

Encore une question a 100 balles 🙂

Je test actuellement divers code pour faire un semblant de requête avec un usf.
Quand une listbox est alimenté a l'identique de la Bdd j’arrive a exporter le résultat correctement.
Mais quand je rajoute des critère pour réduire ma liste, l'exportation ne se passe plus très bien (il n'exporte pas les bonne ligne de la Bdd).
Je suppose qu'il existe une méthode adéquate, mais malheureusement j'ai beau chercher je trouve pas.

Et comme je ne suis pas très doué j'ai encore besoin de votre aide.

Je joins un fichier test (le multicritère est de CBEA).

Je suis aussi preneur pour exportation directement dans un autre classeur 🙂

Merci
Biz
 

Pièces jointes

Re : Copie resultat listbox multicritere sur une autre feuille

Bonjour.
Vous initialisez votre li() avec la mauvaise information (le n° de ligne dans la liste, qui ne coïncide avec le numéro de ligne source que si la liste est complète)
Puisque dans Rechercher vous incrivez le bon numéro de ligne dans la liste en faisant .List(.ListCount - 1, 7) = lgLigDeb
Essayez en remplacant la ligne ci dessous en commentaire par la suivante :
VB:
'        li(l) = x + 3 'définit une variable indexée (correspond au numéro de ligne de l'élément dans l'onglet "Bdd")
        li(l) = ListBoxLocataire.List(x, 7) 'définit une variable indexée (correspond au numéro de ligne de l'élément dans l'onglet "Bdd")
En dehors de cela, laissez moi vous donner un petit truc: faites commencer, dans les déclarations vos noms de variables par une majuscule. Continuez de les tapez en minuscules dans les instructions, si VBA ne corrige pas la casse c'est que vous vous êtes trompé dans le nom ou que la variable n'est pas encore déclarée. Pratique, non ?
À +
 
Re : Copie resultat listbox multicritere sur une autre feuille

bonjour areyoubush,dranreb
changer code commandbutton pour feuille requête
CBEA pas trouvé,pas compris
nous dire quels sont les critères intéressant
à bientôt
 

Pièces jointes

Re : Copie resultat listbox multicritere sur une autre feuille

Bonjour Dranreb et Bebere,

Merci cela fonctionne pour les 2, j'ai juste fais une ptite modif chez Bebere car des que je m'etais un critere il me prenais pas la premiere ligne. J'ai changé le For x = 1 To Me.ListBoxLocataire.ListCount - 1 en For x = 0 To Me.ListBoxLocataire.ListCount - 1

Merci pour le conseil des majuscules, mais je fais souvent du copier\coller et de la bidouille de code trouvé sur le forum alors ce n’est pas toujours propre.

Désolé Bebere, c'est vrai que le fichier n'est pas très clair. Mais malgré que tu n'ai pas compris, tu a répondu a mes attentes.
C'est quand même hallucinant comment tu as condensé le code en quelque ligne. et merci pour le UsedRange.Clear, très utile.

Je joins de nouveau le fichier avec les modifs, ca peux toujours aider quelqu'un.
Si vous voyez autre chose qui vous choc ou à améliorer n'hésitez pas.

Bisous
 

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