Discussion :

[xtecpasteque]

Bonjour

Je voudrais faire un code sous vba permettant de trouver la valeur la plus faible jusqu'à 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?

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
32
33
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

[Bear the french]

Bonjour xtecpasteque,

Ton projet est ambitieux si tu commences à coder
Ambitieux mais faisable.

Il faut prendre les problèmes dans l'ordre :
rechercher/déterminer la plus petite valeur
puis la repérer
puis la sortir de la plage de recherche
puis relancer la recherche
...
puis balancer les infos dans la listbox + association à un clic sur un bouton.

Bref, il te faut de l'ordre et de la synthèse.
Plus tu auras de paramètres à gérer, plus dur ça sera de comprendre le fonctionnement et de retrouver les erreurs.

Je t'ai réécrit le début de ton code (détermine la plus petite valeur et la localise) :

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
Sub test()
 
Dim myrange As Range
Dim startX As Variant
 
' recherche la valeur la plus petite
With Worksheets("essai")
    Set myrange = Union(.Columns("N:N"), .Columns("S:S"), .Columns("X:X"), .Columns("AC:AC"), .Columns("AH:AH"), .Columns("AM:AM"))
    startX = Application.WorksheetFunction.Min(myrange)
End With
 
' localise la valeur la plus petite et renvoie un message
For Each Cell In myrange.Cells
    If Cell.Value = startX Then
        MsgBox "La plus petite valeur est " & startX & " ligne n°" & Cell.Row & " et colonne n°" & Cell.Column
        Exit For
    End If
Next
 
End Sub

Essaies ce code et pose des questions si nécessaire.

Bertrand

[xtecpasteque]

bonjour Bertrand

Merci pour ton code, sa ma bien débloqué

J'arrive donc à afficher la première ligne sur ma listebox, je voudrais savoir quel est le code pour sortir la première valeur de startX afin de prendre la 2eme valeur la plus petite!