Hauteur des cellules en fonction de leurs valeurs?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Hauteur des cellules en fonction de leurs valeurs?

bookmakerconsulting

Bonjour a tous,

Sous Excel, je dispose de valeurs en colonne (lignes 7 à 26) ainsi que d'un total (ligne 5).
J'aimerais que chaque cellule ait une hauteur en fonction de sa valeur (base de 12 pour une cellule qui fait 5% du total).

Exemple : Une cellule prend comme valeur 10, celle d en dessous 20. Le total est donc de 30.
Je veux que la 1ere cellule fasse en hauteur 12*(10/30)/0.05 et que la 2eme fasse 12*(20/30)/0.05

Je n'arrive pas à incorporer la valeur de la cellule dans ma fonction VB donc si qqun pouvait m'aider, ca serait super cool.

Merci

Publicité

MagicBuzz

commence par poster ton bout de code actuel

ps : à noter qu'un graphe "histograme cumulé" me semble plus propre comme solution

Message édité par MagicBuzz le 10-04-2007 à 15:36:39

bookmakerconsulting

Voici le code que j'ai pour une cellule mais l'utilisation du Value ne me parait pas bonne...

Range("E11" ).Select
Rows("11:11" ).RowHeight = Cells("E11" ).Value * 18 / Cells("E5" ).Value

MagicBuzz

Value2 pour récupérer la valeur. Value contient la formule lorsque c'est une formule

MagicBuzz

Et j'imagine que dans ton cas :

Cells("E5" ).Value = "=sum(E7:E26)"

bookmakerconsulting

ok merci.

Cependant, j ai une erreur : "Incompatibilité de type"

MagicBuzz

ben fait des débug.
et tente un CInt() autour de la valeur

bookmakerconsulting

Le Débug m'indique que l'erreur est la, mais je n'arrive pas à la déceler.
Peux-tu me dire si qqch te saute aux yeux?

Rows("11:11" ).RowHeight = Cells("E11" ).Value2 * 18 / Cells("E5" ).Value2

Merci

MagicBuzz

quand je parle de debug, colle des msgbox partout avant cette ligne, afin d'afficher :

Cells("E11" ).Value2
Cells("E5" ).Value2
Cells("E11" ).Value2 * 18 / Cells("E5" ).Value2
et
Rows("11:11" ).RowHeight

(parceque j'ai pu me planter entre Value et Value2, je sais jamais lequel contient la formule en fait )

AprilThe5th

"Cells" ne supporte pas la nomenclature excel de type "E11" ; soit tu remplaces "cells" par "range" soit tu remplaces cells("E11" ) par cells(11,5)

voila

Publicité

AprilThe5th

Sinon, concernant .value ou .value2, les 2 donnent le même résultat dans le cas d'une valeur stricte (12 p. ex.) ou d'un calcul excel (=6*2).

Message cité 1 fois

MagicBuzz

AprilThe5th a écrit :

Sinon, concernant .value ou .value2, les 2 donnent le même résultat dans le cas d'une valeur stricte (12 p. ex.) ou d'un calcul excel (=6*2).

chelou en effet

MsgBox (Cells(3, 1).Formula) <- c'est ça qui affiche la formule...

Effectivement, j'ai dit une connerie à propos de Value et Value2.
D'après la doc :

Citation :

La seule différence existant entre cette propriété et la propriété Value réside dans le fait que la propriété Value2 n'utilise pas les types de données aux formats Currency et Date. Vous pouvez retourner des données de ce type sous forme de nombres à virgule flottante en utilisant le type de données Double.

Me coucherai moins con ce soir

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Hauteur des cellules en fonction de leurs valeurs?

Sujets relatifs
fonction qui retourne un pointeur	[VBS] [résolu]Pb avec fonction STRCOMP
Augmenter les valeurs d'une colonne de 10%	appliquer une fonction js a toutes balises input
Fonction mysql_fetch_assoc	[XSL]recuperer des valeurs
fonction avec table hash en parametre	Erreur d'accès ambigu à une fonction membre après dérivation multiple
comment utiliser cette fonction	[VB]comment entre 3 valeurs faire apparaitre la plus basse?
Plus de sujets relatifs à : Hauteur des cellules en fonction de leurs valeurs?

Page générée en 0.057 secondes