Remplacer le contenu d'une cellule si celle ci n'est pas vide

[strawberry]

Hello le forum,

Est-il possible, si une cellule n'est pas vide (ex, on tape du texte ou un chiffre), de remplacer automatiquement la valeur saisie dans cette cellule par une autre.
Aprés plusieurs tatonnements, je coince sur cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target <> "" Then
Range("A1").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "Bonjour"
Else
Range("A1").Select
Selection.ClearContents
End If
End If
End Sub

Quelqu'un à une idée ?
Merci d'avance et bon appétit !
Strawberry

 

[fred-bene]

Re : Remplacer le contenu d'une cellule si celle ci n'est pas vide

Essaie un truc du genre :

Sub test()

If (Cells(1, 1)) = "" Then Cells(1, 1) = 0
End

End Sub

@+

 

[Temjeh]

Re : Remplacer le contenu d'une cellule si celle ci n'est pas vide

Bonjour

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = 1 Then Range("A1") = "Bonjour"
End Sub

A+

Ce lien n'existe plus

 

[strawberry]

Re : Remplacer le contenu d'une cellule si celle ci n'est pas vide

Merci TEMJEH et FRED-BENE !

Ca fonctionne nickel !