Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Excel, format d'afficahde de décimale dépandant d'un nombre

2 réponses
Avatar
Plum
Bonjour, merci pour tous ceux qui prennent le temps de=20
lire mon message pour y r=E9pondre.
Mon probl=E8me est que suite =E0 une entr=E9 d'un nombre je=20
voudrait que le format du r=E9sultant d'un =E9quation math=E9=20
matique contiennent autant de chiffre d=E9cimale que le=20
nombre entr=E9e. Voici un exemple.
je rentre A1:9,00 et B1:15%(case en format %), =E9quation=20
effectuer par excel B1*A1 =3D 1,350000. Ce chiffre je=20
voudrais qu'il soit 1,35. J'ai pas un nombre de d=E9cimale=20
fix a chaque entr=E9 d'un nombre.

Merci =E0 tous

2 réponses

Avatar
Jacky
Bonsoir Plum

Avec une copie de format de la cellule d'entrée(a1) vers la cellule de
résultat du genre

Range("A1").Select ' cellule d'entrée
Selection.Copy
Range("C4").Select ' cellule résultat
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks: _
False, Transpose:úlse
Application.CutCopyMode = False

Cela ne te convient pas
JJ

"Plum" a écrit dans le message news:
5cb201c3e5bc$baeca870$
Bonjour, merci pour tous ceux qui prennent le temps de
lire mon message pour y répondre.
Mon problème est que suite à une entré d'un nombre je
voudrait que le format du résultant d'un équation mathé
matique contiennent autant de chiffre décimale que le
nombre entrée. Voici un exemple.
je rentre A1:9,00 et B1:15%(case en format %), équation
effectuer par excel B1*A1 = 1,350000. Ce chiffre je
voudrais qu'il soit 1,35. J'ai pas un nombre de décimale
fix a chaque entré d'un nombre.

Merci à tous
Avatar
ChrisV
Bonjour Plum,

Pourquoi ne pas utiliser tout simplement l'outil "Reproduire la mise en
forme" de A1 vers la cellule contenant le calcul ?
Si tu désires néanmoins avoir cela en automatique, et en supposant que la
cellule de calcul se situe en B3 par ex.

Dans la feuille de code de l'onglet concerné:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then _
[B3].NumberFormat = Target.NumberFormat
Application.EnableEvents = True
End Sub


ChrisV


"Plum" a écrit dans le message de news:
5cb201c3e5bc$baeca870$
Bonjour, merci pour tous ceux qui prennent le temps de
lire mon message pour y répondre.
Mon problème est que suite à une entré d'un nombre je
voudrait que le format du résultant d'un équation mathé
matique contiennent autant de chiffre décimale que le
nombre entrée. Voici un exemple.
je rentre A1:9,00 et B1:15%(case en format %), équation
effectuer par excel B1*A1 = 1,350000. Ce chiffre je
voudrais qu'il soit 1,35. J'ai pas un nombre de décimale
fix a chaque entré d'un nombre.

Merci à tous