Bonjour,
J'ai besoin de convertir ce code VBA en code GS ... s'il y a quelqu'un peut m'aider.
Aussi si vous connaissez un outil pour la conversion n'hesitez pas de m'aider:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Byte
If Intersect(Target, Range("A1:A10000")) Is Nothing Or Target.Count > 1 Then: Exit Sub
Row = Target.Column
Cells(Target.Row, 8) = Format(Date, "dd/mm/yy")
Cells(Target.Row, 9) = Format(Time, "hh:mm:ss")
End Sub
Merci.