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

Fanouille · 30 Août 2023

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 · 30 Août 2023

Bonjour @Fanouille

Fanouille à dit:
J'espère être compréhensible,

Avec un fichier cela devrait être limpide

sylvanu · 30 Août 2023

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

VB:

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 · 30 Août 2023

Bonjour,

Fanouille à dit:
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 :

VB:

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

A+

sylvanu · 31 Août 2023

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 :

VB:

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 · 31 Août 2023

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

sylvanu · 31 Août 2023

sylvanu à dit:
Avez vous lu nos posts ?

Surtout, ne répondez pas aux questions.

Fanouille · 31 Août 2023

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 ;-)

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

Fanouille

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Fanouille

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Fanouille

XLDnaute Nouveau

Discussions similaires