Discussion :

[GADENSEB]

Bonjour le Forum,

Je dois résoudre un soucy.
J'ai ce code qui génère un nombre aléatoire dans ma colonne A pour toutes les lignes remplies dans la colonne B
Le truc c'est que je remplie (insére des lignes) dans la BDD au fur et a mesure du temps.
Donc les lignes insérées sont sans ce code aléatoire.

Du coup, je me dis que dans mon USF de saisie (BASE EMPLOI) je pourrais générer ce code aléatoire directement dans le textbox CODEBASE, au moment de la saisie.

--> Donc généré un code (en vérifiant un code non présent dans la colonne A de l'onglet "BASE EMPLOI'"

Est-ce possible ?

Bonne aprem

Seb

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
Sub CODEBASE()
Dim LeMax As Long
 
Application.ScreenUpdating = False
With Worksheets("BASE EMPLOI")
    LeMax = .Cells(.Rows.Count, "B").End(xlUp).Row
    With .Range("A2")
        .Value = 1
        .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=LeMax - 1
    End With
    .Columns(2).Insert
    .Range("B2:B" & LeMax).Formula = "=RAND()"
    .Range("A2:B" & LeMax).Sort Key1:=.Range("B2"), Order1:=xlAscending, Header:=xlNo
    .Columns(2).Delete
End With
 
 
 
End Sub

[Daniel.C]

Bonjour,

Ajoute ces lignes :

Code :

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

1
2
3
4
5
6
7
8
        Dim Teste As Variant
        'Génération du code aléatoire
        Randomize
        Teste = [A2]
        Do While IsNumeric(Application.Match(Teste, [A:A], 0))
            Teste = Int(Rnd * 100) + 1
        Loop
        Me.CODEBASE.Text = Teste

à la macro :

Code :

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

Private Sub FIN_Click()

Note que la plage de nombres aléatoires est limitée à 100. Augmente-la au besoin.

[GADENSEB]

Le code est nikel mais tourne en boucle.
Il va jusq'ua me dire mémoire insuffisante et fait planter excel

Dois-je le changer de position ?

[GADENSEB]

J'ai trouvé !
Le problème venait que le nombre est limité à 100
Je l’ai passé à 10000 et cela marche

Nikel !

Merci


Bonne aprem