Problème sur deux macros

[libellule85]

Bonsoir le forum,

J'ai mis ma demande dans le fichier joint, c'est plus parlant.
D'avance merci pour votre aide

 

[eriiic]

Bonjour,

pas sûr d'avoir bien compris,
une date est mise que si absente et "Remise" (attention aux majuscules dans tes Like, elles comptent) :

Sub FigeDatVeil()
    FigeDat Date - 1
End Sub

Sub FigeDatJour()
    FigeDat Date
End Sub

Sub FigeDat(dat As Date)
    If Range("B4").Value Like "Remise***" Then
        If Range("A4") = "" Then Range("A4").Value = Application.Proper(Replace(Format((DateValue(dat)), "ddd dd mmm yy"), ".", ""))
    Else
        Range("A4").Value = ""
    End If
    If Range("B5").Value Like "Remise N°*" Then
        If Range("A5") = "" Then Range("A5").Value = Application.Proper(Replace(Format((DateValue(dat)), "ddd dd mmm yy"), ".", ""))
    Else
        Range("A5").Value = ""
    End If
End Sub

Bonne fêtes à tous.
eric

 

[libellule85]

Bonsoir eriiiic,

Un très très grand merci, c'est exactement ce que je recherchais.
De bonnes fêtes à toi aussi