Code aléatoire pour toutes les cellules vides d'une colonne

[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

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

 

[GADENSEB]

Re : Code aléatoire pour toutes les cellules vides d'une colonne

snif snif personner aurait une idée ?