Rechercher dans Excel

Question

Voilà je m'appelle ludovic, je vis en suisse et j'aime la moto. il y a quelques années j'ai commencé une fomation d'informaticien mais malheureusement, cela ne s'est pas passé comme prévu. Voilà une petite présentation de moi ! Et aujourd'hui je me retrouve sur ce forum car j'ai un petit problème de mémoire. je suis sur le point de faire une petite base de données avec Xls pour un petit magasin. Pour tout vous dire, nous avions une base de donnée ou nous y avions inseré tout les articles avec nom, informations general, création d'un code-bar, lieu de stockage...Et voilà, cette BDD a rendu l'âme la semaine passé. Nous avons juste pu faire une sauvegarde au format Xls avec nom, n° d'article, fournisseur, lieu de stockage, quantité et lien internet, etc... Mon projet est donc de faire un genre "d'interface" de recherche pour que mes collègues se repèrent plus facilement et ne suppriment pas tout. P. exemple une liste défilante avec le choix de la colonne que "où voulon nous chercher" (Nom;n°Art.;Supplier;...) une place pour écrire la recherche et en dessous le résultat ou l'on pourra modifier JUSTE la bonne ligne. Mais comme je vous l'ai dis...j'ai quelques peines a me souvenir des bases de Excel. ALORS PLEASE EXCEL-PRATIQUE, PIMP MY BDD ...

cousinhub · Accepted Answer

Regarde le fichier joint, tu as un peu de tout ce qui peut se faire, avec un userform ListView Combobox sans doublons Option Buttons associés à un module de classe (ceci afin d'éviter une foultitude de codes) Un double-clic sur un élément de la ListView te donne le numéro de la ligne concernée (restera à faire une autre interface, afin de modifier les données....) Pour choisir ton élément de recherche, sélectionne une des options, puis ton choix dans la combobox... Si cela t'intéresse, bien évidemment... @ te relire...

jmd · Answer

Joins ton fichier (allégé)...

cousinhub · Answer

Et ben, allons au pire... Dans ton fichier initial, tu ne gardes qu'une vingtaine de lignes, tu remplaces les noms par des noms lambda, les valeurs par d'autres, les numéros de téléphone par 00 00 00 00 00, ainsi de suite N'oublie pas de mettre ton userform on regardera pour le code...

Amadéus · Answer

Re bonjour Faute d'exemple, une méthode de recherche si plusieurs articles correspondent au N°cherché Cordialement...

cousinhub · Answer

Re-, dans ton exemple, sur quelle colonne veux-tu faire la recherche, et en fonction du choix, que veux-tu renvoyer dans l'userform (quelle colonne)? @ te relire...

cousinhub · Answer

Re-,

OK, mais quelles valeurs met-on dans le combobox?

Je ne comprends pas trop ta recherche....

Si on charge les valeurs de la colonne C, par exemple, dans le combobox, quelle valeur de quelle colonne tu désires?

Pour moi, tes explications ne sont pas assez claires...

cousinhub · Answer

Re-, Lorsque tu es sur l'userform "SearchDialog", fais un double clic sur la ListView tu tombes alors sur le code : Private Sub ListView1_DblClick() LaLigne = Me.ListView1.SelectedItem.SubItems(8) Me.Hide Corrections.Show End Sub Comme j'ai déclaré : Public LaLigne As Long dans un module standard, Excel conserve donc en mémoire cette variable, qui correspond à la ligne sur laquelle tu as double cliqué.... Edit, j'ai oublié de préciser, mais dans la ListView, il y a 8 colonnes, mais seulement 7 de visibles... .Add , , FSource.Cells(1, 1), 0 Le 0, à la fin, signifie sa largeur... Lorsque tu changes la valeur du combobox, tu entres le numéro de ligne dans cette colonne invisible .ListItems(Lig).ListSubItems.Add , , C.Row et cette colonne s'appelle 8 (Me.ListView1.SelectedItem.SubItems(8), plus haut) Dans l'userform "Corrections", à l'initialisation, tu as ce code : For I = 1 To 8 Me.Controls("TextBox" &amp; I).Value = Sheets("BDDChemicals").Cells(LaLigne, I + 1).Value Next I comme on connaît le numéro de ligne, on remplit les textboxs de 1 à 8 avec les numéros de colonne (I +1) car tu commences en colonne B...

cousinhub · Answer

Re-,

Oui...

Me.Controls("TextBox" & I) correspond à Me.TextBox1 si I = 1

Tu peux charger ainsi :

Me.TbxName.Value = Sheets("BDDChemicals").Cells(LaLigne, 2).Value
Me.TbxSurName.Value = Sheets("BDDChemicals").Cells(LaLigne, 3).Value
....

Regarde le numéro de colonne (LaLigne, 2)

cousinhub · Answer

Re-, Regarde le code de l'USF...(soit en cliquant sur la première icône "Afficher le projet", sous "Projet - VBA Project", soit en double-cliquant sur l'USF...)...

cousinhub · Answer

Re-,

Tu n'as pas bien lu, ce que je t'ai écrit....

Me.TbxName.Value

et non :

Me.Controls("TbxName" & I).Value

Tu peux donc supprimer :

For I = 1 to 8
....
....
Next I

cela donne :

Private Sub UserForm_Initialize()
    Me.TbxName.Value = Sheets("BDDChemicals").Cells(LaLigne, 2).Value
    Me.TbxCAS.Value = Sheets("BDDChemicals").Cells(LaLigne, 3).Value
    Me.TbxBC.Value = Sheets("BDDChemicals").Cells(LaLigne, 4).Value
    Me.TbxSupplier.Value = Sheets("BDDChemicals").Cells(LaLigne, 5).Value
    Me.TbxNSupplier.Value = Sheets("BDDChemicals").Cells(LaLigne, 6).Value
    Me.TbxStoPlace.Value = Sheets("BDDChemicals").Cells(LaLigne, 7).Value
    Me.TbxStock.Value = Sheets("BDDChemicals").Cells(LaLigne, 8).Value
    Me.TbxURL.Value = Sheets("BDDChemicals").Cells(LaLigne, 9).Value
End Sub

de plus, dans l'usf "ChoiceForm", change de couleur à tes boutons, et met plutôt ceci pour le bouton "No" :

Private Sub BtnNo_Click()
Unload Me
SearchDialog.Show
End Sub

En règle générale, si tu ne veux pas conserver tes données dans un Userform, tu utilises la commande "Unload Me", afin de décharger l'usf de la mémoire

Si tu veux les retrouver (les données), tu masques l'usf par "Me.Hide"

Heu, et lis tout, cette fois-ci!,,,,