[XL-2000] enregistrement à la suite [Résolu]

[kaboche]

Bonjour à tous et toutes,

Voici mon code, mais comment faire en sorte que ce dernier passe à la ligne suivante pour chaque enregistrement?

Merci de votre aide

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
 
'bonjour de bienvenue
    MsgBox "Bonjour et bienvenue ", vbInformation, "Message de bienvenue"
'enregistrement du nom de la personne qui utilise l'outils
    Worksheets("utilisation").Cells(1, 1).Value = "Derniere utilisation : " & Environ("USERNAME")
'enregistrement de la date
    Worksheets("utilisation").Cells(1, 2).Value = Date
'enregistrement de l'heure
    Worksheets("utilisation").Cells(1, 3).Value = Time
'sauvegarde du classeur
    ThisWorkbook.Save
 
End Sub

[U. Milité]

Bonjour,

Au début de ton code, essaye cette ligne:

Code :

lig = Worksheets("utilisation").Range("A65000").End(xlUp).Row + 1

Par la suite, il te suffira d'écrire Cells(lig, 1) au lieu de Cells(1, 1) ... si je t'ai bien compris.

[kaboche]

C'est parfait, MERCI U.Milité