Listbox : de la valeur la plus petite à la plus élevée

[xtec]

bonjour

Je voudrais faire un code sous vba permettant de trouver la valeur la plus faible jusqu'a la plus élevée et les mettre dans une listbox.

Voici le début de mon programme, il ne me renvoye qu'une valeur et non plusieurs et j'aimerai trouvé l'addresse de cette cellule?

Dim myrange As Range
Dim myrange2 As Range
Dim myrange3 As Range
Dim myrange4 As Range
Dim myrange5 As Range
Dim myrange6 As Range
Dim startX As Variant
Dim L As Integer
Dim m As String

Private Sub ok_Click()
Set myrange = Worksheets("essai").Columns("N:N")
Set myrange2 = Worksheets("essai").Columns("S:S")
Set myrange3 = Worksheets("essai").Columns("X:X")
Set myrange4 = Worksheets("essai").Columns("AC:AC")
Set myrange5 = Worksheets("essai").Columns("AH:AH")
Set myrange6 = Worksheets("essai").Columns("AM:AM")
startX = Application.WorksheetFunction.Min(myrange, myrange2, myrange3, myrange4, myrange5, myrange6)
MsgBox startX

X = starX.address

Listbox1.clear
Me.ListBox1.AddItem
Me.ListBox1.List(cpt, 0) = Worksheets(1).Cells(x, 3).Value
Me.ListBox1.List(cpt, 1) = Worksheets(1).Cells(x, 4).Value
Me.ListBox1.List(cpt, 2) = Worksheets(1).Cells(x, 5).Value
Me.ListBox1.List(cpt, 3) = Worksheets(1).Cells(x, 6).Value
Me.ListBox1.List(cpt, 4) = Worksheets(1).Cells(x, 7).Value
Me.ListBox1.List(cpt, 5) = Worksheets(1).Cells(x, starX).Value

cpt = cpt + 1
End Sub

Cependant cette fonction ne marche pas
Merci de votre aide

 

[job75]

Re : Listbox : de la valeur la plus petite à la plus élevée

Bonjour xtec, bienvenue sur XLD,

Votre macro laisse deviner très très vaguement ce que vous voulez faire.

Joignez votre fichier avec la ListBox et quelques explications.

Alors on pourra peut-être vous aider.

A+

 

[xtec]

Re : Listbox : de la valeur la plus petite à la plus élevée

Voici mon fichier exemple,

j'aimerai dans mon userform, qu'en appuyant sur OK
Il affiche l'ordre de mes cellules en fonction de la valeur de la colonne 14 et 16

Par exemple :

x E01 1 0001 12 Actif procédé thermique 1 1
x E01 6 0001 12 Actif procédé thermique 6 3
x E01 6 0001 12 Actif procédé thermique 6 4
x E01 2 0001 12 Actif procédé thermique 2 4


Etc... et que sa soit bridé à 15 lignes !

Je voudrais que sa s'affiche uniquement sur la listebox, que sa ne modifie pas le tableau!


j'arrive à trouver la valeur la plus faible mais je n'arrive pas à prendre l'addresse de cette valeur

 

[job75]

Re : Listbox : de la valeur la plus petite à la plus élevée

Bonjour xtec,

Alors maintenant c'est bien simple, c'est totalement incompréhensible.

Le fichier joint ne correspond pas à la macro du post #1 (colonnes N S X AC AH AM ???).

Ni au post #3 (colonne 14 et 16 ??????).

A quoi jouez-vous, vous voulez vraiment de l'aide 😕

A+