Merci je vais essayé de ce pas c'est j'avais oublié qu'il y a une liste spécialisée.
michel
Bonsoir,

Michel Bini a écrit :
Bonjour,
J'essaye de créer une macro qui me permette d'insérer en début de
création de nouvelle/saisie ligne, la date du jour dans une cellule et
dans la cellule à côté le n° suivant de mon enregistrement : 18/05/07
135. C'est pour la tenue des courriers départ. Pour la date pas de souci
cela marche mais pour l'incrémentation de la suite de numéro je sèche.
Comment définir la cellule de départ. Je ne connais pas grand chose au
OOobasic, j'ai le livre d'Eyrolles.
Merci
Michel

Pour les questions ayant trait aux macros il conviendrait de poster sur la liste prog : [EMAIL PROTECTED]

Voici une idée me semble-t-il au problème soulevé :

sub lastUsedRange

 dim oSheet, oRange
 dim colonneCompteur as integer

 'recherche les limites de la zone utilisée
 oSheet = ThisComponent.getSheets().getByName( "Feuille1" )
 oRange = oSheet.createCursor()
 oRange.gotoStartOfUsedArea( False )
 oRange.gotoEndOfUsedArea( True )

 'recupère coordonnées dernière ligne / derniere colonne
 with oRange
  derniereLig = .getRangeAddress.EndRow
  'derniereCol = .getRangeAddress.EndColumn 'pour info
 end with

 'ici on fixe le numéro de colonne contenant le compteur
 colonneCompteur = 5

 nouveauCompteur = oSheet.getCellByPosition( _
                                            colonneCompteur, _
                                            derniereLig _
                                            ).value + 1

 'inscription de la nouvelle valeur
 oSheet.getCellByPosition( colonneCompteur, _
                           derniereLig + 1 _
                           ).value = nouveauCompteur


end sub

Francois Gatto

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à