Discussion :

[_developpeur_]

Bonjour,

avec vba je crée des graphiques à l'horizontale sur une feuille excel.

comme j'ai des cas ou il y a beaucoup de graphiques je dépasse les 256 colonnes d'excel.

Il faudrait que quand j'arrive a la fin du tableur je puisse reprendre la création des graphiques a la premiere colonne en dessous de ceux déja crées.

J'ai une idée, mais peu être que ce n'est pas la bonne, tester a chaque création de graphique la colonne sur laquelle je me trouve avec la méthode Address, mais je vois pas trop comment faire...

Avez-vous une idée svp ?

merci

[Daniel.C]

Bonjour,

Mettons que tes graphiques ne fasses pas plus de 500 points de largeur :

Code :

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

1
2
3
4
5
6
Dim LargMax As Double
LargMax = [IV1].Left + [IV1].Width - 500
'après création de chaque graphique, on teste
If ActiveChart.Left > LargMax Then
    'on reprend à gauche
End If

[_developpeur_]

Bonjour Daniel.C et merci pour ta réponse.

Mes graphiques ont une largeur variable, le width équivaut a la largeur du tableau de la source des données dont le nombre de colonne peut varier de 2 à 16.

Et que veut dire IV1 dans ton code ?

Merci

[Paritec]

Bonjour Developpeur le forum
en l'absence de Daniel
IV1 signifie colonne IV ligne 1 donc dernière colonne dans un fichier .xls
a+
papou

[Daniel.C]

Bonjour,
@_developpeur_ :
Si toutes tes colonnes ont la même largeur, remplace "500" par :

Code :

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

[A:P].Width

La macro doit être exécutée après chaque création de graphique.

[kiki29]

Salut, à lire également dans la FAQ

[_developpeur_]

....
Si toutes tes colonnes ont la même largeur, remplace "500"..

merci Daniel.C, malheureusement toutes les colonnes n'ont pas la même largeur, c'est variable.

Bonjour,

....

ok merci je vais regarder comment utiliser BottomRightCell, même si je ne vois pas trop comment faire encore, je ne suis pas un expert VBA.

je vous tiens au courant

merci

[Didier Gonard]

Bonjour,

Mes graphiques ont une largeur variable, le width équivaut a la largeur du tableau de la source des données dont le nombre de colonne peut varier de 2 à 16.

avec les propriétés à suivre, donc la colonne extrême de ton dernier Graph, la largeur du prochain (citation ci-dessus) et ce qui a déjà été dit, tu devrais avoir ce qu'il faut

Tu peux utiliser les propriétés :

ChartObject.TopLeftCell, propriété
Cette propriété renvoie un objet Range qui représente la cellule se trouvant sous le coin supérieur gauche de l'objet spécifié. Type de données en lecture seule.

Référence du développeur Excel
ChartObject.BottomRightCell, propriété
Cette propriété renvoie un objet Range qui représente la cellule placée sous le coin inférieur droit de l'objet. Type de données en lecture seule.

tu as un exemple d'utilisation ici :

Code :

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

1
2
3
4
5
For Each objShape In .Shapes '
     If Not Intersect(Range(objShape.TopLeftCell.Address & ":" & objShape.BottomRightCell.Address), .Range(tabvarPrintArea(I))) Is Nothing Then
         Exit Function 'si c'est le cas, on sort
     End If
Next objShape

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier