Problème sur deux macros

libellule85

XLDnaute Accro
Bonsoir le forum,

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

Pièces jointes

  • essai libellule 24 12 16.xlsm
    67.5 KB · Affichages: 44

eriiic

XLDnaute Barbatruc
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) :
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 963
Messages
2 093 996
Membres
105 906
dernier inscrit
aifa