J'aimerais déplacé ma macro de la feuille 1 à la feuille 2. Mais je n'arrive pas à le faire, ça ne fonctionne pas comme je le voudrais.
Ma barre de recherche est dans la feuille 1, elle cherche dans le tableau feuille 1 et affiche les résultats dans le tableau de résultat de la feuille 1. Mais je ne veux pas que les utilisateurs aient accès à la feuille 1, donc je voudrais qu'ils tapent leur recherche dans la feuille 2 et qu'elle s'affiche sous forme de tableau dans la feuille 2.
Et ce pour éviter qu'ils voient l'anarchie présent en feuille 1
de quoi parles tu ?
Le "nom de feuille" de ton onglet "Feuil1" est "Feuil2"
et celui de "Feuil2" est "Feuil1" !
Pourrais-tu renommer tes onglets defaçon plus "parlante" et remettre un exemple en fichier joint (en utilisant "Mode avancé" de ce forum) plutôt qu'un cjoint ?
Bonjour,
J'essaye d'être plus clair :
J'ai fait une sorte de "bêta" de mon outil afin de tester mon système de recherche pour voir s'il fonctionnait comme je le voulais.
C'est le cas, désormais je veux le déplacer dans la feuille "Zone de recherche", pour ne pas que l'utilisateur ait accès à la feuille "liste de documents".
J'espère avoir été plus clair, malheureusement pour la PJ elle est trop lourde...
Plusieurs choses à faire pour que cela fonctionne :
1/ mettre la fonction public sansaccent() dans un module
2/ copier le code de la feuil1 dans la feuil2 en ayant bien ajouté Worksheets("Liste de documents"). à toutes les plages de cellules
PS: je suis surpris que ton fichier avec si peu de données soit si imposant.
Plusieurs choses à faire pour que cela fonctionne :
1/ mettre la fonction public sansaccent() dans un module
2/ copier le code de la feuil1 dans la feuil2 en ayant bien ajouté Worksheets("Liste de documents"). à toutes les plages de cellules
PS: je suis surpris que ton fichier avec si peu de données soit si imposant.
Tu fais bien de me le dire, ca me paraissait bizarre aussi, je l'ai refais et ajouté ton point 2. Mais le point 1 je n'ai pas réussi...
Je le remet en PJ !
Juste 2 choses
- Ça fonctionne pour TOUT (je pense) sauf quand je tape "appareil d'appui" ou même "app.." dans la barre de recherche, c'est étrange.. Est ce que vous avez une idée de pourquoi ?
-Ensuite, j'aurai voulu que les résultats s'affichent dans le tableau de la feuille "zone de recherche", étant donné que les utilisateurs n'auront pas accès à la feuille "liste de documents". Est ce que c'est faisable ? Il faut que chacune des colonnes de mon tableau soit en 'Listbox' j'imagine...
Je ne comprends pas pourquoi ça ne marche pas chez toi avec "app", car je n'ai pas le même problème, comme tu dis, c'est étrange.
Pour l'autre partie de ta demande, il y a plein de solutions possibles, l'une d'entre elles :
Ajoute le code suivant après ListBox1.AddItem Worksheets("Liste de documents").Cells(ligne, 18).
Code:
Worksheets("Zone de recherche").Cells(28 + j, 16) = Worksheets("Liste de documents").Cells(ligne, 18)
Worksheets("Zone de recherche").Cells(28 + j, 19).Formula = "=HYPERLINK('Liste de documents'!" & Worksheets("Liste de documents").Cells(ligne, 22).Address & ")"
j = j + 1
Il faut aussi mettre j = 0 après la déclaration des variables.
Je n'ai rempli que 2 cases, à toi d'adapter pour remplir les autres cases.
Il faudrait sans doute rajouter un Range().clearcontents afin d'effacer les cellules à chaque saisie.
Je ne comprends pas pourquoi ça ne marche pas chez toi avec "app", car je n'ai pas le même problème, comme tu dis, c'est étrange.
Pour l'autre partie de ta demande, il y a plein de solutions possibles, l'une d'entre elles :
Ajoute le code suivant après ListBox1.AddItem Worksheets("Liste de documents").Cells(ligne, 18).
Code:
Worksheets("Zone de recherche").Cells(28 + j, 16) = Worksheets("Liste de documents").Cells(ligne, 18)
Worksheets("Zone de recherche").Cells(28 + j, 19).Formula = "=HYPERLINK('Liste de documents'!" & Worksheets("Liste de documents").Cells(ligne, 22).Address & ")"
j = j + 1
Il faut aussi mettre j = 0 après la déclaration des variables.
Je n'ai rempli que 2 cases, à toi d'adapter pour remplir les autres cases.
Il faudrait sans doute rajouter un Range().clearcontents afin d'effacer les cellules à chaque saisie.