Cellules avec référence et texte

Signaler
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
-
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
-
Bonjour,

je souhaite connaître la syntaxe à utiliser pour faire apparaître

dans une cellule la valeur d'une variable ainsi que du texte

ex:

Cells(I + 7, 22).Select
Selection = "+" & bpourcent & "%"


merci d'avance

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut
De quel type est ta variable bpourcent, comment l'as-tu déclarée, dimensionnée ?

Que veux-tu faire ?
- Afficher le texte "+18%"
Cells(I + 7, 22).Value = "'+" & CStr(bPourcent) & "%"
Tu noteras le ' devant le + afin que Excel ne confonde pas le + avec un ordre de calcul

- Calculer un nouveau chiffre qui serait 18% plus grand que l'original ?
Comme on l'a appris en 6ème, ajouter un pourcentage à un chiffre :
monChiffre monChiffre * (1 + monPourcentage / 100)
Cells(I + 7, 22).Value Cells(I + 7, 22).Value * (1 + (bPourcent / 100))


Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
1
Ok Merci pour la réponse, j'aimerai encore savoir comment faire pour supprimer les décimales de la variable.

bPourcent = 100 * Abs(b) / bmax
bPourcent.NumberFormat = "0"

Cells(I + 7, 22).Value = "'+" & CStr(bPourcent) & "%"


Merci