Inserer une ligne date

ferdo -  
 ferdo -
Bonjour,

je voudrais insérer une ligne de couleur avec la date
voici ma formule qui ne fonctionne pas

DateJour = Range("I1").Value.Interior.Color = RGB(255, 0, 0)

merci de corriger mon erreur

bonne journée a tous

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    peut-etre ce que vous souhaitez: 

    Sub insert()
    With Worksheets("feuil1")
        .Rows(1).EntireRow.insert Shift:=xlShiftDown    'insert ligne au debut
        .Range("I1") = Date     'ecrit la date du jour
        .Range("I1").Interior.Color = RGB(255, 0, 0)    'coloriage rouge
    End With
End Sub
    0
    1. ferdo
       
      merci ta réponse très bien commenter
      0