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

Guest

fred-bene

XLDnaute Occasionnel

Temjeh

XLDnaute Accro

strawberry

Guest

Discussions similaires

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

strawberry

Guest

fred-bene

XLDnaute Occasionnel

Temjeh

XLDnaute Accro

strawberry

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency