Discussion :

[reymat]

Bonjour,

Quelqu'un pourrait-il expliquer pourquoi le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[reymat]

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

Merci pour ta solution

Cordialement

[Gorfael]

Salut reymat et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+