Solution macro

[juju81]

Bonjour,

Une macro a été paramétrée pour l’intégration d’un fichier csv (colonnes A à L) et la saisie d’une formule en colonne M :

Dim maFeuille as object
       	maFeuille= Thiscomponent.Sheets.getByName("10-TxErreur") 
    	'Import du fichier csv
    	LectureCSV(choixDossier,mafeuille)							
    	MsgBox("L'import du fichier 10-Taux d'erreur est terminé.",64+0,"Fin de traitement")
dim oSheet as object, oCell as object, oRange as object
dim sFormule as string
dim i as long
sFormule = "=E1&F1"
oSheet = thiscomponent.sheets.getByName("10-TxErreur")
oCell = oSheet.getCellRangeByName("M1")
oCell.Formula = sFormule
oRange = oSheet.getCellRangeByName("M1:M25000")
oRange.fillSeries(com.sun.star.sheet.FillDirection.TO_BOTTOM,com.sun.star.sheet.FillMode.SIMPLE,0,0,0)
End sub

Les fichiers csv pouvant être de taille très variable, la macro copie par défaut la formule jusqu’à la ligne 25000.

Ma question : Y-a-t’il une solution qui permettrait d’ajuster la copie de la formule jusqu’à la dernière ligne utilisée ?

Merci d’avance pour vos retours.

[PYS]

Bonjour @juju81

Oui, il existe des instructions permettant de trouver la plage utilisée : voir cette page de notre wiki.

Cordialement

[juju81]

Merci pour la réponse.
Néanmoins, je n’arrive pas à adapter ma macro.
Auriez-vous un exemple à me proposer ?
Merci

[PYS]

@juju81 il faudrait être plus précis sur la question car la page de wiki indiquée donne des exemples.

Cordialement

[juju81]

Aujourd’hui, la macro permet, après intégration d’un csv sur les colonnes A à L, de créer en P1 la formule “E1&F1” et de la copier jusqu’à la cellule P25000. Je souhaiterai, si cela est possible, compléter la macro de manière que la formule soit recopiée non pas jusqu’à la ligne 25000 mais jusqu’à la dernière ligne du tableau csv (ex : si le csv a 4500 lignes, la formule est recopiée jusqu’à la cellule P4500).

[PYS]

@juju81 oui, cela j’avais compris… mais tu ne dis pas ce que tu ne comprends pas dans les exemples du wiki