tri dans Userform

hidozo · 6 Juin 2008

Bonjour,

je souhaite faire un tri (comme le tri dans Excel) dans mon Userform. je ne sais pas comment m'y prendre,

Est-ce que quelqu'un peut il me mettre sur la voie ?

Cordialement

Hidozo

papapaul · 6 Juin 2008

Re : tri dans Userform

🙄 Salut,
Trier une listbox ?
Avec l'outil recherche du Forum tu devrais trouver,
sinon joins nous un fichier, on verra
@+🙂

BOISGONTIER · 6 Juin 2008

Re : tri dans Userform

Bonjour,

Exemple:

Code:

Private Sub UserForm_Initialize()
   Dim temp()
   temp = Range("liste3")      ' liste tableau temp (1 To n,1 To 1)
   ou    
   temp = Range([B2], [B2].End(xlDown))
   Call Tri(temp, 1, UBound(temp, 1))
  Me.ListBox1.List = temp
End Sub

Sub Tri(a(), gauc, droi)          ' Quick sort
 ref = a((gauc + droi) \ 2, 1)
 g = gauc: d = droi
 Do
     Do While a(g, 1) < ref: g = g + 1: Loop
     Do While ref < a(d, 1): d = d - 1: Loop
     If g <= d Then
       temp = a(g, 1): a(g, 1) = a(d, 1): a(d, 1) = temp
       g = g + 1: d = d - 1
     End If
 Loop While g <= d
 If g < droi Then Call Tri(a, g, droi)
 If gauc < d Then Call Tri(a, gauc, d)
End Sub

http://boisgontierjacques.free.fr/fichiers/F_liste_triee.xls

JB
Formation Excel VBA JB

hidozo · 6 Juin 2008

Re : tri dans Userform

Bonjour,

J'ai un userform qui me permet d'analyser des photos.

pour chaque photo je coche tel ou tel critère et en validant l'analyse, j'exporte les données dans Excel (une colonne par données. Pour les caes à cocher et les boutons d'options, la valeur dans Excekl est 1.

dans une page de mon multipage, je veux connaitre la précision, l'erreure relative et le nombre d'évaluation qu"'il faut que je fasse pour arriver à un niveau de précision statistque.

j'ai toutes les formules, mais pour cela il faut que je récupère :
Nbre d'évaluation totale (j'ai = nbval(colonne 1))
le nbre d'évaluation cocher pour chaque critère (j'ai aussi=idem avec référence de la colonne du critère)

Par contre, ce que je voudrais, c'est feaire un tri pour n'évaluer cette précision que pour un item particulier. Par exemple dans les actions (prendre, poser, jetter)
je veux pouvoir connaitre la précision de l'action prendre pour les critères, donc ne sélectionner que les lignes ou prendre serait noter dans la colonne action et j'aurai ainsi mon nbval des critères que pour l'action prendre

Je ne sais pas si j'ai été assez clair !!!! oups

je joints le fichier,

je veux pouvoir faire dans mon userform le choix de l'action et/ou de la pièce, et/ou du matériel et/ou des critères, pour faire mon calcul de précision statistique

Cordialement

Hidozo

hidozo · 6 Juin 2008

Re : tri dans Userform

Re

Tout en sachant que là je n'ai pas mis d'userform, c'est juste pour montre un exemple de données que je vais avoir

Cordialement

hidozo · 6 Juin 2008

Re : tri dans Userform

Merci Boisgontier,

mais je ne comprends rien à ce que tu as écris, je dois cogiter sur ton code !! lol !!!!!!!!

et ce soir, je n'ai pas encore bu mon ptit verre !!!!

hidozo

BOISGONTIER · 6 Juin 2008

Re : tri dans Userform

Dans ton premier post, tu parlais de tri et dans le second de sélection.
Mon post concerne le tri dans l'ordre croissant.

JB

hidozo · 6 Juin 2008

Re : tri dans Userform

Bonsoir,

je veux fa

hidozo · 6 Juin 2008

Re : tri dans Userform

Oups, erreur de frappe,

je veux faire un tri dans mon Userform, pour ne sélectionner que les données qui m'intéressent pour pouvoir calculer la précision statistique sur la sélection issue du trie.

Cordialement

tri dans Userform

hidozo

XLDnaute Occasionnel

papapaul

XLDnaute Impliqué

BOISGONTIER

XLDnaute Barbatruc

hidozo

XLDnaute Occasionnel

Pièces jointes

hidozo

XLDnaute Occasionnel

hidozo

XLDnaute Occasionnel

BOISGONTIER

XLDnaute Barbatruc

hidozo

XLDnaute Occasionnel

hidozo

XLDnaute Occasionnel

Discussions similaires

tri dans Userform

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency