XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini

nonoTT à dit:

Bonjour
Je vais essayer d'être clair. Je souhaite que les utilisateurs de mon classeur excel puissent saisir des valeurs afin d'en faire automatiquement des statistiques.
les valeurs saisies seront formatées selon un nombre de décimales fixées par la valeur d'une cellule.
Par exemple si l'utilisateur saisi 1,23546 dans la cellule C6 et que la valeur de la cellule D6 est égale à 2 alors la cellule C6 est formatée en 1,24.
Merci de votre aide
nonoTT

Cliquez pour agrandir...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Frmt$
If Target.Count > 1 Then Exit Sub
Frmt = "#,##0" & IIf([A1] > 0, "." & String([A1], "0"), "")
If Not Intersect(Target, Range("B1:B5")) Is Nothing Then
    Target.NumberFormat = Frmt
End If
End Sub

nonoTT à dit:

Merci, pas moyen de faire cela par une formule ?

Cliquez pour agrandir...

nonoTT à dit:

Merci, pas moyen de faire cela par une formule ?

Cliquez pour agrandir...

• Si Nbr déc. est supérieur ou égal à 0 et si Nbr déc. est inférieur ou égal à 6, alors on applique le format avec Nbr déc.
• Si Nbr déc. est inférieur à 0 ou bien si Nbr déc. est supérieur à 6, alors on applique le format implicite
• Le format implicite est le format appliqué directement sur les cellules de la colonne A
• On peut via la MFC ajouter encore d'autres valeurs de décimales (ou bien en retirer)