Microsoft 365 Macro décimales en tenant compte d'une valeur saisie

[Fanouille]

Bonjour,

Toute nouvelle par ici, j'ai toujours trouvé par moi-même mais là.... je sèche :-(
Je sollicite votre aide concernant une macro dans le cadre de mon travail ....

J'ai un tableau avec des résultats, Tous ces resultats sont nommés "concentration" dans gestionnaire de noms.

Je cherche une macro depuis 2 jours qui me permet de tenir compte de la valeur saisie dans une cellule F13 de mon tableau et de changer le nombre de décimales en fonction de la valeur saisie dans F13

J'espère être compréhensible,
Fanny

 

[Phil69970]

Bonjour @Fanouille

J'espère être compréhensible,

Avec un fichier cela devrait être limpide 😉

 

[sylvanu]

Bonjour Fanouille, et bienvenu(e) sur XLD,
Un exemple en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [F13]) Is Nothing Then [I18:L29].NumberFormat = "0." & Application.Rept("0", [F13])
Fin:
End Sub

 

[job75]

Bonjour,

tenir compte de la valeur saisie dans une cellule F13

Je comprends qu'il peut s'agir d'une valeur décimale dont il faut afficher toutes les décimales.

Alors exécutez :

Sub Test()
With [F13]
    .NumberFormat = "0." & String(Len(Mid(.Value, InStr(.Value, Application.DecimalSeparator) + 1)), "0")
End With
End Sub

A+

 

[sylvanu]

Re,
Avez vous lu nos posts ?
Car les macros de Job et moi sont très simples à implémenter.

Si c'est ma compréhension du problème qui est la bonne, un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [F13]) Is Nothing Then [F15:G37].NumberFormat = "0." & Application.Rept("0", [F13])
Fin:
End Sub

J'ai rajouté une liste déroulante en F13 pour simplifier.

 

[Fanouille]

OHhhh top c'est exactement ça ;-)
Je vous remercie et vous souhaite une belle journée ;-)
Fanny

 

[sylvanu]

Avez vous lu nos posts ?

Surtout, ne répondez pas aux questions. 🙂

 

[Fanouille]

Oups ! pardon de cette impolitesse :-(
Oui j'ai bien lu les différents posts mais je souhaitais l'ajouter à ma macro "mise à jour" existante... mais votre solution est encore mieux donc super c'est top
Merci ;-)