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 !