Représentation graphique possible sur excel via VB ?

Bonjour,

Je souhaiterais, à partir de valeurs issue d'une procédure VB, faire une représentation graphique de mes résultats dans une feuille excel.

Cette procédure doit déterminer combien de module faisant X m² peuvent entrer dans une surface de Y m², et ce uniquement en portrait OU en paysage.

La procédure étant faite, j'aimerais en faire une représentation graphique généré automatiquementà la fin de la procédure, mais les outils me manque afin d'arriver à un résultat. ma procédure me donne le nombre de module maxi pour la présentation portrait et paysage.

Pouriez vous m'éclairer ? dans un premier temps je me moque de l'échelle, je souhaite savoir si c'est possible et dans quelle mesure c'est accessible pour un apprenti comme moi :)

Bonjour,

Oula c'est pas clair 8O

Faisons simple :
- As-tu des données sur une feuille ? Où sont-elles ? Sont-elles classées en ligne, colonne ? Donne-nous les numéros correspondants.
- Sont-elles dans des variables, tableaux ou autres ?
- Quel type de graphique veux-tu (histo, courbe...) ?
- Parmi tes données, lesquelles doivent aller où (abscisses, ordonnées, séries...)
- Etc.

Bref, donne-nous des données CONCRETES. On ne connaît rien à ton problème original. Perso, je ne sais même pas de quoi tu parles.

Sinon, ça doit être possible de faire ce que tu veux vu le nombre de graphiques gérés par Excel...

En fait, c'est plutot un schéma qu'un graphique :/ ( dsl pour l'erreur de vocabulaire )

J'ais un toit ( rectangulaire ou trapèzoidale ) d'une surface X, et des modules rectangulaires à poser dessus.

Le nombre de module est déterminé par la procédure et est écrit sur une feuille feuil1 dans une cellule. J'aimerais faire une feuille par schéma afin de faciliter la compréhension.

Les dimensions du modules sont entrée dans une autre feuille ( Feuil2 ), longueur et hauteur sont dans les colonnes B et C de la feuille en question, chaque ligne étant réservé à un type de module.

Les dimensions du toit sont entrée via un userforme sont stocké dans deux cellules de la feuil1.

En espérant avoir été plus clair :s

Re,

En ce qui concerne ton problème, tu as toutes les données de base nécessaires à la réalisation de ton "schéma". Ca c'est bon :ccool:

Cependant, ce que tu cherches à faire c'est du "dessin graphique" avec VBA. Alors oui, c'est possible mais, perso, je n'ai pas de connaissances sur le sujet pour l'instant et je n'ai pas le temps de m'y mettre.

Bref, aucune idée si c'est compliqué, laborieux ou autre...

Il va falloir faire des recherches ! Commence donc par les tutos. Tu auras ainsi des exemples, des conseils sur les références utiliser etc.

Bonne chance !

Bonjour !

Après plusieurs recherches je me suis penché sur la représentation graphique avec les formes automatiques d'excel. J'ais fais de mon mieux via l'enregistreur de macro, j'ais donc résussi à créer le toit, et le "pavé" formé par tout mes modules.

seulement j'aimerais savoir comment diviser le pavé en plusieurs rectangles de longueur et largeur égales afin de représenter la place de chaque module.

La longueur et largeur des rectangles, je la connais.

Est-il possible de faire ça sous excel? ou suis je condamné à créer, redimentionner et placer chaque rectangle sur le toit? ( il y a parfois plus de 200 modules, si je dois vraiment en passer par la je préfèrerais automatiser tout ça )

Salut,
Comme Dead78 n'as pas trop de temps et que mois oui :) je me permets d'intervenir.
J'imagine que par l'enregistreur tu as obtenu quelque chose du genre:

Code:

---

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 297#, 75#, 22#, 111#).Select

---

Si tu fais une recherche sur AddShape tu verras que les données représentent le Type (rectange pour l'exemple), la position par la gauche, la position par le haut, la largeur, la hauteur.
Donc en connaissant le nombre et la position initiale du premier, tu peux passer par des variables dans une boucle.
Petit exemple qui créer des rectangles identiques les uns en dessous des autres:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

l = 142 'donne la valeur initiale à Left t = 39 'Donne la valeur initiale à Top w = 480 'Donne la valeur initial à Width h = 180 'Donne la valeur initial à Height   For nb = 1 To 4 ActiveSheet.Shapes.AddShape(msoShapeRectangle, l, t, w, h).Select l = l 'L'alignement à gauche reste le même; à adapter pour le cas concrèt via une double boucle t = t + h 'L'alignement par le haute est incrémenter la hauteur de la forme précédente Next nb   End Sub

---

Il te reste à dimensionner les variables et à récupérer les valeurs via tes feuilles (je crois qu'elle sont dispos si j'ai bien suivi)
Bonne continuation

C'était exactement ce dont j'avais besoin :)

J'avais pas pensé à mettre en variable les dimensions, honte à moi ^^'

Merci :)