Sujet Précédent Sujet Suivant

Macro insertion ligne et date du jour

petula972 -  
pou pouille Messages postés 212 Statut Membre -
Bonjour,

j'ai fait un tableau, où grâce à un code, j'insere des lignes automatiquement.
je souhaiterais dans la 1ere cellule de ces lignes, apparaisse la date du jour.
je sais qu'il faut inserer l'instruction ci-dessous:

Range("A1").Value = Format(Now, "dd.m.yyyy")

Où, "A1" = la cellule qui doit être renseignée avec la date.

Moi, mon code est le suivant:

Sub insere_ligne()
Dim DerLig As Long
Application.ScreenUpdating = False
DerLig = [A65000].End(xlUp).Row
Rows(DerLig & ":" & DerLig).Copy
Rows(DerLig & ":" & DerLig).Insert Shift:=xlDown
Rows(DerLig + 1 & ":" & DerLig + 1).ClearContents
Cells(DerLig + 1, 1).Value = Cells(DerLig, 1).Value + 1
End Sub

Mon problème, c'est que je ne sais pas ou insérer l'instruction pour la date.

Quelqu'un pourrait il m'aider svp?

Merci
A voir également:

1 réponse

Réponse 1 / 1
pou pouille Messages postés 212 Statut Membre 31
 
bonjours,
si la date doit etre dans la ligne inséré alors je pense que en le positionnant à la fin cela devrait fonctionner: 
Sub insere_ligne() 
Dim DerLig As Long 
Application.ScreenUpdating = False 
DerLig = [A65000].End(xlUp).Row 
Rows(DerLig & ":" & DerLig).Copy 
Rows(DerLig & ":" & DerLig).Insert Shift:=xlDown 
Rows(DerLig + 1 & ":" & DerLig + 1).ClearContents 
Cells(DerLig + 1, 1).Value = Cells(DerLig, 1).Value + 1
Range("A" & DerLig).Value = Format(Now, "dd.m.yyyy") 
End Sub
0