Discussion :

[lcoulon]

Bonjour,

J'ai adapté à mes besoins la base d'un fichier exemple de J.Boisgontier , cela afin de faire des recherches par mot clef dans une base.


Le mode de recherche fonctionne parfaitement, dans le formulaire un Label est utilisé pour renvoyer la valeur LRow qui correspond à la ligne que sélectionne l'utilisateur dans la Listbox.



Dans mon fichier ci-joint, je n'arrive pas retourner / afficher le numéro de la ligne dans l'onglet ("BD) correspondante au choix de l'utilisateur cliqué dans la Listbox.

Par exemple, si l'utilisateur cherche 'chat' alors LRow devrait afficher : 4 mais rien ne s'affiche


J'ai besoin de récupérer le numéro de la ligne de la sélection faite par l'utilisateur dans la Listbox, cela afin de pouvoir modifier les données directement depuis les textboxes du formulaire.

Pouvez vous m'aider svp ?

Merci à vous,

[Franc]

Salut, le numéro de ligne ne s'affiche pas car la ligne "LRow.Caption = L.Row" est placée à l'intérieur de la boucle "Do While" qui recherche des correspondances entre les données des textboxes et celles de la colonne correspondante dans "Tableau1". Si aucune correspondance n'est trouvée, la boucle se poursuit jusqu'à la fin des données de la colonne, mais dans ce cas, la ligne "L" sera Nothing et la ligne "LRow.Caption = L.Row" ne sera pas exécutée.Donc tu sors LRow.Caption = L.Row de la boucle et tu le places juste après Loop While...

[deedolith]

Salut,

Au lieux d'utiliser Excel pour ce qu'il ne sais pas faire (base de données), es-tu au courrant que tu peux créer une base de données MS Access via ADO ?

Meme si la creation de la base / tables / relations est un petit peut casse-bonbons, je te garantie que son exploitation sera autrement plus simple que les tableaux structurés.

[Franc]

Salut,

Au lieux d'utiliser Excel pour ce qu'il ne sais pas faire (base de données), es-tu au courrant que tu peux créer une base de données MS Access via ADO ?

Meme si la creation de la base / tables / relations est un petit peut casse-bonbons, je te garantie que son exploitation sera autrement plus simple que les tableaux structurés.

Encore faut-il savoir s'en servir
Pour un petit projet pas trop complexe Excel fait très bien l'affaire.

[fraflt69]

Bonjour Franc
Dans ta procédure Listbox_body_Click supprime le Else et ton numero de ligne s'affichera

[deedolith]

Encore faut-il savoir s'en servir
Pour un petit projet pas trop complexe Excel fait très bien l'affaire.

Entre:
1) La gestion des clefs / relations sous Excel, c'est casse-couilles
2) La création des tables / relations via ADO, c'est casse-couilles (mais c'est du one-shot).

Pas convaincu qu'une solution pure Excel soit avantageuse.

Et pour être franc, développer, c'est aussi ne pas rester sur ses acquis.

[lcoulon]

Voici mon fichier j'avais oublié de l'attacher lors de mon précédent post.

Pour l'instant la correspondance entre la ligne sélectionnée dans la Listbox et la ligne correspondante dans la feuille de calcul ("BD") ne fonctionne pas.


Je vous remercie pour votre aide,

[lcoulon]

Salut, le numéro de ligne ne s'affiche pas car la ligne "LRow.Caption = L.Row" est placée à l'intérieur de la boucle "Do While" qui recherche des correspondances entre les données des textboxes et celles de la colonne correspondante dans "Tableau1". Si aucune correspondance n'est trouvée, la boucle se poursuit jusqu'à la fin des données de la colonne, mais dans ce cas, la ligne "L" sera Nothing et la ligne "LRow.Caption = L.Row" ne sera pas exécutée.Donc tu sors LRow.Caption = L.Row de la boucle et tu le places juste après Loop While...

J'ai fait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
            Do
                'Me.TextBox2.Text = UCase(Cells(L.Row, "A"))
                'If Cells(L.Row, "B") <> TextBox3.Text Or Cells(L.Row, "C") <> TextBox4.Text Or Cells(L.Row, "D") <> TextBox5.Text Or Cells(L.Row, "E") <> TextBox6.Text Or Cells(L.Row, "F") <> TextBox7.Text Then
 
                If Cells(L.Row, "B") <> TextBox3.Text Or Cells(L.Row, "C") <> TextBox4.Text Or Cells(L.Row, "D") <> TextBox5.Text Or Cells(L.Row, "E") <> TextBox6.Text Then
 
                    Set L = .FindNext(L)
 
                    Else
 
'                    LRow.Caption = L.Row
'                    ligne_recherchée = L.Row
                    Exit Sub
 
                End If
 
            Loop While Not L Is Nothing And L.Address <> Deb
 
            LRow.Caption = L.Row
            ligne_recherchée = L.Row
 
        End If

L'affichage de la ligne est effectivement présent mais la valeur retournée est parfois erronée :





Si on cherche "chien" alors 3 lignes de resultat sont proposées, les 2 premieres qui contientent le mot chien retournent LRow = 3 alors que ce n'est vrai que pour l'une d'elle.

Le code n'a pas détecté que le 1er premier résultat attendu était en ligne n°2


Comment cela se fait il que lorsque je reste sur le code d'origine ( LRow.Caption = L.Row dans le Else ) le résultat ne s'affiche pas alors que les résultats sont pourtant bien présents et corrects dans la Listbox ?
je ne l'explique pas.