Traduction de fonction en vba

Version imprimable

12/06/2013, 16h54
emmanuel49

1 pièce(s) jointe(s)

Traduction de fonction en vba

Bonjour à tous,

je me doute que de nombreux post concernent ce genre de requête, mais je perd mon latin à essayer de comprendre. J'ai donc décidé de venir vous demander de l'aide.

Le contexte : je suis correspondant informatique et liberté et j'ai pris en charge la création du registre.:cry: Ce n'est pas du tout mon boulot (tu m'étonnes). J'ai réussi a créer un formulaire qui me permet de créer les fiches. Maintenant j'en suis à l'étape ou je dois créer un formulaire pour la consultation des fiches qui composent le registre.

J'utilise dans un autre classeur (qui n'a rien à voir avec le premier) une fonction qui me permet de rechercher dans un tableau une date par rapport à cette date et des index, je peux sélectionner les informations que je veux afficher.

C'est tout pour le contexte.

Maintenant les outils.

La fonction est celle-ci :

Code:

=EQUIV(RECHERCHEV($C$3;Tableau;RESUME!$A$3);DONNEES!$A$2:$A$23;0)

Je la trouve géniale, parce que je la comprends et aussi parce qu'elle fonctionne :lol:

Mon formulaire comporte des listbox, textbox, combobox et checkbox. je n'ai pas mis de freebox car je n'ai pas trouvé l'outil adéquat.

Mon besoin : il faudrait que je puisse rechercher mes fiches, par leur numéro, leur date de création, la date de mise en place ou la finalité du traitement.

Le résultat que je souhaite : en choisissant l'un de ces critère, une msgbox (tient, je l'avais oublié celle-là) qui me donne toutes les occurrences trouvées suivant le critère de recherche, et en cliquant sur celle qui m'intéresse la fiche concernées s'ouvre devant mes yeux ébahi et embrumé par l'émotion de voir tout ce travail donner ces fruits.

Il ne me reste plus qu'a demander votre indulgence, de ne pas trop vous moquer du code dans l'état ou il est (c'est ma première fois et on sait tous que la première fois c'est dur), et à coller mon classeur (allégé) avec la table, les userforms, et tout ce qu'il faut pour que des codeurs fous viennent à mon secours en dégustant un bon Armagnac.

Je vous remercie d'avance de toute l'aide que vous pourrez m'apporter. Moi, pendant ce temps je vais chez brico-dépôt pour m'acheter une corde et attacher mes testicules au parechoc d'un 38 tonnes lancé à vive allure sur des troncs d'arbres hérissés de clou de 25 cm.
12/06/2013, 17h42
casefayere

Bonsoir,

Merci, à ta lecture j'ai ri et ça fait du bien mais quand je lis :

Citation:

Le résultat que je souhaite : en choisissant l'un de ces critère, une msgbox (tient, je l'avais oublié celle-là) qui me donne toutes les occurrences trouvées suivant le critère de recherche, et en cliquant sur celle qui m'intéresse la fiche concernées s'ouvre devant mes yeux ébahi et embrumé par l'émotion de voir tout ce travail donner ces fruits.

Il ne me reste plus qu'a demander votre indulgence, de ne pas trop vous moquer du code dans l'état ou il est (c'est ma première fois et on sait tous que la première fois c'est dur), et à coller mon classeur (allégé) avec la table, les userforms, et tout ce qu'il faut pour que des codeurs fous viennent à mon secours en dégustant un bon Armagnac.

Tu n'aurais pas oublié quelque chose ?
13/06/2013, 09h18
emmanuel49

Merci, à ta lecture j'ai ri et ça fait du bien mais quand je lis :

Citation:

Envoyé par casefayere

Bonsoir,

Tu n'aurais pas oublié quelque chose ?

Ah, je vois ce que tu veux dire...l'enclume que je suis n'avais pas vu le petit message lors du téléchargement de la pièce jointe que mon fichier n'était pas valide:calim2:. J'ai donc uploader de nouveau le fichier dans un format compatible. Je tiens aussi à vous faire part de mon retour d'expérience. Les clous...c'est pas une bonne idée :aie:
13/06/2013, 09h49
casefayere

Bonjour,

Citation:

Mon formulaire comporte des listbox, textbox, combobox et checkbox. je n'ai pas mis de freebox car je n'ai pas trouvé l'outil adéquat.

le fichier que tu as envoyé ne comporte rien de tout ça, pas même un USF, n'y aurait'il pas erreur de fichier ?
13/06/2013, 09h59
emmanuel49

si bien sûr

Bonjour,

merci déjà de vous intéresser à mon cas. Effectivement je n'ai pas envoyé le bon fichier.:oops:

Je pense que cette fois le boulet que je suis n'aura pas fait d'autres erreurs.

Re bonjour à tous,

je peux vous annoncer que je me suis dépanner!!! J'ai trouvé une solution qui me convient. voici ce que j'ai fais :
Code:

1 2 3 4 5 6 Private Sub ComboBox1_Change() TextBox87.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("TABLE_COMPLETE"), 2, False) TextBox89.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("TABLE_COMPLETE"), 3, False) TextBox90.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("TABLE_COMPLETE"), 4, False) End Sub
J'espère que j'ai bien mis le code comme il le faut. Je peux aussi donner une autre astuce concernant le format de textbox. Deux des textbox que j'utilise pour afficher les résultats doivent remonter des dates, j'ai donc du ajouter le code suivant dans le code même de la textbox le code suivant :
Code:

1 2 3 Private Sub TextBox87_Change() TextBox89.Value = Format(TextBox89.Value, "dd/mm/yyyy") End Sub
Merci pour ce premier contact. Je vais donc maintenant pisser du code avec ce qu'il me reste de partie génitale non endommagées, et je garde le contact avec le site. Merci encore pour votre accueil.