Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

format de nombre et seléction dans ComboBox

  • Initiateur de la discussion Initiateur de la discussion paul87
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

paul87

XLDnaute Impliqué
Bonjour le Forum,
Bonjour à Tous.
Dans un UF, j'ai une ComboBox que j'alimente avec le code ci dessous.
mais je souhaite uniquement un affichage et une valeur avec seulement 1 décimale....et là.avec ce code ça m'en affiche plein.
De plus comment récupérer dans une variable la valeur sélèctionnée dans cette liste, toujours avec une seule décimale..
afin de lui affecter un calcul par la suite

Code:
Private Sub UserForm_Initialize()

With ComboBox1
     For X = 0.1 To 100 Step 0.1
    .AddItem X
Next X

End With
End Sub
Merci ++ pour vos conseils ..!
 
Re : format de nombre et seléction dans ComboBox

Bonjour,

essaye peut être ainsi :
Code:
Private Sub UserForm_Initialize()
Dim x As Double
With ComboBox1
    For x = 0.1 To 100 Step 0.1
        .AddItem Round(x, 1)
    Next x
End With
End Sub

bon après midi
@+
 
Re : format de nombre et seléction dans ComboBox

merci !!
j'ai encore besoin d'un renseignement,
dans ma textbox2 qui est la textbox de destination du résultat d'un calcul, j'ai besoin d'un affichage à 2 décimales..
comment formater le résultat....?
Svp
 
Re : format de nombre et seléction dans ComboBox

Finalement...ça ne va pas !!
je me suis trompé dans mon énoncé.. et donc Pierrot93..n'a pas pu comprendre ma demande..😱
Dans mon UF, j'ai une ComboBox que je souhaite préremplir à l'ouverture
mais je souhaite uniquement un affichage et une valeur avec 2 décimales...et un incrément de +0.01 par ligne (pour aller de 0 à 10)
1000 excuses pour mon erreur !
 
Re : format de nombre et seléction dans ComboBox

Re,

si j'ai bien compris, pas sûr...
Code:
Private Sub UserForm_Initialize()
Dim x As Double
With ComboBox1
    For x = 0.01 To 10 Step 0.01
        .AddItem Format(Round(x, 2), "0.00")
    Next x
End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
306
Réponses
3
Affichages
332
Réponses
9
Affichages
385
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
520
  • Question Question
XL 2021 listbox
Réponses
18
Affichages
736
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…