Texte si cellule vide

[3dbillard]

Bonsoir,
est-il possible qu'en B3 là où je souhaite que les personnes saisissent une date, qu'il y ait en texte "Saisir date" avant que les gens fassent la saisie et que si quelqu'un efface la date on puisse voir à nouveau "Saisir date".

Merci d'avance et bonne soirée

 

[jp14]

Re : Texte si cellule vide

Bonsoir

Ces deux macros évènementielle devraient répondre au problème

Private Sub Worksheet_Activate()
If Range("B3").Value = "" Then Range("B3").Value = "Saisir date"
End Sub

'Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If Range("B3").Value = "" Then Range("B3").Value = "Saisir date"
End If
End Sub

La première écrit le texte dans la cellule vide
La deuxième écrit le texte si on supprime la date

JP

 

[3dbillard]

Re : Texte si cellule vide

Merci JP14,
ça marche nickel, et si je veux appliquer cela à plusieurs cellules avec un texte différent en B4 et encore différent en B6, comment je fait.
Merci de ta patience et bonne soirée.

 

[3dbillard]

Re : Texte si cellule vide

Bonjour à tous,
c'est OK j'ai trouvé la solution après quelques essais.
Merci à JP14, et bonne journée.