Probleme avec Events Worksheet_Change

Version imprimable

Bonjour,

Quelqu'un pourrait-il expliquer pourquoi le code
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell_Contenu, Cell_Adresse As String Cell_Contenu = Target.Cells.Value Cell_Adresse = Target.Cells.Address Cell_Contenu = "2008-" & Cell_Contenu Range(Cell_Adresse).Value = Cell_Contenu End Sub
me donne le résultat suivant

2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-2008-

Merci d'avance pour votre aide

Bonjour.

J'imagine que tout est dans la même cellule (?).
Chaque écriture dans une cellule déclenche la procédure, qui écrit dans la cellule, ce qui déclenche la procédure, qui écrit dans la cellule...

Je pense que le pb disparaît avec
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell_Contenu, Cell_Adresse As String Application.enableEvents = false ...'ton code Application.EnableEvents = True End Sub
Cordialement,

PGZ

28/02/2009, 08h52
reymat

Evidement bien sûr!
Je n'avais pas du tout pensé à cela.

Merci pour ta solution

Cordialement

Salut reymat et le forum
Code:

1 2 3 4 5 6 Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell_Contenu As Range, Cell_Adresse As String Application.EnableEvents = False Target = "'2008-" & Target Application.EnableEvents = True End Sub
Le même en plus court
Mais quel est le but à atteindre ? que contient la cellule au départ ? Un simple format ne pourrait-il suffire ?
A+