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
‘ à l’ouverture 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 n’ai pas trouvé de méthode efficace pour me placer sur la
dernière cellule utilisée colonne A.
D’autre 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]
