Version imprimable
Bonjour,
J'écrit dynamiquement dans un fichier excel (avec tExcelApplication) et j'aimerais ajouter du texte à celui déjà existant s'il y en a.
J'ai fait ça:
while VarToStr(MaFeuille.Cells.Item[index,1].Value)<>'' do
index := index+1;
Mais ça devient très lent s'il y a beaucoup de données déjà... Y a t-il une manière plus efficace ?
En clair: Comment obtenir la première celule vide d'une colone ?
Merci d'avance.
Chaque accès à Excel est assez lent, il faut se débrouiller pour en faire le moins possible.
Dans ton cas, pas de solution, a moins d'utiliser une fonction ou macro d'excel pour que la recherche soit faite par Excel et non par ton prorg.
Mais là je ne sais pas, pour le coté Excel...
Bonjour TicTacToe,
Je me disait qu'avec:
http://delphi.developpez.com/faq/?pa...celplalignecol
Pour récuperer la colone A1 entière et:
http://delphi.developpez.com/faq/?pa...plaparticulier
Pour en extraire la première colone vide, ca pourrait être plus rapide, nan ?
Par contre, je n'ai pas réussi à l'utiliser.
En effet, MaFeuille.UsedRange[0].SpecialCells n'attends pas le param de la plage 'colone A' pour chercher dedans.
De plus, avec la valeur renvoyée: 'rMaPlage' je n'arrive pas à en extraire la position de la première cellule.
Est ce que je m'égare ?
Si non, uniquement: rMaPlage:=MaFeuille.Range['A1',EmptyParam].EntireColumn; rappatrie t-il la colone dans le programme Delphi ou chaque attaque sur rMaPlage se fait-elle dans excel ?
Si c'est le cas, je me disait que je pourrais faire ma boucle sur cette plage, ce serait plus rapide, nan ?
PS: je ne peut pas utiliser des macros.
J'utilise UsedRange pour définir la zone d'impression pour ma part.
Mais je pense que c'est une bonne direction
et peut-être faut-il chercher un truc du style
pour écrire sur la ligne Y + 1.Code:WS.UsedRange[ 0 ].( Y inferieur du range)
si le UsedRanged renvoie ( A1:F4 ), il faut tenter de récupérer le "4". Là je ne sais pas comment faire à froid :? mais je pense que c'est la bonne direction pour toi.
Ok, donc mon idée d'utiliser des plages est donc mauvaise, selon toi. :roll:
UsedRange renvoie la dernière ligne utilisée alors... Mais si l'utilisateur a ouvert le classeur entre deux écritures et à édité une cellule au milieu.
UsedRange renvoie quoi ?
non non, au contraire, je pense que c'est plutot une bonne solution d'utiliser UsedRange. :)
UsedRange, doit renvoyer les coord de la zones utilisée, c'est donc ce qui t'interesse, puisque tu veux écrire après la zone utilisée.
Je crois qu'il renvoie la plus petite région contigue contenant toute cellule renseignée, même s'il y a des trous à l'interieure...
si on considère que UsedRange renvoie qqchose du style (x1,y1) / (x2,y2), je ne connais pas la syntaxe permettant d'extraire le fameux y2, pour que toi de ton coté tu puisses commencer à utiliser la feuile à partir de y2 + 1.
J'essaye...
Par contre, j'ai passé en revue toutes les propriétés de UsedRange, je n'ai pas réussi à trouver ce qui peut me permettre de reperer son n° de ligne.
Youpi, j'ai eureka la solution:
index := MaFeuille.UsedRange[0].Cells.Count+1;
Merci pour ton coup de pouce.