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

strawberry · 25 Février 2009

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 · 25 Février 2009

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

Essaie un truc du genre :

Code:

Sub test()

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

End Sub

@+

Temjeh · 25 Février 2009

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

Bonjour

Code:

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 · 25 Février 2009

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

Merci TEMJEH et FRED-BENE !

Ca fonctionne nickel !

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

strawberry

XLDnaute Nouveau

fred-bene

XLDnaute Occasionnel

Temjeh

XLDnaute Accro

strawberry

XLDnaute Nouveau

Discussions similaires