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

Réponse 1 / 1
f894009 Messages postés 17416 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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
ferdo
 
merci ta réponse très bien commenter
0