Inserer une ligne date

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
    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

Discussions similaires

Problème publipostage date de naissance
garbiche22

3 réponses