valeur listbox multi colonne

[jean pierre]

bonsoir à tous.

dans un userform je cherche à afficher dans 3 Textbox la valeur MAX, MINI,et MOYENNE d'une listbox multi colonne.

cette lisbox s'incrémente sur 5 colonnes et le résultat rechercher est sur la 5ème colonne.

merci pour vos conseils

 

[AV]

Ave,

Selon comment tu remplis (??) ta 'RowSource' cela peut être simple :
Si ta RowSource est du style Feuil1!A2:E10, il suffit de récupérer les MAX, MINI,et MOYENNE de la feuille source.
Ca pourrait faire
me.textBox1.value=[max(Feuil1!E2:E10)]

A voir...

AV [aaa]

 

[jean pierre]

bonsoir AV

non ma lisbox3 s'incrémente par filtrage de 3 autres listbox (1,2,4)
avec la macro ci dessous:

Private Sub ListBox2_Click()
Dim i As Integer
ListBox3.Clear
For i = 1 To UBound(tablo)

If CStr(Year(tablo(i, 1))) = ListBox1 And ListBox4 = tablo(i, 6) And ListBox2 = tablo(i, 7) Then

ListBox3.additem tablo(i, 1)
ListBox3.List(ListBox3.ListCount - 1, 1) = tablo(i, 2)
ListBox3.List(ListBox3.ListCount - 1, 2) = tablo(i, 3)
ListBox3.List(ListBox3.ListCount - 1, 3) = tablo(i, 4)
ListBox3.List(ListBox3.ListCount - 1, 4) = tablo(i, 5)
ListBox3.List(ListBox3.ListCount - 1, 5) = tablo(i, 8)
ListBox3.List(ListBox3.ListCount - 1, 6) = tablo(i, 9)
ListBox3.List(ListBox3.ListCount - 1, 7) = tablo(i, 10)
ListBox3.List(ListBox3.ListCount - 1, 8) = tablo(i, 11)
End If
Next if
End Sub


merci pour les conseils

 

[Hervé]

Bonjour jean pierre, av

pourrait tu nous fournir une piece jointe jean pierre stp.

salut

 

[jean pierre]

re bonsoir

je vous joint un fichier trouver dans ce forum dont je voudrais réutiliser le code
j'ai une base de donné dans ce genre et je voudrais faire resortir (dans 3 textbox) les valeur MAX, MINI, et moyenne de la 6ème colonne (par exemple) de la listbox multicolonne

merci [file name=multicolonne.zip size=17598]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/multicolonne.zip[/file]

 

[Hervé]

re jean pierre, av

c'est fou, comme je me suis senti comme dans mes pantoufles dans ce code.

il en existe une version commentée par robert, à ne pas louper.

essayes comme ceci :

Private Sub ListBox2_Click()
Dim i As Integer, x As Integer
Dim tmp()
ListBox3.Clear

For i = 1 To UBound(tablo)
If CStr(Year(tablo(i, 1))) = ListBox1 And ListBox4 = tablo(i, 2) And ListBox2 = tablo(i, 3) Then
ListBox3.AddItem tablo(i, 1)
ListBox3.List(ListBox3.ListCount - 1, 1) = tablo(i, 2)
ListBox3.List(ListBox3.ListCount - 1, 2) = tablo(i, 4)
ListBox3.List(ListBox3.ListCount - 1, 3) = tablo(i, 5)
ListBox3.List(ListBox3.ListCount - 1, 4) = tablo(i, 6)
ListBox3.List(ListBox3.ListCount - 1, 5) = tablo(i, 7)
x = x + 1: ReDim Preserve tmp(1 To x): tmp(x) = tablo(i, 7)
End If
Next i

Label10 = Application.Max(tmp)
Label11 = Application.Min(tmp)
Label12 = Application.Average(tmp)
End Sub

voir piece jointe

attention : tes nombres en colonne G etaient formatées en texte.

salut [file name=multicolonne_20060413225814.zip size=16721]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/multicolonne_20060413225814.zip[/file]

Message édité par: hervé, à: 14/04/2006 00:22

 

[jean pierre]

merci herve pour ta réponse

mais je rencontre un problème
si je veux changer de colonne pour le calcul max mini et moyen les labels restent à '0'.
j'ai beau changer le format et valeurs des cellules colonnes D E F le résultat reste à '0'

et par contre si je modifi le format colonne G le résultat reste toujour bon

d'ou vient ce problème??

merci

 

[Hervé]

bonjour jean pierre, av

il m'est difficile de t'aider plus en ne voyant pas tes données originales.

Mais je pense que ton souci doit venir des formats appliqués dans les colonnes.

as tu bien modifié le format texte de toutes les lignes ?

sinon merci de nous joindre un fichier contenant tes données réelles (attention à la confidentialité).

bonnes fetes

salut