Microsoft 365 Alterner entre 2 taux (pourcentage)

[pat66]

Bonjour le forum,

Je n'arrive pas à écrire la macro suivante qui fait en sorte que le résultat dans N35 soit au format pourcentage

Sub Ellipse2_Cliquer()
Feuil1.[N35] = Array(3.27, 3.07)(Abs(Feuil1.[N35].Value = 3.27)) ' résultat souhaité dans N35, soit 3.27% soit 3.07%
End Sub

merci d'avance pour votre aide

 

[Hecatonchire]

Bonjour,

Feuil1.[N35] = IIf(Feuil1.[N35].Value = 3.27, 3.07, 3.27)

 

[pat66]

Bonjour,

désolé, mais cela m'affiche, soit 327% soit 307% car la cellule est au format % et si je supprime le format % dans la cellule cela écrit 3.07 ou 3.27, mais pas le %, c'est pour cela que je souhaiterai préciser % dans la macro

 

[Hecatonchire]

Divise par 100

Feuil1.[N35] = IIf(Feuil1.[N35].Value = 0.0327, 0.0307, 0.0327)

 

[danielco]

Bonjour,
Pour écrire un pourcentage dans une cellules :

Feuil1.[N35] = "3.27%"

Daniel

 

[pat66]

Bonjour,
Pour écrire un pourcentage dans une cellules :

Feuil1.[N35] = "3.27%"

Daniel

bonjour,
j'ai testé votre proposition mais je ne suis arrivé à la faire fonctionner
merci

 

[danielco]

bonjour,
j'ai testé votre proposition mais je ne suis arrivé à la faire fonctionné
merci

Tu veux dire que la ligne n'écrit pas 3.27% dans la cellule ?

 

[pat66]

Bonjour,

Feuil1.[N35] = IIf(Feuil1.[N35].Value = 3.27, 3.07, 3.27)

Bonjour j'ai testé votre proposition, mais pour avoir ce résultat avec % j'ai du la modifié ainsi :

Feuil1.[N35] = Array(3.27 / 100, 3.07 / 100)(Abs(Feuil1.[N35].Value = 3.27 / 100))

 

[pat66]

Tu veux dire que la ligne n'écrit pas 3.27% dans la cellule ?

oui effectivement

 

[danielco]

oui effectivement

Par curiosité, ça écrit quoi ?

 

[danielco]

oui effectivement

Adapté à ta ligne :

Feuil1.[N35] = Array("3.27%", "3.07%")(Abs(Feuil1.[N35].Value = 0.0327))

 

[pat66]

re,

Un grand merci à tous pour votre aide et vos solutions qui fonctionne parfaitement

La solution de danielco respecte bien l'affichage avec le % sans aucune manipulation (division)
Je la désigne donc comme la solution à mon problème même si j'ai bien aimé l'usage du IIf de Hecatonchire

Bonne journée à tous

 

[danielco]

même si j'ai bien aimé l'usage du IIf de Hecatonchire

Dans ce cas, mets :

Feuil1.[N35] = IIf(Feuil1.[N35].Value = 0.0327, "3.07%", "3.27%")

Daniel