Discussion :

[shawn69]

Bonjour je souhaite créer une macro pour générer des nombres a la suite avec metton la date du jour et un chiffre a la suite exemple (annee mois jour) 2010021901 et ainsi de suite. J'ai trouvé une macro sauf quelle ne fait que géréer de 0 a 9000 bref quelqu'un peut m'éclairer sur le sujet svp...

merci de votre temps

[Gorfael]

Salut shawn69 et le forum

J'ai trouvé une macro

C'est bien, mais on ne sait pas quoi tu parles et modifier un code ne peut se faire que si on a le code.
A+

[rvtoulon]

Bjr,
peux-t-on voir cette macro stp..
Ce sera plus facile pour t'aider, merci
@+

EDIT: Bsr Gorfael désolé pour le doublon

[shawn69]

Salut shawn69 et le forumC'est bien, mais on ne sait pas quoi tu parles et modifier un code ne peut se faire que si on a le code.
A+

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
20
21
22
23
24
25
26
27
Sub Test()
    GenereSerieAleatoireSansDoublons 9000, Range("a1")
End Sub
 
 
Sub GenereSerieAleatoireSansDoublons(NbValeurs As Integer, Cell As Range)
    Dim Tableau() As Integer, TabNumLignes() As Integer
    Dim i As Integer, k As Integer
 
    ReDim Tableau(NbValeurs)
    ReDim TabNumLignes(NbValeurs)
 
    For i = 1 To NbValeurs
        TabNumLignes(i) = i
        Tableau(i) = i
    Next
 
    'Initialise le générateur de nombres aléatoires
    Randomize
 
    For i = NbValeurs To 1 Step -1
        k = Int((i * Rnd) + 1)
        Cells(Cell.Row + i - 1, Cell.Column) = Tableau(TabNumLignes(k))
        TabNumLignes(k) = TabNumLignes(i)
    Next
 
End Sub

[ESVBA]

Bonjour à toutes et tous,

une macro sauf quelle ne fait que géréer de 0 a 9000 bref

Changez la valeur "9000" dans la procédure "Sub Test()".

générer des nombres a la suite avec metton la date du jour et un chiffre a la suite exemple

La procédure place tous les nombres consécutifs entiers dans un ordre aléatoire. Au premier coup d'oeil.

Il suffit de changer pour avoir le jour devant

Code :

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

Cells(Cell.Row + i - 1, Cell.Column) = Tableau(TabNumLignes(k)

en

Code :

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

Cells(Cell.Row + i - 1, Cell.Column) = Format(Now(), "yyyymmdd") & Format(Tableau(TabNumLignes(k)), String(Len(Str(NbValeur)) - 1, "0"))

ESVBA