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

Phil69970

XLDnaute Barbatruc

• 30 Août 2023

• #2

Bonjour @Fanouille

Fanouille à dit:

J'espère être compréhensible,

Cliquez pour agrandir...

Avec un fichier cela devrait être limpide 😉

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 30 Août 2023

• #3

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

 

Pièces jointes

• Fanouille.xlsm

  15.4 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Août 2023

• #4

Bonjour,

Fanouille à dit:

tenir compte de la valeur saisie dans une cellule F13

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Août 2023

• #5

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.

 

Pièces jointes

• TEST DECIMALE.xlsm

  23.9 KB · Affichages: 9

Vote positif 0 Vote négatif

F

Fanouille

XLDnaute Nouveau

• 31 Août 2023

• #6

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Août 2023

• #7

sylvanu à dit:

Avez vous lu nos posts ?

Cliquez pour agrandir...

Surtout, ne répondez pas aux questions. 🙂

 

Vote positif 0 Vote négatif

F

Fanouille

XLDnaute Nouveau

• 31 Août 2023

• #8

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

 

Vote positif 0 Vote négatif