Ajouter date du jour à une macro d'insertion

Résolu
nathan01983 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   -  
nathan01983 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour à toutes et à tous

J'ai une macro pour inserer une ligne mais j'aimerai que lorsque j'insert la ligne (elle s'insert toujours en ligne 8) la date du jour s'ajoute automatiquement dans la cellule D8 (et ensuite reste figée)

Sub Bouton1_Cliquer()
Dim CurrentSheet As Object
For Each CurrentSheet In ActiveWindow.SelectedSheets
CurrentSheet.Range("B8:V8").EntireRow.Insert
Next CurrentSheet
End Sub

Merci de votre future aide

1 réponse

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     

    Bonjour

    Après ta ligne

    CurrentSheet.Range("B8:V8").EntireRow.Insert

    rajoute celle-ci :

    CurrentSheet.Range("D8")=Date

    Cdlmnt

    Via


    1
    1. nathan01983 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   10
       

      Merci ENCORE via55 :)

      1