Bonjour à tous Un GRAND merci à jovial qui me remet le pied à l'étrier, car je commençais vraiment à tourner en boucle... En fait je rame avec l'api ...Tout une éducation à refaire... Je vais travailler sur cette macro aujourd'hui en cherchant à l'améliorer.
Donc ce que je veux améliorer : 1/ incrémentation automatqiue du numéro d'enregistrement 2/ automatisation du nom de la personne qui demande un numéro (récupération du nom (application .username sous excel)) Donc au boulot Je vais chercher un peu avant de crier à l'aide Encore merci -----Message d'origine----- De : Jovial [mailto:[EMAIL PROTECTED] Envoyé : mercredi 18 janvier 2006 00:22 À : prog@fr.openoffice.org Objet : Re: [prog] Concersion de macros > écrire en fin de tableau Bonjour Essaye cela MonDoc = ThisComponent 'Sélectionne le document en cours MaFeuille = MonDoc.CurrentController.ActiveSheet 'Attribue la feuille en cours à la variable oCurseur = MaFeuille.createCursor oCurseur.GotoEndOfUsedArea(True) NumDerligne = oCurseur.getRangeAddress.EndRow MaFeuille.getCellByPosition(0,NumDerligne+1).string = Date 'Aujourd'hui MaFeuille.getCellByPosition(1,NumDerligne+1).String = "Lambert" CellCible = MaFeuille.getCellByPosition(2,NumDerligne+1) MonDoc.CurrentController.Select(CellCible) Jean-Luc BRONCHART Philippe a écrit : > > Bonsoir à tous, > > Malgré de nombreuses recherches, je ne parviens pas à traduire cette > macro Excel > > à louverture on se place colonne A dernière cellule utilisée > > Private Sub Worksheet_Activate() > > Range("a65536").End(xlUp).Select > > End Sub > > ' Insère le numéro, la date et le nom de l'utilisateur > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, > Cancel As Boolean) > > If ActiveCell.Column = 1 Then > > ' on insere une ligne et on ajoute 1 à la valeur du dessus > > Selection.EntireRow.Insert > > ' on deplace le curseur > > ActiveCell = ActiveCell.Offset(-1, 0) + 1 > > ' on insere la date, le nom d'utilisateur, on active la cellule pour > la frappe > > ActiveCell.Offset(0, 1) = Date > > ActiveCell.Offset(0, 2) = Application.UserName > > ActiveCell.Offset(0, 3).Activate > > End If > > En fait je nai pas trouvé de méthode efficace pour me placer sur la > dernière cellule utilisée colonne A. > > Dautre part, mes connaissances limitées dans les APIS me bloquent > complétement. > > Une idée, Une piste ? > > Amicalement > > > > ------------------------------------------------------------------------ > > Antivirus avast! <http://www.avast.com>: message Sortant sain. > > Base de donnees virale (VPS) : 0603-1, 16/01/2006 > Analyse le : 16/01/2006 22:54:46 > avast! - copyright (c) 1988-2005 ALWIL Software. > > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 0603-2, 17/01/2006 Analyse le : 18/01/2006 10:17:03 avast! - copyright (c) 1988-2005 ALWIL Software. http://www.avast.com --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 0603-3, 18/01/2006 Analyse le : 20/01/2006 08:38:37 avast! - copyright (c) 1988-2005 ALWIL Software. http://www.avast.com --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]