Je souhaite créer une recherche simple via UserForm.
Pour cela j'ai crée une zone de saisie et un bouton pour lancer la recherche.
En dessous, j'ai crée une zone de texte pour afficher le résultat de la recherche.
L'idée est que lorsque l'on saisi le nom d'un Cluster se situant en colonne B, le résultat me renvoi la valeur du port correspondant à la même ligne que le Cluster saisi en colonne E.
Seulement je ne parviens par à réaliser cela.
Je souhaite également créer un bouton RAZ qui efface la saisie, et un bouton qui permet de quitter la fenêtre (mais là je pense que je m'en sortirai).
Vous avez pour un meme cluster x lignes, comment allez vous savoir lequel vous voulez pour une recherche ????
Il servait plus "simple" de créer une liste des ports affectes a ce cluster.
A vous de voir car nous ne savons pas ce que vous voulez en faire......
Non du tout, il n'y a qu'une ligne par cluster (Attention il s'agit de la colonne "B" dans le fichier).
Dans ma zone de recherche je rentre le nom du cluster, par exemple EQX_PRD_BPACA_C1_M9 et en lançant la recherche, il doit donc m'afficher le port 9821
Ce matin j'ai recupere le fichier sur un MAC, pas de probleme code VBA userform
J'ai recupere le meme fichier sur un PC et Memoire insuffisante erreur irremediable!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
C'est très curieux mais ça peut arriver sur certains fichier Excel avec macros.
Recherchez Excel.xlb et supprimez-le puis relancez Excel, ça devrait fonctionner.
Une autre facon de voir la recherche: https://mon-partage.fr/f/LGK5BRFJ/
Plutot que de saisir le nom de Cluster, une listbox avec les fins de nom Cluster(Mx) et une listbox avec les noms Clusters et leur port fonction choix Mx
A vous de voir
Merci pour cette proposition mais ça ne conviendra pas.
En effet, il y a énormément de clusteurs différents (environ 250) donc une liste déroulante rendrait fastidieux la recherche.
De plus, le cluster est fourni au préalable par un autre logiciel (je ne vous avez pas donné tous les tenants et aboutissants), donc il est plus simple, une fois fourni, de le copier/coller dans la zone de recherche.
Néanmoins cela reste une bonne idée pour des projets plus adaptés, merci.
donc une liste déroulante rendrait fastidieux Vous avez au moins essayez le fichier que je vous ai mi a dispo car il y a bien vos 250 clusters et vous verrez que ca va pas si mal que ca par rapport aux erreurs de saisie et j'en passe
Non il ne devrait pas y avoir d'erreur de saisie sur un copié/collé.
Une liste déroulante de 250 éléments ne facilite pas une recherche, autant que je fasse un Ctrl+F sur ma feuille je perdrai moins de temps.
Le nom du cluster est fourni donc pas besoin de le rechercher dans une liste mais simplement de le saisir dans une zone de texte pour rechercher le port associé, c'est vraiment ce que je souhaite faire.
Désolé de répondre aussi tard.
Merci pour votre fichier.
En revanche, si je saisi dans la zone de recherche, j'obtiens une erreur sur la ligne en gras ci-dessous.
Private Sub TextBox1_Change()
If TextBox1 <> "" Then
With Worksheets("Ports RMI")
lig = .Columns(2).Find(TextBox1, .Cells(1, 2), , xlWhole).Row TextBox2 = .Cells(lig, 2).Offset(, 3)
End With
End If
End Sub
Dans certain cas particulier, j'aimerais qu'il soit possible de saisir aussi le texte et de valider par le bouton "Rechercher".
Pensez-vous que ce soit possible ?
L'erreur est normale puisque vous deviez faire que du collage de nom........
Il est possible avec le code actuel de n'avoir le résultat de la recherche que lorsque le nom cluster est existant, meme en cour de saisie. Je vous fais ca.
Désolé de vous répondre que maintenant.
J'ai vu votre fichier c'est parfait.
J'ai vu que vous aviez retirer le bouton "rechercher" ? C'est vrai qu'il ne servait pas en grand chose.
Ben non, a ma grande surprise j'ai constate ,en recuperent le fichier que j'avais mis a dispo post 13, qu'il y avait une image de fond!!!!
Sur le dernier il manquait le code du bouton!!!
fichier normalement bon...
https://mon-partage.fr/f/ZDirC3YN/
C'est plus pour mon bénéfice personnel.
Je souhaiterais que l'on puisse saisir dans la textbox1 et que le résultat se trouvant dans la textbox2 ne s'affiche qu'une fois la recherche lancée par le bouton.
Je vous lais également caché la feuille via code directement mais j'ai lu que c'était risqué de le faire.
Deux UF et feuille Ports masquee: https://mon-partage.fr/f/0LRGg2EL/
Module1: procedure pour afficher feuille Ports
Il faudra penser a mettre un mot de passe pour proteger le code VBA afin d'eviter l'affichage de la dite feuille a l'unsi de votre plein gre
- Messages postés
-
31
- Date d'inscription
- mercredi 11 juin 2014
- Statut
- Membre
- Dernière intervention
- 5 octobre 2018
22Non du tout, il n'y a qu'une ligne par cluster (Attention il s'agit de la colonne "B" dans le fichier).
Dans ma zone de recherche je rentre le nom du cluster, par exemple EQX_PRD_BPACA_C1_M9 et en lançant la recherche, il doit donc m'afficher le port 9821
Ne prêtez pas attention à la colonne "C".
Merci.
- Messages postés
-
15612
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 26 février 2021
1 460Ai mal vu ce matin...
Ok, je regarde la chose
Ce matin j'ai recupere le fichier sur un MAC, pas de probleme code VBA userform
J'ai recupere le meme fichier sur un PC et Memoire insuffisante erreur irremediable!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- Messages postés
-
31
- Date d'inscription
- mercredi 11 juin 2014
- Statut
- Membre
- Dernière intervention
- 5 octobre 2018
22Recherchez Excel.xlb et supprimez-le puis relancez Excel, ça devrait fonctionner.
Tenez-moi informé, merci.