Générer Nombre Aléatoire sur Excel à chaque entrée

Version imprimable

04/11/2012, 16h55
Menadoc

Générer Nombre Aléatoire sur Excel à chaque entrée

Bonjour,

J'organise un évènement pour lequel les gens doivent s'inscrire en ligne.

J'utilise Excel pour encoder chaque participant qui s'inscrit avec des colonnes simples (nom, prénom, adresse, etc...).

J'aimerais ajouter une colonne supplémentaire qui génère un nombre unique à 12 chiffres aléatoire à chaque nouvelle entrée. Donc chaque fois que j'appuis sur "enter" pour aller à la ligne, automatiquement dans la case en question de la nouvelle ligne, un nombre apparaît et n'est plus redoublé dans la colonne afin d'être unique.

Existe-t-il une fonction pour cela ?

Merci pour votre aide.

Bonjour,

Une piste, dans le module de la feuille et sur l'évènement "Change". Dans mon exemple, la colonne des codes est la colonne F et les actions d'ajout des codes se fait sur la colonne E, c'est à dire que chaque fois que tu change la valeur en colonne E, un code unique est inscrit en colonne F sur la même ligne. Il te faut tester et adapter ainsi qu'insérer les divers contrôles de saisies si nécessaire :

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Plage As Range
 
    'action seulement en colonne E
    If Not Intersect(Target, Columns(5)) Is Nothing Then
 
        'les codes sont en colonne F (6 ème) à partir de la ligne 2
        With ActiveSheet
 
            Set Plage = .Range(.Cells(2, 6), .Cells(.Rows.Count, 6).End(xlUp))
 
        End With
 
        'inscrit un nombre aléatoire de 12 chiffres
        Target.Offset(0, 1) = NbAleatoire(Plage)
 
    End If
 
End Sub
 
Function NbAleatoire(Plage As Range) As Double
 
    Dim Dico As Object
    Dim Result As Double
    Dim I As Long
 
    Set Dico = CreateObject("Scripting.Dictionary")
 
    'récupère les codes déjà existants dans la plage
    'si 1 code est en doublon, affiche une boite de message
    'et la modif sera à faire à la "main"
    For I = 1 To Plage.Count
 
        If Dico.exists(Plage(I).Value) = False Then
 
            Dico.Add Plage(I).Value, Plage(I).Value
 
        Else
 
            MsgBox "Attention, le nombre " & Plage(I).Value & " est en doublon en cellule " & Plage(I).Address(0, 0)
            Exit Function
 
        End If
 
    Next I
 
    'initialise
    Randomize
 
    'recherche un code unique
    Do
 
        Result = Int((1000000000000# * Rnd) + 1)
 
        On Error Resume Next
        Dico.Add Result, Result
 
    Loop While Dico.exists(Result) = False
 
    NbAleatoire = Result
 
End Function

Hervé.

07/11/2012, 12h56
Menadoc

Merci pour ta réponse Hervé, seulement je suis un vrai débutant, peux tu me dire où je dois insérer ce code dans Excel ?
08/11/2012, 12h30
supermouton

Hum, dis voir, tu génères un fichier Excel depuis du code VB.net c'est bien ça ?
Ou alors tu travaille directement dans Excel ?

Si tu travaille directement sur Excel, malheureusement tu n'es pas dans le bon forum :s
09/11/2012, 13h56
Theze

Bonjour,

Le code est à mettre dans le module de la feuille où tu vas entrer tes données. Pour aller dans le VBE, Alt+F11, dans la petite fenêtre en haut à gauche, tu double clique sur la feuille qui a entre parenthèses le nom que tu lui a donné dans Excel et tu colle le code dans la partie droite qui vient de s'afficher.

Hervé.