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]

Bonjour.
Mettez Now au lieu de Date & " " & Time

 

[Phylo]

Bonjour.
Mettez Now au lieu de Date & " " & Time

Bonjour Danreb

si je comprends, la fonction now ne sera pas une date réelle parce que elle change avec le temps

NOn?

 

[Dranreb]

C'est la date + l'heure au moment où on l'invoque.

 

[Phylo]

La fonction NOW renvoie la date et l'heure actuelles, mises à jour en permanence lorsqu'une feuille de calcul est modifiée ou ouverte. Moi je veux la date réelle d'enregistrement et qu'elle reste fixe.
Mon probléme est que je ne peux uniformiser la date entrée par différentes personnes

 

[Dranreb]

La fonction VBA.Now renvoie la valeur de la date et de l'heure au moment où on l'invoque. Si on l'affecte à une valeur de cellule on n'affecte pas de formule à celle ci, n'est-ce pas.
Uniformisez le format des cellules. Mais c'est trop tard pour les cellules qui ont déjà une date fausse ou un texte non converti parce qu'on leur a mis des String qu'il a pris de travers selon une règle d'interprétation internationale au lieu de leur mettre des valeurs de date et heure données par la fonction Now.

 

[Phylo]

La fonction VBA.Now renvoie la valeur de la date et de l'heure au moment où on l'invoque. Si on l'affecte à une valeur de cellule on n'affecte pas de formule à celle ci, n'est-ce pas.
Uniformisez le format des cellules. Mais c'est trop tard pour les cellules qui ont déjà une date fausse ou un texte non converti parce qu'on leur a mis des String qu'il a pris de travers selon une règle d'interprétation internationale au lieu de leur mettre des valeurs de date et heure données par la fonction Now.

Merci bcp Dranreb pour tés réponses
le code marche tres bien avec la fonction now

mais j ai un petit souci si quand la date est incoroprèe je ne peux pas modifier cette date pour antidater par exemple. Certains ^personne oublient la tache et veulent la date d'hier, il y a une formule qui empéche le changement et il n'accépte que la date enregistrée par la macro

j'espère que j'étais trés explicite

 

[Phylo]

Merci bcp Dranreb pour tés réponses
le code marche tres bien avec la fonction now

mais j ai un petit souci si quand la date est incoroprèe je ne peux pas modifier cette date pour antidater par exemple. Certains ^personne oublient la tache et veulent la date d'hier, il y a une formule qui empéche le changement et il n'accépte que la date enregistrée par la macro

j'espère que j'étais trés explicite

 

[Dranreb]

Vérifiez bien si la Worksheet_Change ne réagit pas à tort si c'est une des colonne de dates qui est changée. Pour bien faire il faudrait encadrer tout changement de valeur de cellule d'un Application.EnableEvents = False devant et = True après le changement pour qu'il ne provoque pas un appel récursif de la procédure.

 

[Phylo]

Vérifiez bien si la Worksheet_Change ne réagit pas à tort si c'est une des colonne de dates qui est changée. Pour bien faire il faudrait encadrer tout changement de valeur de cellule d'un Application.EnableEvents = False devant et = True après le changement pour qu'il ne provoque pas un appel récursif de la procédure.

Salut
STP j'aurai besoin de ton aide

Comment je peux exiger que la date entrée soit de la format dd-mm-aaaa
quelque soit la configuration de l'ordinateur de la personne qui entre la date


Merci d'avance

 

[Dranreb]

Bonsoir.
À votre place je mettrais une validation de donnée: Autoriser: Date.
Après du moment que la valeur de la cellule sera forcément une date et non un texte, son apparence dépendra de son format d'affichage.

 

[Phylo]

Bonsoir.
À votre place je mettrais une validation de donnée: Autoriser: Date.
Après du moment que la valeur de la cellule sera forcément une date et non un texte, son apparence dépendra de son format d'affichage.

Bonsoir

la date est entrée automatiquement par la macro n'est pas tapée manuellement
voici le 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
End If

merci

 

[Dranreb]

Normalement ça doit mettre une date. Vérifiez toutefois si ce n'est pas contrecarré par un format Texte préexistant sur les cellules. Certains formats incitent Excel à se sentir autorisé à prendre comme valeur de cellule autre chose que ce qu'on lui dit, ce que personnellement je déplore beaucoup …

 

[Dranreb]

Vous pouvez aussi essayer :

With Target.Offset(0, 1): .NumberFormat = "dd-mm-yyyy": .Value = Date: End With

 

[Phylo]

Vous pouvez aussi essayer :

With Target.Offset(0, 1): .NumberFormat = "dd-mm-yyyy": .Value = Date: End With

Merci bcp pour ton code

Tu pourras stp me confirmer la quelle est bonne
*avant de l'introduire

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
With Target.Offset(0, 1): .NumberFormat = "dd-mm-yyyy": .Value = Date: End With
End If

ou

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("J")) Is Nothing And Target.Value <> ""
With Target.Offset(0, 1): .NumberFormat = "dd-mm-yyyy": .Value = Date: End With
End If

merci bcp