Condition si en macro

[libellule85]

Bonjour le forum,

J'aimerais avoir en macro la condition si :
Si B13 est renseigné par au moins "Remise n° " la date de la veille se mette en A13 sinon rien.
j'ai la macro pour la date de la veille avec mise en forme :

Sub Essai1()
Range("A13").Value = Application.Proper(Replace(Format((Date - 1), "ddd dd mmm yy"), ".", ""))
End Sub

D'avance je vous remercie beaucoup pour votre aide.

 

[Chris401]

Bonjour

Essaye :

Sub Essai1()
    If Range("B13").Value Like "Remise n°*" Then
    Range("A13").Value = Application.Proper(Replace(Format((Date - 1), "ddd dd mmm yy"), ".", ""))
    End If
End Sub

 

[libellule85]

Bonjour Chris401,

Un grand grand merci pour ta réponse, c'est exactement ce que je recherchais.

 

[libellule85]

Re,

Pour compléter cette macro, comment faire quand on supprime le contenu de la cellule B13 et que l'on reclique sur la forme contenant la macro pour que cela efface le contenu de la cellule A13 ? Puisque B13 est vide A13 doit l'être aussi !

 

[Chris401]

Quelque chose du genre :

Sub Essai1()
    If Range("B13").Value Like "Remise n°*" Then
    Range("A13").Value = Application.Proper(Replace(Format((Date - 1), "ddd dd mmm yy"), ".", ""))
    Else
    Range("A13").Value = ""
    End If
End Sub

 

[libellule85]

Re,

Impeccable, à nouveau merci beaucoup pour ta réponse