Discussion :

[GADENSEB]

Bonjour le Forum,
Je cherche à générer un nombre aléatoire entre 1 et 9999
dans une colonne A2 --> jusqu’à la dernière ligne remplie
Sachant qu'il ya toujours une valeur dans la colonne B:B

J'ai trouvé ce code sur Excelabo mais je ne sais pas trop comment l'adapter......

QQn aurait une idée?

bonne journée

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
Comment remplir une colonne avec 200 nombres qui ne se répètent jamais ?
Sans macro : en A1 =ALEA() 
en B1=RANG(A1;A:A) recopier vers le bas x fois selon l'étendue souhaitée 
en colonne B on obtient x nombres sans jamais 2 fois le même! 
Faire F9 pour une nouvelle génération avec VBA : Garanti sans doublon et sans boucle :
sub tirage()
 leMax = InputBox("Valeur max", "Valeurs de 1 à valeur max")
 Application.ScreenUpdating = False
 [A1] = 1
 [A1].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=leMax
 Range("B1:B" & leMax).Formula = "=RAND()"
 [A:B].Sort Key1:=Range("B1"), Order1:=xlAscending
 [B:B].Delete
 [A1].Select
 end sub

[mercatog]

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
Sub Tirage()
Dim LeMax As Integer
 
Application.ScreenUpdating = False
LeMax = InputBox("Valeur max", "Valeurs de 1 à valeur max")
With Worksheets("Feuil1")
    With .Range("A1")
        .Value = 1
        .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=LeMax
    End With
    .Columns(2).Insert
    .Range("B1:B" & LeMax).Formula = "=RAND()"
    .Range("A1:B" & LeMax).Sort Key1:=.Range("B1"), Order1:=xlAscending
    .Columns(2).Delete
End With
End Sub

[GADENSEB]

Excellent code !

si on pouvait faire une petite adaptation

Lemax = la valeur max du code et non pas jusqu'a quelle ligne remplir

Je souhaite remplir la colonne A, avec le code aléatoire, jusqu'a la derniére ligne remplie dans la colonne B.

Merci
Seb

[mercatog]

Ligne 1 celle des titres, sinon, il faudra adapter

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
Sub Tirage()
Dim LeMax As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    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]

au poil !!!

un grand merci à toi !


Bonne journée

Seb

hello !
je reviens vers toi

Le code marche nikel

par contre cela me pose un probléme pour le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ANNONCE_Click()
    Dim C As Range
    On Error Resume Next
    With Sheets("BASE EMPLOI")
        Set C = .Cells(Application.Match(CODEBASE, .[A2:A], 0), "AN")
    End With
    C.Hyperlinks(1).Follow True
    Application.Goto Range(C.Hyperlinks(1).SubAddress)
End Sub

ton code étant adapter à mes onglets

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
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

CODEBASE étant l'endroit ou est renvoyé le nombre aléatoire


Est-ce que le fait de mettre une valeur numérique peut perturber le premier code ?

[mercatog]

Je n'en sais rien

Code :

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

.[A2:A]

[GADENSEB]

J'ai essayé mais cela ne marche pas .... sniff

avant le code aléatoire été un code alphanumérique peut etre qu'en changeant le code aléatoire en code alpha numérique....
tu aurais un code pour ca ?

[mercatog]

Déjà corrige .[A2:A] en .[A2:Axx]

[GADENSEB]

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ANNONCE_Click()
    Dim C As Range
    On Error Resume Next
    With Sheets("BASE EMPLOI")
        Set C = .Cells(Application.Match(CODEBASE, .[A2:A2500], 0), "AN")
    End With
    C.Hyperlinks(1).Follow True
    Application.Goto Range(C.Hyperlinks(1).SubAddress)
End Sub

marche pas ... Snifff

[mercatog]

Avec Find

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim c As Range
 
