XL 2010 excel formule aujourd'hui

TooFatBoy à dit:

Bonjour,

Une autre proposition :

VB:

Sub test()
    With Sheets("Feuil1")
        Set MaPlage = .Range("B4:B23")
        x = Application.Match(1 * Date, MaPlage, 0)
        If IsNumeric(x) Then MaPlage.Resize(1, 1).Offset(x - 1, 1).Value = .Range("C1")
    End With
End Sub

[edit]Au temps pour moi, je n'avais pas vu la réponse du camarade mapomme [/edit]

Cliquez pour agrandir...