Discussion :

[Bono1664]

Bonjour à toutes et tous,

Mon projet qui se voudrait être un outil d'analyse de résultats de laboratoire comprend une Base de plusieurs dizaines de colonnes alimentées par de nombreux ComboBox.

Je fais une première sélection à l'aide d'un ComboBox qui recueille des données provisoires sur la feuille Rapports (il ne faut en aucun cas modifier la Base) et les affiche dans le ListBox1 du UserForm1 (tout est dans la pièce jointe)

Le doubleclick sur une ligne du ListBox1 (nouvelle sélection) permet d'afficher dix colonnes triées dans le ListBox2 du même UserForm.

Différents boutons de tri devraient ensuite à partir de ce qui est visible dans le ListBox2, afficher à la place dans le ListBox2 des valeurs contenues dans d'autres colonnes (non visibles) de la Base, ce qui permet le rapprochement des données et une bien meilleure lisibilité pour l'analyse.

Pour cela, on cherche dans une plage toutes les cellules contenant la valeur recherchée (on récupère les n° de ligne où elle se trouve) et on transfère les données de la Base sur la feuille Rapports pour pouvoir les classer puis les afficher dans le ListBox2.

Mon problème et dans la boucle de recherche qui est infinie !!!

Merci à celle ou celui qui prendra le temps de m'apporter ses lumières

Bono1664

[boisgontierjacques]

Bonjour,

Mettre le fichier en format standard (.zip)

Boisgontier

[Bono1664]

Désolé, fausse manoeuvre

[boisgontierjacques]

Ce que j'ai compris: trier la ListBox2 par ordre alphabétique

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
 
'Tri ListBox2(Col 1)
Private Sub CmdTRI1_Click()
  Dim Tbl()
  Tbl = Me.ListBox2.List
  Tri Tbl, LBound(Tbl), UBound(Tbl), 1
  Me.ListBox2.List = Tbl
End Sub
 
Sub Tri(a(), gauc, droi, colTri) ' Quick sort
  Dim colD, colF, ref, g, d, c, temp
  colD = LBound(a, 2): colF = UBound(a, 2)
  ref = a((gauc + droi) \ 2, colTri)
  g = gauc: d = droi
  Do
    Do While a(g, colTri) < ref: g = g + 1: Loop
    Do While ref < a(d, colTri): d = d - 1: Loop
    If g <= d Then
      For c = colD To colF
        temp = a(g, c): a(g, c) = a(d, c): a(d, c) = temp
      Next
      g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Tri a, g, droi, colTri
  If gauc < d Then Tri a, gauc, d, colTri
End Sub

Boisgontier

[Bono1664]

Bonsoir M Boisgontierjacques,

et merci pour cette réponse ultrarapide.

Ce tri fonctionne très bien sur la colonne 1, mais je n'en ai pas compris toutes les subtilités : s'il fallait effectuer un tri sur une autre colonne, quelles seraient les données à modifier ?

Merci pour votre patience.

Cordialement

Bono1664

[boisgontierjacques]

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
 
'Tri ListBox2(Col 1)
Private Sub CmdTRI1_Click()
  Dim Tbl()
  Tbl = Me.ListBox2.List
  Tri Tbl, LBound(Tbl), UBound(Tbl), 1
  Me.ListBox2.List = Tbl
End Sub
 
Private Sub CmdTRI2_Click()
  Dim Tbl()
  Tbl = Me.ListBox2.List
  Tri Tbl, LBound(Tbl), UBound(Tbl), 2
  Me.ListBox2.List = Tbl
End Sub
 
Private Sub CmdTRI3_Click()
  Dim Tbl()
  Tbl = Me.ListBox2.List
  Tri Tbl, LBound(Tbl), UBound(Tbl), 3
  Me.ListBox2.List = Tbl
End Sub

Boisgontier

[Bono1664]

Bonjour M boisgontierjacques,

vous avez parfaitement répondu au titre de la discussion et je vous en remercie infiniment c'est pourquoi je l'ai marquée résolue.

Cependant, mon souhait était un peu plus vaste, puisque la base en réalité faisant plusieurs dizaines de colonnes, c'était la possibilité de pouvoir importer d'autres colonnes dans le ListBox, raison pour laquelle je passait par la feuille RAPPORTS (mais peut-être y a-t-il d'autres solutions ?).

C'est pourquoi je vais proposer une autre discussion : "Importer de nouvelles colonnes dans un ListBox multicolonnes" en conservant la même maquette.

Merci encore

Cordialement

Bono1664