Problème

Bonjour,
par macro en vba,
Admettons , tu veux que s'affiche en b ce que tu entres en A
ne s'éffacera ou changera en B que si tu l'efface en B avant d'entrer autre
chose en A
dans le code de la feuille:
''***
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:a])
If Not isect Is Nothing Then
Application.EnableEvents = False
For Each c In isect.Cells
If IsEmpty(c.Offset(0, 1)) Then
c.Offset(0, 1) = c
End If
Next
Application.EnableEvents = True
End If
End Sub
'''***
'lSteph

"Pierre" <pierre.pinede@wanadoo.fr> a écrit dans le message de news:
43ee1502$0$18348$8fcfb975@news.wanadoo.fr...

Bonjour,
J'inscris une valeur dans une cellule.
je voudrais que cette valeur s'affiche dans une autre cellue et y reste si
j'efface la première.
Comment dois-je faire ?
merci

Bonjour,

cas1:
On stocke l'historique des différentes valeurs saisies dans chaque
cellule:

http://www.excelabo.net/moteurs/compteclic.php?nom=jb-historiquemodificat ions

Cas2:
Mémorise l'historique des cellules modifiées sur un onglet (nommé
Espion)

http://cjoint.com/?clupIFnBQ4

Private Sub Worksheet_Change(ByVal Target As Range)
temp = Application.CountA(Sheets("espion").Range("a:a")) + 1
Sheets("espion").Cells(temp, 1) = Target.Address
Sheets("espion").Cells(temp, 2) = Now
Sheets("espion").Cells(temp, 3) = Target
End Sub

-Alt+F11
-Double clic sur Feuil1
-Choisir WorkSheet
-Choisir événement Change

Cordialement JB