suite de numéros aléatoires

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Num
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

Num

XLDnaute Nouveau
Bonjour à tous.
Avis à tous les super pro d'excel ! 😉
Voici ce que je souhaiterai réaliser dans un onglet excel :

De la cellule A1 à A10 (par exemple) je souhaiterai avoir des numéros aléatoires alphanumériques codé sur 10 caractères.
En suite je souhaiterai refaire la même manipulation mais de la cellule C15 à C40 (par exemple).
Par contre je souhaites que des numéros aléatoires uniques dans tout l'onglet !
donc la suite de C15 à C40 doit être différente de celle de A1 à A10.
Le but étant de réaliser plusieurs suite de numéro aléatoire dans un onglet.

Je pense qu'il faut réaliser un macro avec comparaison des nombres créés dans l'onglet, mais la moi je cale 🙁

Merci d'avance pour vos réponses. 🙂
 
Trier par date Trier par votes
Re : suite de numéros aléatoires

Bonjour


Je te laisse t'inspirer de :
Code: 
Sub RandomPassword()
'auteur: Dave Hawley
    Dim strPassword As String
    Dim i As Integer
    For i = 1 To 10
        If i Mod 2 = 0 Then
            strPassword = Chr(Int((90 - 65 + 1) * Rnd + 65)) & strPassword
        Else
            strPassword = Int((9 * Rnd) + 1) & strPassword
        End If
    Next i
     MsgBox strPassword
