Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel concaténer un nombre avec un % en vba

concaténer un nombre avec un % en vba

4 réponses
Avatar
JB
Bonjour,

Je cherche à remplacer la valeur d'une cellule par cette même caleur, ajouté
d'un pourcentage et de quelques lettres, exemple:

18,465 --> 18%AbC

J'utilise la formule suivante, inclue dans une boucle:

Cells(l, c)= Application.WorksheetFunction.Text(Cells(l, c ), "0") & "%" &
T_res(j, 1)

( T_res() est un tableau de chaines de caractères)

Cette formule marche plutôt bien , sauf lorsque T_res(i,j)="": alors mon
18,465 devient 0,18465 et s'affiche "0".

Comment résoudre le pb SVP????

D'avance merci!
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Essaye ça :

Cells(l, c) = Format(Cells(l, c) / 100, "0.00%") & T_res(j, 1)

AV
Avatar
jb
Merci, ça marche bien mais j'aimerais ne pas avoir de chiffres après la
virgule; si je mets "0%" au lieu de "0.00%" je me retrouve avec le même
problème!

"AV" wrote:

Essaye ça :

Cells(l, c) = Format(Cells(l, c) / 100, "0.00%") & T_res(j, 1)

AV





Avatar
AV
.......... mais j'aimerais ne pas avoir de chiffres après la virgule


A tester :
Cells(l, c) = Format(Int(Cells(l, c)) / 100, "0.00%") & T_res(j, 1)

AV

Avatar
Frédéric Sigonneau
Ou

Cells(l, c) = Format(Int(Cells(l, c)) / 100, "0%") & T_res(j, 1)

si "ne pas avoir de chiffres après la virgule" signifie en fait ne pas avoir de
virgule du tout...

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

.......... mais j'aimerais ne pas avoir de chiffres après la virgule



A tester :
Cells(l, c) = Format(Int(Cells(l, c)) / 100, "0.00%") & T_res(j, 1)

AV