Nombre a virgule
Cap_ou_pas_cap
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
Bonjour,
J'ai un petit probleme au niveau de mon Userform
J'aimerais un peu d'aide si vous plait, je fais un lsitebox avec le code suivant,
Le soucis c'est que dans mon tableau exel j'ai des chiffre a virgule mais quand je mets play dans mon userform il met qu'un nombre entier sans les virgule...
Pouvez vous m'aider ? deuxieme question est ce possible de faire plusieurs chooix avec une liste box et mon code dans ma feuille final du formulaire ?
Cordialement,
MErci encore
J'ai un petit probleme au niveau de mon Userform
J'aimerais un peu d'aide si vous plait, je fais un lsitebox avec le code suivant,
Set f = Sheets("FP") 'On rentre la feuil
Set MonDico = CreateObject("Scripting.Dictionary") ' On cree le liste de dictionnaire
a = f.Range("J3:J" & f.[J65536].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)) = Val(a(i, 1))
Next i
temp = MonDico.items
Call Tri(temp, LBound(temp), UBound(temp))
Me.ListBox2.List = temp
Le soucis c'est que dans mon tableau exel j'ai des chiffre a virgule mais quand je mets play dans mon userform il met qu'un nombre entier sans les virgule...
Pouvez vous m'aider ? deuxieme question est ce possible de faire plusieurs chooix avec une liste box et mon code dans ma feuille final du formulaire ?
Cordialement,
MErci encore
A voir également:
- Nombre a virgule
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Ascii nombre de caractères - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Nombre de page - Guide
1 réponse
Bonjour,
1- Lorsque l'on copie-colle un code fait par quelqu'un d'autre, on cite ces sources.
Pour votre cas, merci donc d'ajouter dans votre code ces 2 lignes :
2- pour votre souci de virgule, regardez ce petit (tout petit) test :
3- Pour créer une ListBox avec sélection multiple, ajoutez cette ligne dans le UserForm_Initialize() :
4- pour placer les éléments sélectionnés dans votre feuille :
1- Lorsque l'on copie-colle un code fait par quelqu'un d'autre, on cite ces sources.
Pour votre cas, merci donc d'ajouter dans votre code ces 2 lignes :
'Sources : 'http://boisgontierjacques.free.fr/pages_site/Dictionnaire.htm#AlimenterListe
2- pour votre souci de virgule, regardez ce petit (tout petit) test :
Sub test() Dim mavaleur As Double mavaleur = 12.75 MsgBox mavaleur MsgBox Val(12.75) End Sub
3- Pour créer une ListBox avec sélection multiple, ajoutez cette ligne dans le UserForm_Initialize() :
ListBox1.MultiSelect = fmMultiSelectMulti
4- pour placer les éléments sélectionnés dans votre feuille :
Private Sub commandButton1_Click()
'Sources :
'http://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G
Dim i As Byte, Ligne As Long, Col As Integer
'A ADAPTER : nom de la feuille et de la colonne
Ligne = Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row + 1
'A ADAPTER : commence en colonne B (2)
Col = 2
'boucle sur les éléments de la listbox
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then Cells(Ligne, Col) = ListBox1.List(i): Col = Col + 1
Next i
End Sub
