Re : valeur en fonction de combobox
Bonjour (Re)
Sorry je viens encore t'embêter car j'ai ajouté des listes dans la feuil2 et je voudrais que la liste affichée dans les combobox soient le reflet de chaque liste et ne soit pas triée par nom ....
merci de ton aide.... Gérard
C'est très simple il suffit de supprimer ou de déclarer comme commentaire les lignes ci dessous
'tri des données
For £i = 1 To UBound(£Tableau, £numColTri)
For £j = 1 To UBound(£Tableau, £numColTri)
If £Tableau(£j, £numColTri) > £Tableau(£i, £numColTri) Then
For £y = 1 To £nbcol
£t = £Tableau(£i, £y)
£Tableau(£i, £y) = £Tableau(£j, £y)
£Tableau(£j, £y) = £t
Next £y
End If
Next £j
Next £i
ou introduire la possibilité de ne pas trier en ajoutant une variable dans l'appel de la procédure. cette dernière méthode permet de trier ou de ne pas trier.
Private Sub remplircombo(£nomfeuille1 As String, £nucombo As Byte, _
£dimcol As String, £ColTri As String, _
£selection As Boolean, £colpourselection As String, _
£valeurcherche As String, £tri As Boolean, £param As Variant)
If £tri = true then
.........................
End if
Call remplircombo(£nomfeuille1:="Feuil2", _
£nucombo:=5, _
£dimcol:="80;0", _
£ColTri:="m", _
£selection:=False, _
£colpourselection:="m", _
£valeurcherche:="", _
£tri:= False, _
£param:=Array("m", "n"))
JP