Discussion :

[Westood5]

Bonjour à tous,

Je rencontre depuis hier un petit souci avec le format en pourcentage lors de l'utilisation de NumberFormat.

De façon assez classique j'utilise la ligne de code suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
resultSht.Range(Chr(67 + i) + "9").NumberFormat = "0.0%"

En effet je veux mettre le nombre de ma cellule en pourcentage avec un seul chiffre après la virgule.

Lorsque je fais tourner la macro sur mon poste (Excel 2016) j'ai au début le nombre suivant 0,58 , par exemple, et après exécution de la macro, cela se transforme en 58,0%.

Jusque là tout va bien.

Par contre sur le poste d'un de mes collègues, lorsque qu'on fait tourner la même macro, 0,58 se transforme en 0.6%.
On remarque donc que le chiffre n'est pas transformé en % ainsi que l’apparition du "." au lieu de la virgule.
A savoir, mon collègue utilise Excel 365.

Quelqu'un aurait-il une idée du pourquoi du comment?

En espérant avoir été assez clair, n'hésite pas à me le dire si ce n'est pas le cas.

Merci d'avance.

[Zekraoui_Jakani]

Votre collègue n'a probablement pas les mêmes paramètres régionaux pour ce qui est du séparateur décimal ("," ou ".") ainsi que le séparateur des milliers. A vérifier via un code simple dans la fenêtre immédiate (débogage) en tapant "?1/2"; le résultat sera 0.5 ou 0,5 en fonction du séparateur prédéfini.

[Philippe Tulliez]

Bonjour,
Pour compléter la réponse de Zekraoui_Jakani, que je salue, je te conseille la lecture du Tutoriel de Jean-Philippe André Excel et les paramètres régionaux : Application.International

[Westood5]

Bonjour,

Merci pour votre retour.

J'avais justement vérifié cette histoire de région.

Dans le doute, j'ai fais ce que vous m'avez dit de faire et le résultat est bien 0,5

EDIT : Merci Philippe, je vais aller lire, mais je doute que ce soit mon problème.

[Menhir]

De façon assez classique j'utilise la ligne de code suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resultSht.Range(Chr(67 + i) + "9").NumberFormat = "0.0%"

Ca n'a rien à voir avec la demande, mais ton Range pourrait s'écrire plus simplement ainsi : Cells(9, 3 + i).

D'autant plus que ta méthode ne fonctionnera plus si "i" dépasse 23 alors qu'il n'y a aucun problème en utilisant Cells.

D'une manière générale, il est préférable d'utiliser Cells (cellule) pour une cellule unique et Range (zone) pour un ensemble de cellules.
Pour les variables, ces deux objets sont de type Range (Cells n'existe pas en tant que type de variable).

[Westood5]

Bonjour,

Merci Menhir. En effet, j'aurai dû utiliser Cells, car en plus j'ai justement fait toute un gestion pour gérer le fait que i dépasse 23 et pour que cela puisse continuer de marcher. Je me suis pris la tête pour rien...

Encore merci.

Par contre concernant mon souci, ce n'est pas un problème de région. Nous avons les mêmes paramètres avec mon collègue, sauf la version d'office.

[Pierre Fauconnier]

Salut.

Tu peux donner le code qui entoure la ligne que tu as donnée au #1? Le 0.58, il est présent avant l'exécution de toute la macro ou bien est-ce la macro qui place la valeur dans la cellule?

[Westood5]

Salut Pierre,

Le 0,58 (avec la virgule) est le résultat d'une formule directement mise par la macro. Que je souhaite ensuite mettre en pourcentage.

Sur mon poste c'est bien 58% qui se met, celui de mon collègue 0.6% (donc même pas converti en pourcentage).

Ci-dessous le code qu'il y a juste avant et qui fait le calcul :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
F = "=IF(" & Chr(67) & LTrim(Str(FirstLine - 1)) & "<>0,(" & Chr(68) & LTrim(Str(FirstLine - 1)) & "/" & Chr(67) & LTrim(Str(FirstLine - 1)) & ")-1,""-"")"
resultSht.Range(Chr(67 + i) + "9").Formula = F
resultSht.Range(Chr(67 + i) + "9").NumberFormat = "0.0%"

Merci