[prog] Concersion de macros 2.0 - création d'un registre courri er

[BRONCHART Philippe]

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!: 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.