Bonjour,
J'avais ce code VBA sur un de mes fichier qui me permettais d'ajouté le nom et la date automatiquement sur mes cellules, par contre j'aimerai l'utiliser sur un autre classeur mais qui est divisé en 4 tableau
comment adapté le code ci-joint afin qu'il s'adapte uniquement aux cellules de A4 à I38 et de A4 à I38
Merci d'avance
J'avais ce code VBA sur un de mes fichier qui me permettais d'ajouté le nom et la date automatiquement sur mes cellules, par contre j'aimerai l'utiliser sur un autre classeur mais qui est divisé en 4 tableau
comment adapté le code ci-joint afin qu'il s'adapte uniquement aux cellules de A4 à I38 et de A4 à I38
Merci d'avance
VB:
Private Sub Worksheet_Change(ByVal T As Range)
'Cellule de A4 à I38
If T.Column = 3 Then
T(1, 3) = Environ("username")
End If
If T.Column = 1 Then
T(1, 4) = Date
End If
'Cellule de A40 à I80
If T.Column = 4 Then
T(1, 3) = Environ("username")
End If
If T.Column = 2 Then
T(1, 4) = Date
End If
End Sub