[Résolu][Calc] Enregistrement avec mise à la ligne sur feuille 2

[fonfonsd]

Bonjour

pas évident de dire ce que je veux en une ligne sur le titre.

Voila je travail sur un petit Calc pour du covoiturage. Ce tableur sera mis sur un serveur commun et les personnes rentreront les dates de leurs rendez vous à l'infirmerie et verront donc si d'autres personnes y vont à la même date.

J'ai donc fais à partir de la bibliothèque de code macro du forum un petit classeur, où dans la première page l'utilisateur rentre sont identité et sa date de rendez vous; puis une fois qu'il valide cela remplis la page 2.

Mon souci c'est que je ne trouve pas comment faire pour que chaque enregistrement se fasse sur la ligne suivante pour ne pas écraser la précèdente.

La mise en page pour l'instant est très très basique, mais je travaillerais l'apparence une fois le classeur fonctionnel.

Je vous en remercie par avance

[Dolev]

Bonsoir,

A tester :

Code : Tout sélectionner

Sub CopyZoneMemeClasseur()
Dim oDoc as Object, oRange as Object, aCopier as Object
	oDoc = thisComponent
	oRange = oDoc.Sheets(0).getCellRangeByName("A7:D7") ' la zone à copier
	oDoc.CurrentController.select(oRange) 'Sélection de la zone
	aCopier = oDoc.CurrentController.getTransferable() 'Copie
	'oRange = oDoc.Sheets(1).getCellRangeByName("A7") 'Première cellule pour recopie de la zone
	oFeuilleD = oDoc.Sheets(1)
	oCol_A = oFeuilleD.Columns.GetByName("A")
    LignesVides = oCol_A.queryEmptyCells.RangeAddresses
    NumLigne = LignesVides(0).StartRow 
    oRange = oFeuilleD.GetCellRangeByPosition(0,NumLigne,3,NumLigne)
	oDoc.CurrentController.select(oRange) 'Selection de la cellule
	oDoc.CurrentController.insertTransferable(aCopier) 'Transfert des données
End Sub