Formater une listbox

Question

Bonjour,

Dans un formulaire, je dois faciliter la saisie de données qui doivent être numériques, comprises entre 0 et 2,5. Je pense que le mieux est de créer une listbox avec un RowSource qui renvoie à une liste dans la feuille. Jusque là pas de problème, mais je souhaite aussi que l'on puisse saisir directement dans la listbox une valeur, car quand il y a beaucoup de saisies c'est plus rapide.

J'ai donc mis dans le code d'évènement Change ou Exit (c'est le même résultat) :

"Echanges1.Value = Format(Echanges1, "Standard")"

et la saisie se transforme : par exemple si je saisis 1,2 cela devient 0,04...?

Ce serait bien aussi que la saisie soit obligatoirement un chiffre entre 0 et 2,5

Merci de votre aide, cordialement.

Answer 1

Alors, essaie :

Private Sub Echanges1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(Echanges1) Then
Echanges1 = ""
End If
'Echanges1 = Format(Echanges1, "0.00")
If Echanges1 = "" Then Exit Sub
'EchangesNote = Format(CDbl(Echanges1), "0.00")
If Echanges1 > 2.5 Then
'MsgBox ("Erreur")
Echanges1 = ""
Exit Sub
End If
If Echanges2 = "" Then
EchangesNote = CDbl(Echanges1)
Else
EchangesNote = CDbl(Echanges1) + CDbl(Echanges2)
End If
If Not IsNumeric(Echanges1) Then
MsgBox ("Erreur")
End If
'Echanges1.Value = Format(Echanges1, "0.00")
End Sub

Daniel

Answer 2

Sur mon ordi 13 pouces, je n'ai pas de pavé numérique, donc en effet j'utilise la touche virgule à côté du N, et c'est une donnée dont je dois tenir compte car il est possible que d'autres utilisateurs soient dans mon cas.

André

PS: je ne suis plus dispo dans la soirée

Answer 3

J'utilise la "," comme symbole décimal. J'ai testé en saisissant ce séparateur avec le pavé numérique. Tu veux dire que l'utilisateur n'utilise pas le pavé numérique et qu'il utilise la touche "," ?

Daniel

Answer 4

Merci Daniel pour ton aide,

Ta solution fonctionne mais elle ne permet pas la saisie directe de la virgule comme séparateur, elle remplace la saisie du point par la virgule. Si je laisse le séparateur à "," la saisie de ce caractère est impossible dans la listbox, comme la saisie du point est impossible si c'est le séparateur... peut-on expliquer cette bizarrerie ?

Si cela fonctionne avec le point comme séparateur, c'est OK pour moi : je mets dans workbook_open un test pour voir le séparateur, le changer si c'est la virgule et la rétablir à la fermeture du classeur. Qu'en penses-tu ?

Cordialement,

André

Answer 5

Avec des virgules comme séparateur décimal. Essaie en supprimant :

Private Sub Echanges1_Change

Mets :

Private Sub Echanges1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Echanges1 = Replace(Echanges1, ".", ",")
If Not IsNumeric(Echanges1) Then
Echanges1 = ""
End If
'Echanges1 = Format(Echanges1, "0.00")
If Echanges1 = "" Then Exit Sub
'EchangesNote = Format(CDbl(Echanges1), "0.00")
If Echanges1 > 2.5 Then
'MsgBox ("Erreur")
Echanges1 = ""
Exit Sub
End If
If Echanges2 = "" Then
EchangesNote = CDbl(Echanges1)
Else
EchangesNote = CDbl(Echanges1) + CDbl(Echanges2)
End If
If Not IsNumeric(Echanges1) Then
MsgBox ("Erreur")
End If
'Echanges1.Value = Format(Echanges1, "0.00")
End Sub

Pareil pour l'autre combobox.

Daniel