creation aleatoir de numero client

[kagura]

Bonjour,
Je suis nouvelle sur le site et j'aimerais un peu d'aide svp
voila je cherche générer un numero client aléatoir dans une cellule afin d'alimenter une base de donner via un userform
comme pourais je faire?

Je pense qu'il faut utilser la fonction LRandomNumber
mais je ne sias pas trop comme faire...

merci à vous
et bonne fin de journée

Kagura

 

[phlaurent55]

Re : creation aleatoir de numero client

Bonjour Kagura

voila je cherche générer un numero client aléatoir dans une cellule afin d'alimenter une base de donner via un userform
comme pourais je faire?

pourquoi générer un N° de client de manière aléatoire

il vaudrait mieux que ce numéro réponde à une certaine logique
par exemple le N° tiendrait compte des date et heure (H:M:S) à laquelle le nouveau client a été inscrit

..... ou alors, je n'ai rien compris
si tu pouvais joindre ton fichier pour me permettre de mieux cerner le problème

à+
Philippe

 

[kagura]

Re : creation aleatoir de numero client

Bonjour Philippe et merci pour ta reponse,
effectivement je pourrais générer un numero de maniere logique ca ne change rien effectivement
est il possible de prendre l'année + l'heure par exemple ?

Voici mon code acutel,

J'alimente donc un tableau excel et je voudrais en meme temp crée donc un numero client qui s'implementerais au moment ou je clique sur ajouter

encore merci 🙂

'Bouton "ajouter"
Private Sub CommandButton1_Enter()

'Insertion d'une ligne en feuil2 sur A2:J2

Sheets("BDE_Clients").Select
Selection.Copy
Sheets("BDE_Clients").Select
Selection.Insert Shift:=xlDown

' Insertion des bordures
Range("B2:J2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

' 2- Copier les valeurs dans les cases "A9:J9"

'Nom, prenom,'adresse,CP ,Telephone 1 & 2, adresse mail, remarque
[B2] = Me.TextBox1.Value
[c2] = Me.TextBox2.Value
[D2] = Me.TextBox5.Value
[E2] = Me.TextBox6.Value
[F2] = Me.TextBox7.Value
[G2] = Me.TextBox8.Value
[H2] = Me.TextBox9.Value
[I2] = Me.TextBox11.Value
[J2] = Me.TextBox10.Value
'[K2] = Me.TextBox10.Value

'Tri Croissant de la feuille " Données"

Range("b2:A158").Select
Selection.Sort Key1:=Range("A2:J9"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("b2:J2").Select

End Sub

 

[phlaurent55]

Re : creation aleatoir de numero client

Re,

étant nouveau sur le forum, il te sera pardonné de ne pas avoir mis ton fichier en pièce jointe
........... et je n'ai pas envie de tout construire

avec ceci:
[L2] = Int(Rnd * 100000000)
pour mettre un nombre aléa en colonne L

à+
Philippe

 

[kagura]

Re : creation aleatoir de numero client

désoler pour le copier coller ....
je testerais ça et je te dirais
merci en tout cas , je ne regrette pas d'avoir trouver ce forum !! vraiment pas ,je vais pouvoir bien avancé
merci encore
kagura