Figer nombre créé aléatoirement

**LostinExcel** · 05/12/2018, 19h04

Bonjour à tous,

Voici mon énoncée :

J'ai créé un tableau excel pour une traçabilité de produit.
Chaque produit est fabriqué un à un et doit donc avoir un numéro unique qui sera imprimé sur le produit ce qui me permettra de retrouver toutes les informations qui lui sont liées (date, lieu, personne etc).
Tout ça j'ai réussi à le faire.

Voici mon problème :

Le numéro unique généré change à chaque nouvelle entrée d'un nouveau produit, ce qui rend mon numéro d'identification complètement obsolète.
J'aimerai trouver une macro qui me permette de figer le numéro aléatoire généré par excel.
J'ai vu sur des forum la solution avec F9, mais elle ne me convient pas car les personnes qui vont utiliser ce tableau ne sont pas du tout à l'aise avec excel, il leur faut une solution automatique.

En vous remerciant par avance pour toutes vos suggestions

**Patrice740** · 05/12/2018, 19h22

Bonjour,

Plutôt qu'un numéro aléatoire, il est bien plus simple de créer un numéro séquentiel (en particulier dans un tableau structuré) ?
Pas besoin de VBA.

**patricktoulon** · 06/12/2018, 08h55

re
Bonjour
mis a part le fait que je rejois patrice sur ce coup la j'avoue que la question est le contexte me laisse perplexe

Le numéro unique généré change à chaque nouvelle entrée d'un nouveau produit, ce qui rend mon numéro d'identification complètement obsolète.
J'aimerai trouver une macro qui me permette de figer le numéro aléatoire généré par excel.

qu il y a til de difficile dans une incrementation de numero de serie basé par exemple sur la date et un index
par exemple dans une boucle

Code :

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

1
2
3
4
5
6
Sub test()
For i = 1 To 1000
numserie = Format(Date, "yymd") & Format(i, "00")
Cells(i, 1) = numserie
Next
End Sub

ou bien encore en ajout unique en se servant de l'index de ligne de la premiere cellule vide dispo

Code :

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

1
2
3
4
5
6
Sub ajoute()
With Cells(Rows.Count, 1).End(xlUp).Offset(1)
numserie = Format(Date, "yymmdd") & Format(.Row, "00")
.Value = numserie
End With
End Sub

ou bien encore créer des code serie avec des lettres et des chiffres

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
19
20
21
22
23
24
25
26
27
 
Const carrote = "CtS"
Const poireau = "PX"
Const tomate = "TtE"
'
Sub testx1()
'ajoute une carrote
    ajoute carrote
End Sub
'
Sub testx2()
'ajoute poireau
    ajoute poireau
End Sub
'
Sub testx3()
'ajoute tomate
    ajoute tomate
End Sub
'
Function ajoute(produit)
    Dim N  As String
    With Cells(Rows.Count, 1).End(xlUp).Offset(1)
        N = produit & Format(Date, " yymmdd") & Format(.Row, "00")
        .Value = N
    End With
End Function

tu peux meme séparer les données du code de serie

Code :

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

 N = produit & Format(Date, " yymmdd-") & Format(.Row, "00")

ainsi tu a le code lettre du produit (les constantes) la date facilement identifiable et le numero de fabrication du jour de la date apres le tiret
bref solution il y a

en gros l'incrémentation se fait automatiquement en fonction de l'index de ligne de la premiere cellules vide dispo
c'est quoi le soucis ?

**Menhir** · 06/12/2018, 08h59

Pour figer le résultat d'une fonction aléatoire, il suffit de faire dessus un "Copier / Coller Valeur".
En VBA, ça correspond à une combinaison des méthode Copy et PasteSpecial(xlPasteValues).
https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Cela dit, je suis entièrement d'accord avec Patrice740 (

) : utiliser une fonction aléatoire pour créer un numéro unique, c'est absurde.
C'est un peu le principe de la roulette russe : la réussite repose sur une probabilité et non sur une certitude.
Et, comme pour la roulette russe, quand la probabilité fait défaut, ça te pète à la gueule et ça fait très mal.

Pour faire quelque chose de sérieux, il faut être certain à 100% que le code sera unique.
Le plus simple est de créer un code séquentiel (ajouter 1 au dernier numéro créé).

**unparia** · 06/12/2018, 09h06

Bonjour
L'exposé du problème est pour le moins imprécis, pour ne pas dire totalement confus.
On ne sait même pas comment est défini ce "n° unique" (code ? Formule ? autre ?)
Et si par code : exécuté à quel moment/évènement ?
J'en viens même à me demander si les termes utilisés (aléatoirement et aléatoires) sont adéquats.

**LostinExcel** · 06/12/2018, 10h12

Bonjour,

Avant toutes choses un grand merci à tous pour vos réponses et désolé pour l'approximation de mon énoncé en effet je ne dois pas utiliser les bons termes, mea culpa!

Je n'avais pas pensé au numéro séquentiel cela parait répondre tout à fait à mes attentes je vais essayer les solutions recommandées et je vous dis dès que j'y suis arrivé ou je me permettrai de revenir vers vous si n'y arrive pas

Encore une fois merci!
Une très belle journée