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