Inserer une ligne date

Fermé

ferdo - 29 nov. 2015 à 09:59
ferdo - 29 nov. 2015 à 12:51

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

A voir également:

Inserer une ligne date
Insérer signature word - Guide
Insérer une vidéo dans powerpoint - Guide
Insérer liste déroulante excel - Guide
Apparaitre hors ligne instagram - Guide
Aller à la ligne excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 nov. 2015 à 10:15

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

ferdo
29 nov. 2015 à 12:51

merci ta réponse très bien commenter

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Prélèvement JM Jacquie et Michel date.

Discussions similaires

Newsletters