End Sub
• Pour générer par formule
(en reprenant l'exemple VBA)

=CAR(ENT(90-65+1)*ALEA()+65)&CAR(ENT(90-65+1)*ALEA()+65)

Génère deux lettres aléatoires

Tu peux aussi employer des formule nommée
Insertion/Noms/Définir
Ex: LALEA
=CAR(ENT(90-65+1)*ALEA()+65)
Puis
DIXLettresA
=LALEA&LALEA&LALEA&LALEA&LALEA&LALEA&LALEA&LALEA&LALEA&LALEA

Ensuite dans une cellule tu saisis:
=DIXLettresA


Edition: bonjour Pierrejean, bonjour Pierrot93
 
Dernière édition:
Vote positif 0 Vote négatif
Re : suite de numéros aléatoires

bonjour Num

Je ne suis pas super pro , donc je ne ferai qu'une suggestion
Creer des le depart un tableau (sans doublon) de numeros alphanumeriques suffisament important , et ensuite puiser dans ce tableau au fur et a mesure des besoins
As-tu une idée du nombre maximum de numeros a creer ?
Y a t il des regles a respecter pour la constitution des numeros ?

Edit : Salut Staple 🙂
 
Vote positif 0 Vote négatif
Re : suite de numéros aléatoires

Bonjour Num, PierreJean, Jean-Marie

une autre solution, la bonne idée d'utiliser la fonction "choose" dans ce cas est de l'ami Didier🙂 :

Code: 
Option Explicit
Sub test()
Dim i As Byte, c As Byte, l As Byte, x As String, y As String, z As Byte, w As Byte
Randomize
w = 10
For c = 1 To 3 Step 2
    For l = 1 To w
        For i = 1 To 10
            x = Choose(Int((36 * Rnd) + 1), "a", "b", "c", "d", "e", "f", "g", "h", "i", "j" _
            , "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" _
            , "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
            y = y & x
        Next i
        Cells(l + z, c).Value = y
        y = ""
    Next l
z = 14
w = 26
Next c
End Sub

bon après midi.
@+
 
Vote positif 0 Vote négatif
Re : suite de numéros aléatoires

tout d'abord merci pour vos réponses si rapide !

pierrejean : il n'y a pas de structure à respecter, juste qu'il soit de 10 carractère.
Concernant le nombre je ne sais pas combien.

Je vais essayer les différentes solutions proposées et je vous tient au courant.

Ce qui me fait peur c'est que je ne vois pas qu'elle est la formule qui va controler sur tout mon onglet, qu'il n'y a pas de doublon !

Je vais tester !
 
Vote positif 0 Vote négatif
Re : suite de numéros aléatoires

le code aléatoire correspond à un produit.
un code = un produit

et par onglet j'ai différente famille.
Ce qui me donne le code final suivant

"code famille" + "numéro aléatoire" + "incrémentation"

ex : EBTG 920zp3z8yq 0001
donc dans tout mon premier onglet il y aura des codes commencant par EBTG....

L'autre onglet famille suivante...

sinon j'ai testé le code de Pierrot93, il faudrait juste que je puisse lui déterminer la plage d'action, au lieu qu'il soit impossé par le code.

Par exemple je sélectionne une zone puis je lance la macro et la j'ai tous les numéros aléatoires !! le rêve quoi !

Sinon concernant le fonction "choose", comment peux ton controler qu'il ne génére pas de doublon?
 
Vote positif 0 Vote négatif
Re : suite de numéros aléatoires

Re

pour pouvoir sélectionner une ou plusieurs plages de cellules :

Code: 
Option Explicit
Sub test()
Dim c As Range, maplage As Range, i As Byte, x As String, y As String
Randomize
On Error Resume Next
Set maplage = Application.InputBox("selectionnez une ou" & vbLf _
    & "plusieurs plage(s) de cellules !!!", , , , , , , 8)
On Error GoTo 0
If Not maplage Is Nothing Then
    For Each c In maplage
        For i = 1 To 10
            x = Choose(Int((36 * Rnd) + 1), "a", "b", "c", "d", "e", "f", "g", "h", "i", "j" _
            , "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" _
            , "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
            y = y & x
        Next i
        c.Value = y
        y = ""
    Next c
End If
End Sub

@+
 
Vote positif 0 Vote négatif
Re : suite de numéros aléatoires

Re

pour éviter les caractères en doublon dans une même chaîne :

Code: 
Option Explicit
Sub test()
Dim c As Range, maplage As Range, i As New Collection, ii, x As String, y As String
Randomize
On Error Resume Next
Set maplage = Application.InputBox("selectionnez une ou" & vbLf _
    & "plusieurs plage(s) de cellules !!!", , , , , , , 8)
On Error GoTo 0
If Not maplage Is Nothing Then
    For Each c In maplage
        Do While i.Count < 10
            x = Choose(Int((36 * Rnd) + 1), "a", "b", "c", "d", "e", "f", "g", "h", "i", "j" _
            , "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" _
            , "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
            On Error Resume Next
            i.Add x, CStr(x)
        Loop
        On Error GoTo 0
        For Each ii In i
            y = y & ii
        Next ii
        Set i = Nothing
        c.Value = y
        y = ""
    Next c
End If
End Sub

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : suite de numéros aléatoires

Re,

allez dernière version pour le fun, avec recherche de doublon sur toutes les feuilles du classeurs :

Code: 
Option Explicit
Sub test3()
Dim c As Range, maplage As Range, i As New Collection, ii, x As String, y As String
Dim ws As Worksheet, r As Range
Randomize
On Error Resume Next
Set maplage = Application.InputBox("selectionnez une ou" & vbLf _
    & "plusieurs plage(s) de cellules !!!", , , , , , , 8)
On Error GoTo 0
If Not maplage Is Nothing Then
    For Each c In maplage
debut:
        Do While i.Count < 10
            x = Choose(Int((36 * Rnd) + 1), "a", "b", "c", "d", "e", "f", "g", "h", "i", "j" _
            , "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" _
            , "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
            On Error Resume Next
            i.Add x, CStr(x)
        Loop
        On Error GoTo 0
        For Each ii In i
            y = y & ii
        Next ii
        Set i = Nothing
        For Each ws In Worksheets
            Set r = ws.Cells.Find(y, , xlValues, xlPart, , , False)
            If Not r Is Nothing Then y = "": GoTo debut
        Next ws
        Set r = Nothing
        c.Value = y
        y = ""
    Next c
End If
End Sub

j'aime bien également ta solution PierreJean🙂

@+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Résolu(e)
Power Query Etude chaine de caractères
Réponses
3
Affichages
416
Flx1er
F
O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
223
Gégé-45550
Gégé-45550
sebbbbb
  • Question Question
XL 2010 changement de la couleur d'un onglet (jaune), si une des cellules d'un tableau n'est plus vide sinon l'onglet garde sa couleur d'origine
2
Réponses
23
Affichages
768
sebbbbb
sebbbbb
N
  • Question Question
Microsoft 365 Calcul de prix moyen pondéré de recettes
2
Réponses
15
Affichages
368
Nino63
N
Y
  • Résolu(e)
XL 2016 Importer des données suivant l'ordre de passage
Réponses
10
Affichages
434
YGU1
Y
anthoYS
  • Résolu(e)
Microsoft 365 Si contient telle liste de mots, colorer en bleu, sinon autre liste en vert, autre en violet..., etc.
2
Réponses
17
Affichages
484
anthoYS
anthoYS
S
  • Question Question
XL 2021 suite de nombre avec changement tous les 5
Réponses
9
Affichages
616
mapomme
mapomme
C
  • Question Question
Microsoft 365 Créer un synthèse de plusieurs onglets
Réponses
7
Affichages
624
cdric78
C
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
906
loloboc
L
J
  • Question Question
Autres Formule ou macro
Réponses
2
Affichages
303
JFR
J
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
494
benjy555
B
E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
300
sylvanu
sylvanu
B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
383
kiki29
kiki29
N
  • Résolu(e)
Microsoft 365 Aide pour insertion nombre aléatoire
2
Réponses
22
Affichages
988
NONO14
N
J
  • Résolu(e)
XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau
2 3
Réponses
40
Affichages
2 K
Phil69970
Phil69970
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
286
olivier Clech
O
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
2 K
sousou
sousou
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
481
MCOTTEND
M
T
  • Résolu(e)
XL 2016 Synthese - renvoi d'info sur un onglet
2
Réponses
15
Affichages
864
tuti
T
Raziel abel
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
484
Raziel abel
Raziel abel
Retour