Créer une séparation en vba

[T77XDD]

Bonjour,
je cherche à créer une séparation entre des évènements pour la nouvelle journée.
J'ai fait une macro qui trace un trait de A à F en bleu avec une hauteur de 6.
Qui rajoute la date du jour dans la colonne 1 sous la ligne crée.

Sub Lign()
Range("A7:F7").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 12611584
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Rows("7:7").RowHeight = 6
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("A9").Select
End Sub

le soucis c'est que avec l'évolution du tableau cette ligne doit être créer à la dernière ligne, là elle est toujours créer sur la ligne 7 avec la date en "A8"
En plus cette date se remet à jour tous les jours.
Comment faire pour que cette ligne se créée à la suite, ou sur la dernière case que je sélectionne avec la date qui se rajoute en dessous.
Merci.

 

[francedemo]

Re : Créer une séparation en vba

bonjour,
à tester:

Sub Lign()

derlig = [A65000].End(xlUp).Row + 1
Range(Cells(derlig, 1), Cells(derlig, 7)).Select
With Selection.Interior
   .Pattern = xlSolid
   .PatternColorIndex = xlAutomatic
   .Color = 12611584
   .TintAndShade = 0
   .PatternTintAndShade = 0
End With
ActiveCell.RowHeight = 6
Range("A" & [A65000].End(xlUp).Row + 1) = Now
Range("A" & [A65000].End(xlUp).Row + 1).Select
End Sub

à +

 

[T77XDD]

Re : Créer une séparation en vba

Génial,
ça fonctionne avec "Row + 3" à la place de "Row + 1" dans

Range("A" & [A65000].End(xlUp).Row + 1) = Now
Range("A" & [A65000].End(xlUp).Row + 1).Select

et "Row + 2" à la place de "Row + 1" au début.
Ou est ce que je peu trouver comment s'y prendre pour renseigner "derlig..........Select", si j'avais pensé à passer par là, perso j'aurais fait "Dim var$" et "var = je parle même pas de la formule" ainsi que les variable qui peuvent être rentrées dans "Range".
Merci pour cette réponse ultra rapide
Ps: Est ce que vous avez une idée sur cette discussion https://www.excel-downloads.com/threads/creer-un-hyperlien-resolu.187661/