Nombres avec deux décimales dans une cellules

[Johanna]

Bonjour !

Avec VB sous Excel, est-il possible de créer une feuille avec le possibilité de choisir le nombre de décimales acceptées pour une sélection de cellules dans cette nouvelle feuille ?

Merci pour votre aide.

A bientôt,
Johanna

 

[Jeannot45]

Bonjour Johanna

Ci dessous une petite macro qui répond à ton problème

Sub ChoisirDecimales()
Dim intNbDecimales As Integer
Dim strFormat As String

intNbDecimales = InputBox("indiquez le nombre de décimales souhaitées", "Nombre de décimales")

strFormat = "0." & String(intNbDecimales, "0")
Selection.NumberFormat = strFormat
End Sub

Je reste à ta dispo si problème

a+

Jeannot

 

[Johanna]

Merci bcp.
Je vais tester cette macro et si j'ai encore des pb, je reviendrai te voir !
Bisous
Johanna

 

[Johanna]

C'est encore moi.
J'ai un petit problème.
J'utilise ta macro mais l'affichage ne me convient pas.

Considérons le décimales 1,7562483
Si je choisis d'avoir 0 décimale, et ce que je vais toujours choisir normalement, je dois obtenir l'affichage suivant : 2
Or j'obtiens l'affichage 2,
Je souhaiterai retirer la virgule de la fin.

Tu penses pouvoir m'aider.
Merci d'avance
Johanna

 

[Jeannot45]

re

Ajoute dans la macro les lignes encadrées:

Sub ChoisirDecimales()
Dim intNbDecimales As Integer
Dim strFormat As String

intNbDecimales = InputBox("indiquez le nombre de décimales souhaitées", "Nombre de décimales")

-----------------------------------------------------------------------
If intNbDecimales = 0 Then
strFormat = "0"
Else
strFormat = "0." & String(intNbDecimales, "0")
End if
------------------------------------------------------------------------

Selection.NumberFormat = strFormat
End Sub

 

[Johanna]

MERCI BEAUCOUP !!!!!!!!!!!!!!!!!!!!! ;-)