XL 2016 Uniformiser la date des cellules

[Phylo]

Bonjour

J 'ai crée un fichier excel qvec un code vba qui incorpore la date automatiquement
Mais vu que le fichier est utilisé par plusieurs personne. La date entrée est variable selon la date d' ordi de chaque personne

je veux insérer l'instruction dans ce code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("J")) Is Nothing And Target.Value <> "" Then
Target.Offset(0, 1).Value = Date & " " & Time
End If

'Dans les colonnes I et K la format de la date est : dd-mm-yyyy
exemple :
Columns()Numberformat="dd-mm-yyyy"


Merci d'avance

 

[Dranreb]

Houlla qu'il a été dur à trouver !
Il y a une incohérence dans cette instruction. Je pense que c'est ça :

CA.Add Me.CBxRevisionFG, "Révision vrac", Mode:=1

La CBxRevisionFG écrase la CBxRevisionVrac parce qu'il ont la même colonne.

 

[Phylo]

Houlla qu'il a été dur à trouver !
Il y a une incohérence dans cette instruction. Je pense que c'est ça :

CA.Add Me.CBxRevisionFG, "Révision vrac", Mode:=1

La CBxRevisionFG écrase la CBxRevisionVrac parce qu'il ont la même colonne.

Merci beaucoup Dranreb

Franchement, j'ai galéré moi aussi pour trouver c'était quoi le problème:
Tu assures comme dab

Merci infiniment