Condition si en macro

libellule85 · 18 Décembre 2016

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 :

Code:

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 · 18 Décembre 2016

Bonjour

Essaye :

VB:

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 · 18 Décembre 2016

Bonjour Chris401,

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

libellule85 · 18 Décembre 2016

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 · 18 Décembre 2016

Quelque chose du genre :

VB:

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 · 18 Décembre 2016

Re,

Impeccable, à nouveau merci beaucoup pour ta réponse

Condition si en macro

libellule85

XLDnaute Accro

Pièces jointes

Chris401

XLDnaute Accro

libellule85

XLDnaute Accro

libellule85

XLDnaute Accro

Chris401

XLDnaute Accro

libellule85

XLDnaute Accro

Discussions similaires