[Calc] Atteindre une cellule

[pphilippe]

Bonjour
Je travaille sur un fichier qui deviendra un tableau de bord et je ne suis pas très calé en macro.
Normalement à l'ouverture, l'utilisateur devrait arriver sur une page d'accueil (c'est pas encore au point mais c'est l'idée)
Je cherche une macro simple qui me permettrai en cliquant sur un bouton (SAISIE) de trouver la première cellule vide dans une liste (onglet saisie) et de la rendre active.
Je vous remercie

[yclik]

Bonjour
une proposition

Code : Tout sélectionner

sub Saisie

Dim oDoc As Object
Dim oSheets as object
Dim oSheet As Object
Dim oCell as Object

oDoc = thisComponent
oSheet = oDoc.Sheets.getByName("saisie")
maZone = oSheet.getCellRangeByName("A1:A1000")
zoneVide = maZone.queryEmptyCells.RangeAddresses
'Je trouve la dernière ligne utilisée
derLigne = zoneVide(0).StartRow
'J'ajoute 1 pour obtenir la ligne vide
 derLigne =  derLigne + 1
'print derLigne
'Affiche la feuille
oDoc.CurrentController.ActiveSheet = oSheet
'adresse dernière ligne
oCell = oSheet.getCellRangeByName("A"+derLigne)
'sélectione la cellule de la dernière ligne col A
oDoc.CurrentController.select(oCell)
end sub

et en bonus
une macro qui permet d'afficher la feuille saisie dès l'ouverture du classeur

Code : Tout sélectionner

sub menu
Dim oDoc As Object
Dim oSheets as object
Dim oSheet As Object
oDoc = thisComponent
oSheet = oDoc.Sheets.getByName("accueil")
oDoc.CurrentController.ActiveSheet = oSheet
End Sub

pour ouvrir sur la page accueil
Outils > personnaliser >onglets événements
Sélectionner « ouvrir un document » et assigner macro menu

saisie_cible.ods

[pphilippe]

Bonsoir
Merci à Beetle pour sa compréhension et à yclick pour sa compétence.

Question subsidiaire, si le fichier est ouvert sous excel (ça peut arriver) il ne va pas planter ?
Merci