Microsoft 365 Aide pour insertion nombre aléatoire

maintenant je peux expliquer pourquoi nous les barbatruc utilisons des codes a faire transpirer les débutant
reprenons mon code que tu a choisi pour solution
il est fonctionnel oui je te l'accorde mais....

defaut 1:
le min et max est dans la sub elle même (donc code non recyclable)
si on veut changer le min et ou max ,il faut aller dans le code

defaut 2
le return(nombre_alea) prend directement un nombre aléatoire
pour un tirage unique c'est bien mais plusieurs on risque le doublon

defaut 3
conséquence directe du defaut n°2
on est obligé de tester le réceptacle(une plage ou un array) pour voir si il n'a pas deja été tiré

defaut 4
ici dans cet exemple on travaille dans une colonne la "D" donc une plage
et donc du aux consequences du defaut 2 et 3 on cherche avec un find le numero choisi ce qui va devenir de plus en plus lourd en graduation exponentielle et donc plus long à s'executer
c'est a dire plus on va faire de tirage (10,20,30,,,100,200,etc....)plus on a de chance de déclencher l’étiquette (re🙂

voila tu sais tout

Hello,
je vais mettre aussi mon grain de sel dans la discussion. Voici une méthode qui utilise une ArrayList pour éviter les doublons.

GenNum génère NbNombres nombres de 1 à Max et met le résultat à partir de la cellule Target


Ami calmant, J.P

Pour voir comment je ferais avec un objet ListeAléat, joignez un classeur.

Bonjour à toutes et à tous,
Merci beaucoup pour vos partages d'idées et toutes mes excuses d'avoir tardé à vous répondre.
Voici mon fichier. Le MdP pour modification des cellules est "falaise", et pour modifier le fichier "RLC".
J'avoue être un peu perdu dans vos propositions qui sont assez complexes. Je suis loin d'avoir votre niveau en programmation.
patricktoulon, il me semble avoir déjà travaillé avec vous sur la mise en place d'une horloge, mais je ne me souviens plus très bien.
Merci à tous pour votre aide

Pour attribuer des codes formés de "FAL" suivi d'un nombre aléatoire compris entre 100 et 2099 comme le faisant votre expression Int(Rnd * 2000 + 100) en utilisant un ListeAléat :

Dranreb à dit:

Pour attribuer des codes formés de "FAL" suivi d'un nombre aléatoire compris entre 100 et 2099 comme le faisant votre expression Int(Rnd * 2000 + 100) en utilisant un ListeAléat :

VB:

Sub Aleatoire()
   Dim LAt As New ListeAléat, TRésu(), L&
   Randomize
   LAt.Init 2000
   ReDim TRésu(1 To ActiveSheet.[B2002].End(xlUp).Row - 1, 1 To 1)
   For L = 1 To UBound(TRésu, 1)
      TRésu(L, 1) = "FAL" & LAt(L) + 99
      Next L
   ActiveSheet.[A2].Resize(UBound(TRésu, 1)).Value = TRésu
   End Sub

Cliquez pour agrandir...

Bonjour Dranreb et merci pour votre code. Cependant quelque chose m'ennuie un peu. En effet si j'ajoutes un agent, les codes sont tous modifiés et cela ne me convient pas, il est impératif de garder les codes déjà attribués. J'aurai du le préciser dans ma demande et je m'en excuses.

Dranreb à dit:

Dans ce cas, figeons la graine.

Cliquez pour agrandir...

Merci beaucoup, ça me convient tout à fait comme ça.