Condition si en macro

Chris401

XLDnaute Accro

• 18 Décembre 2016

• #2

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 18 Décembre 2016

• #3

Bonjour Chris401,

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 18 Décembre 2016

• #4

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 !

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Décembre 2016

• #5

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 18 Décembre 2016

• #6

Re,

Impeccable, à nouveau merci beaucoup pour ta réponse

 

Vote positif 0 Vote négatif