Microsoft 365 Format Nombre Combobox dans Feuille

Regueiro

XLDnaute Impliqué
Bonsoir à tous
Voici le code, Format des Nombre dans la cellule 0.00000
Dans le Combobox1 0,00 avec virgule ?

VB:
Private Sub Worksheet_Activate()
Me.ComboBox1.Clear
  Set f = Sheets("DONNEES GRAPHIQUE")
  Set mondico = CreateObject("Scripting.Dictionary")
  a = f.Range("I5:I" & f.[I65000].End(xlUp).Row)  ' tableau a(n,1) pour rapidité
  For I = LBound(a) To UBound(a)
   If a(I, 1) <> "" Then mondico(a(I, 1)) = ""
  Next I
 '--avec tri
  temp = mondico.keys
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox1.List = temp
  'Me.ComboBox1.List = ListFormat(f.[I5:I509].Value, "#0.00000")
 
 
 
 
 
End Sub
 
Sub Tri(a, gauc, droi)          ' Quick sort
 ref = a((gauc + droi) \ 2)
 g = gauc: d = droi
 Do
     Do While a(g) < ref: g = g + 1: Loop
     Do While ref < a(d): d = d - 1: Loop
     If g <= d Then
       temp = a(g): a(g) = a(d): a(d) = 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
Function ListFormat(tbl, forme)
    Dim I&
    For I = 1 To UBound(tbl)
        Select Case LCase(forme)

        Case "maj": tbl(I, 1) = UCase(tbl(I, 1))

        Case "min": tbl(I, 1) = LCase(tbl(I, 1))

        Case "proper": tbl(I, 1) = WorksheetFunction.Proper(tbl(I, 1))

            'ect..etc..

        Case Else: tbl(I, 1) = Format(tbl(I, 1), forme)
        End Select
    Next
    ListFormat = tbl
End Function
 

fanch55

XLDnaute Barbatruc
Salut,
Le format d'une cellule n'est que de l'affichage, un nombre reste un nombre .
Ce sont donc des nombres que l'on retrouve dans le Dico donc dans le combobox.
On peut cependant formater le contenu des éléments de la combobox :
VB:
Private Sub Worksheet_Activate()
Me.ComboBox1.Clear
  Set f = Sheets("DONNEES GRAPHIQUE")
  Set mondico = CreateObject("Scripting.Dictionary")
  a = f.Range("I5:I" & f.[I65000].End(xlUp).Row)  ' tableau a(n,1) pour rapidité
  For I = LBound(a) To UBound(a)
   If a(I, 1) <> "" Then mondico(Format(a(I, 1), "#0.00000")) = ""
  Next I
 '--avec tri
  temp = mondico.keys
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox1.List = temp
  'Me.ComboBox1.List = ListFormat(f.[I5:I509].Value, "#0.00000")
End Sub
 

fanch55

XLDnaute Barbatruc
Comment formater ??
Le code fourni le fait ...
Toutefois, s'il y a encore une différence de format ( , au lieu de . ) pour le numérique, il vous faut vérifier vos code régionaux par rapport à ceux de votre Excel

Windows:
1710443562467.png
Excel:
1710443500494.png
 

Pièces jointes

  • 1710443370751.png
    1710443370751.png
    52.3 KB · Affichages: 5
  • 1710443430858.png
    1710443430858.png
    43 KB · Affichages: 4

Discussions similaires

Réponses
4
Affichages
278

Statistiques des forums

Discussions
313 283
Messages
2 096 809
Membres
106 751
dernier inscrit
Souleymani