Discussion :

[Vincent_Ca]

Bonjour à tous,

Etant en plein développement d'un ERP de transition pour mon entreprise, je souhaite enregistrer toutes les transactions effectuées par un numéro "unique". Ce numéro est construit grâce à la valeur Excel de la date et de l'heure, qui est codé de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    x = TimeValue(Time)
    y = DateValue(Date)
    NoTrans = y & Mid(x, 3, 7)

Mon problème est que ce bout de code est au sein d'une boucle For, et lorsque les opérations s’enchainent, je me retrouve avec un numéro de transaction identique pour certaines lignes de la base de données.

Je ne pense pas que le problème vienne de la rapidité d’exécution du code car j'ai testé avec un "Sleep" à 300ms juste avant la définition du n° de transaction, et le problème survient tout de même.

J'ai tenté de passer par Do While ... de ce type, et ça à l'air de fonctionner, sauf que ça me ralenti de manière assez importante l'exécution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub NoTransaction()
 
Dim x As Double
Dim y As Double
 
'TransA et TransB sont des variables publiques, déclarées comme "As Double", tandis que NoTrans est déclaré comme "As String"
 
Do While TransA = TransB
 
    x = TimeValue(Time)
    y = DateValue(Date)
    TransA = y & Mid(x, 3, 7)
 
Loop
 
NoTrans = TransA
 
End Sub

Pensez-vous que le problème vienne de "Time" et "Date" ? Auriez-vous une idée sur le sujet ?

Je vous remercie par avance,

Vincent C.

[anasecu]

Bonjour

Pensez-vous que le problème vienne de "Time" et "Date" ? Auriez-vous une idée sur le sujet ?

Comme tu ne prends que la moitié des chiffres de "Time", tu ne peux pas l'accuser d'être fautif et la vitesse d’exécution d'une macro fait que la partie gauche se retrouve obligatoirement égale sur 2 prises de temps successives.

[Menhir]

Je ne pense pas que le problème vienne de la rapidité d’exécution du code car j'ai testé avec un "Sleep" à 300ms juste avant la définition du n° de transaction, et le problème survient tout de même.

300 ms, par nature, c'est inférieur à 1 s.
Ce n'est donc pas ça qui garantira ton numéro unique.
mets ton Slep à plus de 1 s si tu veux que le test soit probant.

[Vincent_Ca]

Bonjour à tous les deux,

Tout d'abord je vous remercie pour vos réponses.

Bonjour


Comme tu ne prends que la moitié des chiffres de "Time", tu ne peux pas l'accuser d'être fautif et la vitesse d’exécution d'une macro fait que la partie gauche se retrouve obligatoirement égale sur 2 prises de temps successives.

En effet, ça tombe sous le sens, malheureusement j'avais également fait le test sans limite de caractères et je me suis retrouvé dans la même situation. Pour la partie gauche, il s'agit du jour, je pense que tu voulais parler de la partie droite.

300 ms, par nature, c'est inférieur à 1 s.
Ce n'est donc pas ça qui garantira ton numéro unique.
mets ton Slep à plus de 1 s si tu veux que le test soit probant.

En ayant fait le test, c'est bien plus probant, mais encore plus long que le Do While au final, surtout sur une grosse quantité d'itérations dans un For...Next.

Je vais rester sur la boucle, qui m'assure un numéro de transaction unique entre chaque ajout.

Merci encore à tous deux d'avoir pris le temps de me répondre.

[anasecu]

Bonjour

Pour la partie gauche, il s'agit du jour, je pense que tu voulais parler de la partie droite.

Je parlais bien de la partie gauche de time celle qui ne varie que très lentement.