Discussion :

[Awaleeeee]

Hello tout le monde,

je vous écris car je rencontre quelques difficultés dans l'élaboration de mon userform. J'ai réussi à créer mon formulaire, il comporte une TextBox dans laquelle je peux rentrer mes mots-clés séparés par un espace; ma ListBox est quant à elle composée de mes colonnes avec les infos dont j'ai besoin (6colonnes).

Ma question est: comment faire lorsque je double-clique sur une ligne de ma ListBox pour que cela me renvoie vers la ligne correspondante mais dans mon tableau source? Quel code puis-je utiliser ?

J'espère que j'ai été assez précise, merci beaucoup d'avance et bonne soirée.

Fanny

[Invité]

Bonjour,

La colonne de référence de votre ListBox est celle que vous définissez dans la propriété BoundColumn. Il vous faut donc faire une boucle sur la colonne correspondante de votre tableau source et comparer les contenus. Vous pourriez également charger le numéro de ligne dans votre ListBox pour avoir une lecture directe.

[Awaleeeee]

Alors j’ai:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ListBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
Dim b
b=Me.ListBox1.ListIndex + 6 
(‘6 étant mon nombre de colonne dans ma listbox)
ActiveSheet.Rows(b).Select
Unload Userform1
 
End Sub

Cela marche seulement partiellement car lorsque je ne fais pas de recherche dans ma textbox et que je défile juste ma ListBox cela fonctionne : je peux double cliquer et ça me renvoie à la ligne correspondante dans mon tableau source. En revanche, lorsque je fais une recherche dans ma TextBox que je double clique sur la ligne qui s’affiche dans la ListBox cela me renvoie sur une ligne au hasard du tableau source et non la bonne.

Savez vous comment je peux régler ce problème ? Merci d’avance

[Invité]

Regardez cet exemple : https://www.developpez.net/forums/d1...urs-variables/

[Awaleeeee]

Regardez cet exemple : https://www.developpez.net/forums/d1...urs-variables/

J’ai plus ou moins la même chose j’ai juste une TextBox en + dans laquelle je peux appliquer des critères en tapant des mots clés ( j’ai environ 3000 lignes dans mon tableau) mais je n’arrive pas à sélectionner la ligne de mon tableau source en cliquant sur la ligne que j’ai choisi dans ma listBox

[Invité]

Mettez votre fichier zipé en ligne.

[Awaleeeee]

Mettez votre fichier zipé en ligne.

le fichier est confidentiel dans sa totalité et ce serait compliqué d'en faire un factice, je vous mets des screens de mon code et de mon user form:






voilà, j'espère que ça suffira...

Merci beaucoup

[Invité]

[QUOTE=Awaleeeee;11589189]
/QUOTE]

Mettez votre code entre balises #

Nb : Vos variables tableaux commencent à l'indice 0, or certains chargements commencent à 1. Pour la lisibilité du code, évitez les suites de : entre les commandes. Vous devriez vérifier le contenu de vos matrices avec des Debug.print.

[Philippe Tulliez]

Bonjour,
L'image que tu affiches et le code que tu publies, ressemble furieusement à une code proposé par Jacques Boisgontier, pourquoi ne pose-tu pas la question directement à son auteur ?

[pijaku]

Bonjour,

Dans le message #2, Eric (salutations) vous suggère de placer le numéro de ligne dans une colonne de votre ListBox.
C'est la meilleure solution.

En apportant les modifications ci-dessous à votre code (je n'ai pas tout réécris, juste les parties à modifier), cela devrait fonctionner :

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
23
24
25
26
27
28
29
30
31
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Lig As Long
    Lig = Me.ListBox1.List(ListBox1.ListIndex, 6) 'retrouve le numéro de ligne en colonne 7 de la ListBox
 
    '...
 
End Sub
 
Private Sub UserForm_Initialize()
 
'.......
 
Me.ListBox1.ColumnCount = 7
Me.ListBox1.ColumnWidths = "40;175;95;110;90;100;0"
 
'....
 
'--- valeurs initiales dans ListBox
Dim Tbl(): ReDim Tbl(1 To UBound(BD), 1 To 7)
For i = 1 To UBound(BD)
    c = 0
    For Each k In ColVisu
        c = c + 1
        Tbl(i, c) = BD(i, k)
    Next
    Tbl(i, c + 1) = i 'place le numéro de ligne en colonne 7
Next i
 
'....
 
End Sub

Les points de suspension dans mon code sont les parties de votre code que je n'ai pas recopié...