Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Fanouille

XLDnaute Nouveau
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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

Fanouille

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…