Discussion :

[Novice72]

Bonjour à tous,

Voilà, j'ai un petit problème que j'arrive pas à résoudre. Grâce à vous " j'ai " réussi à avoir autant de graphiques qu'il y a d'élèves suivant telle ou telle classe.
Ces graphiques sont maintenant bien positionnés sur une autre feuille que la feuille des données sources ( par ordre alphabétique à raison de 3 par ligne avant de passer à la ligne suivant ). VOIR LE FICHIER JOINT qui n'est qu'une petite partie d'un gros fichier que je ne peux envoyer car trop lourd (8,2Mo)

Mon problème est que si j'ajoute ce fichier joint au reste de mon module, il y a un problème d'affichage. Je me suis arrangé que chaque graphique corresponde à une cellule ( seulement posé dessus )
Les premières lignes s'affichent normalement puis, à la 5 ou 6ème ligne, les 3 graphiques de cette ligne ont doublés de hauteur prenant 2 cellules chacun.
BIZARRE ?????

J'ai remarqué qu'avec le nombre de ligne qui augmente, le bas du graphique ne correspond plus ou pas assez au bas de la cellule que je souhaite.
Pourtant, j'ai pris hauteur graphique = hauteur ligne ( 12,75 ) avant agrandissement .... et de nombreux essais.... Rien n'y fait

Je me suis dit qu'il serait préférable de LIER chacun de mes graphiques sur des cellules plutôt que de dimensionner les graphiques. après, il est facile de modifier la largeur d'une colonne et hauteur d'une ligne..... soit UN GRAPHIQUE = UNE CELLULE

Sur le code ci-dessous que j'ai trouvé sur un forum de ce site, a part remplacer B1 et F10 pour n'avoir qu'une cellule et non une plage, je n'arrive pas adapter ce code pour mon fichier joint.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim MonGraph As ChartObject
Dim Gauche As Single, Haut As Single, Largeur As Single, Hauteur As Single
Gauche = Range("B1").Left
Haut = Range("B1").Top
Largeur = Range("F10").Left + Range("F10").Width - Gauche
Hauteur = Range("F10").Top + Range("F10").Height - Haut
Set MonGraph = ActiveSheet.ChartObjects.Add(Gauche, Haut, Largeur, Hauteur)

Merci d'avance.

NOVICE72

[Jean-Philippe André]

Salut,

on évite de mettre en PJ des fichiers des le premier post.

Le code que tu nous mets a disposition semble coherent avec ce qu'il faut utiliser, mais a quel niveau rencontres-tu un probleme pour l'adapter a ton code ?

[Novice72]

Bonjour,

Justement le petit fichier fonctionne très bien ( celui qu'on m'a aidé à terminer de réaliser )......
Par contre, comme je le disais dans mon premier post, lorsque j'insère ce programme à un gros programme ( je ne fait qu'adapter le nom des feuilles du code )et là, toutes les 6ème ligne de graphiques ( les 5 premières utilisées pour afficher les 15 premiers graphiques c'est OK ) les 3 graphiques s'affichent sur 2 lignes

La 7ème ligne de graphique si tu préfères s'affiche sur la ligne 8.....


Cordialement


NOVICE72

[Jean-Philippe André]

Tu n'as pas des cellules fusionnees par hasard ?

[Novice72]

(re)bonjour,

Non, il n'y a aucune cellules fusionnée.....


Merci pout ton dévouement.


NOVICE72