Texte si cellule vide

J

jp14

XLDnaute Barbatruc

• 8 Novembre 2010

• #2

Re : Texte si cellule vide

Bonsoir

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

Code:

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

 

Vote positif 0 Vote négatif

3

3dbillard

XLDnaute Junior

• 8 Novembre 2010

• #3

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.

 

Vote positif 0 Vote négatif

3

3dbillard

XLDnaute Junior

• 9 Novembre 2010

• #4

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.

 

Vote positif 0 Vote négatif