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
Partager