1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

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

Réponse 1 / 2
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)
Réponse 2 / 2
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
Répondre Posez votre question