détecter la fin du tableur excel

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

Bonjour,

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

Code:

---

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

---

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

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:D

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

Code:

---

[A:P].Width

---

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

Salut, à lire également dans la FAQ

Bonjour,

Citation:

---

Envoyé par _developpeur_

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 :

Citation:

---

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.

---

Citation:

---

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:

---

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

Citation:

---

Envoyé par Daniel.C

....
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.

Citation:

---

Envoyé par Ormonth

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

Bonjour,

La place disponible exprimée en points après chaque création de graphique est donnée par :

Code:

---

1 2 3 4

Dim EspaceRestant As Double With Sheets("Feuil1") EspaceRestant = .[IV1].Left + .[IV1].Width - .ChartObjects(.ChartObjects.Count).Left End With

---

Merci Daniel.C bon pour être franc je ne vois pas comment m'en sortir en travaillant avec les points puisque ceux-ci sont variable d'un graphique à l'autre, il faudrait que dans toutes mes combinaisons possibles je regarde combien de point au max un graphique pourrait faire...

Par contre j'ai peu $être une idée avec tout ce que vous m'avez dit, dites moi si ça peu marcher:

Comme je sais qu'au maximum un graphique peu être positionné sur 16 colonnes, avant la création d'un graphique, je compte combien de colonnes il me reste en m'aidant du range de bottomrightcell du dernier graphique crée et du range de IV.

S'il me reste plus ou 16 colonnes alors je peux le crée sinon je vais à la ligne, est-ce que ça roule ça ?

Merci.

Alors essaie comme ceci :

Code:

---

1 2 3 4 5

With Sheets("Feuil1") If 256 - .ChartObjects(.ChartObjects.Count).BottomRightCell.Column >= 16 Then 'tu peux créer un autre graphique End If End With

---

c'est pratiquement ce que je viens de faire à la différence près que je n'ai pas utilisé bottomrightcell mais la dernière colonne de la plage source du dernier graphique. Ce qui revient au même puisque le graphique est dimmensionné en fonction de la plage source. Et ça marche ! Merci.

Je ferme ce topic.