With Sheets("BASE EMPLOI")
    Set c = .Range("AN:AN").Find(CODEBASE, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        c.Hyperlinks(1).Follow True
        Application.Goto Range(c.Hyperlinks(1).SubAddress)
        Set c = Nothing
    End If
End With

[GADENSEB]

pas mieux ......

[mercatog]

pas mieux ......

Tant pis, c'est justement la réponse à une telle phrase

Sinon,
Quelles sont tes données de la colonne AN et qu'est ce que tu as dans la variable CODEBASE

[GADENSEB]

CODEBASE est un textbox
avec le code aléatoire que l'on a écrit

en AN
Il ya la mot ANNONCE et un lien hypertexte vers un fichier pdf stocké sur mon disque

[mercatog]

Mais tu cherches le contenu de ta TextBox (CODEBASE) dans la colonne AN, tu as vu la logique?

Explique toi bien

Peut être tu cherche dans A pour aller dans AN

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim c As Range
 
With Sheets("BASE EMPLOI")
    Set c = .Range("A:A").Find(CODEBASE, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        c.Offset(, 39).Hyperlinks(1).Follow True
        Application.Goto .Range(c.Offset(, 39).Hyperlinks(1).SubAddress)
        Set c = Nothing
    End If
End With

[kiki29]

Salut, juste à titre documentaire il y a ceci et cela

[Philippe Tulliez]

Bonjour,
Je ne sais pas si j'ai bien compris la question mais pour générer des nombres entiers, il y a une formule native qui existe transposable bien entendu en VBA
Excel

Code :

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

=ALEA.ENTRE.BORNES(1;999)

En VBA

Code :

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

1
2
 Range("A2:A20").Formula = "=RANDBETWEEN(1,999)"
 Range("A2:A20").Value = Range("A2:A20").Value ' Si on souhaite garder le résultat

Cette fonction offre bien d'autres avantages que vous pouvez découvrir dans cette contribution ALEA.ENTRE.BORNES - Générer des noms, prénoms et dates aléatoires

[GADENSEB]

@ mercatog
J'ai une erreur

Code :

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

c.Offset(, 39).Hyperlinks(1).Follow True

[mercatog]

@Philippe
Il veut avoir une liste aléatoire entre 1 et n sans doublons

@GADENSEB
Retrousse les manches au lieu de nous copier une image. On est là pour t'aider et pas à te donner une solution fonctionnelle à 100% sur un fichier qu'on devine vu les explications données.

[GADENSEB]

@ Mercatog :
Yes j'ai pas mis mon fichier par feignentise cette fois lol

Purée je rame sur ce coup là :
- avec c.Offset(, 39) on décale le résultat de la recheche en colonne A en colonne AN ,ça j'ai pigé
- J'ai changé .Range("A2:A2500") mais ce que je me dis c'est le probléme viens peut être que les données du classement des données en colonne A
sous excel j'ai des soucis avec rechercheV si les données ne sont pas classées A->Z
mais cela marche avec sommeprod
Du coup, le problème est peut être là ....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ANNONCE_Click()
Dim c As Range
 
With Sheets("BASE EMPLOI")
    Set c = .Range("A2:A2500").Find(CODEBASE, LookIn:=xlValues, lookat:=xlWhole)
   If Not c Is Nothing Then
        c.Offset(, 39).Hyperlinks(1).Follow True
        Application.Goto .Range(c.Offset(, 39).Hyperlinks(1).SubAddress)
     Set c = Nothing
   End If
End With
End Sub

[Philippe Tulliez]

Bonjour,

- J'ai changé .Range("A2:A2500") mais ce que je me dis c'est le probléme viens peut être que les données du classement des données en colonne A
sous excel j'ai des soucis avec rechercheV si les données ne sont pas classées A->Z

Si tu recherches une valeur exacte, le quatrième argument de la formule RECHERCHEV doit avoir FAUX comme valeur et cela fonctionne que la liste soit triée ou pas.
A lire Fonctions Excel à la loupe : N°1 - RECHERCHEV()