Discussion :

[NicoKrL]

Bonjour à tous,

Je vous sollicite car je souhaiterais réaliser une liste aléatoire, mais avec une plage variable.
J'ai trouvé la macro suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Aleatoire()
Dim plage As Range, cel As Range, alea As Double
 
Set plage = Range("H1:H80")
plage.Value = ""
If plage.Count > 80 Then Exit Sub
Randomize
 
For Each cel In plage
1     alea = WorksheetFunction.RandBetween(1, 80)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
 
End Sub

Je souhaiterais que H80 soit variable en fonction d'un nombre d'événement (par exemple dans une cellule P24, la valeur est de 42, je souhaiterai que ma plage soit (H1:H42).
Je ne sais pas si cela est possible et mon niveau en VBA est proche de 0 (voir 0 tout court).
D'avance merci et en parallèle je vais continuer mes recherches, j'espère que ma demande est claire

[a_diard]

Bonjour,par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Aleatoire()
Columns("H").ClearContents
Dim plage As Range, cel As Range, alea As Double
ligne = Range("P24").Value
Set plage = Range("H1:H" & ligne)
plage.Value = ""
If plage.Count > ligne Then Exit Sub
Randomize
For Each cel In plage
1 alea = WorksheetFunction.RandBetween(1, 80)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
 
End Sub

[NicoKrL]

Bonjour a_diard

Merci beaucoup pour votre aide, est-il possible d'avoir les valeurs "alea" suivant la valeur de "P24"?
je m'explique si P24=10 alors 1 alea = WorksheetFunction.RandBetween(1, 10) ou si P24 est égale a une valeur "n" alors la fonction aléatoire se fera de 1 à n?

Encore merci pour votre aide

[NicoKrL]

Re-Bonjour a_diard,

Il semblerait que j'ai trouvé avec ceci

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 Aleatoire()
 
Columns("H").ClearContents
Dim plage As Range, cel As Range, alea As Double
ligne = Range("P24").Value
Set plage = Range("H1:H" & ligne)
plage.Value = ""
If plage.Count > ligne Then Exit Sub
Randomize
For Each cel In plage
ligne = Range("P24").Value
1 alea = WorksheetFunction.RandBetween(1, ligne)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
 
End Sub

Encore merci

[sogedic]

de mon coté je coince

Code :

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

1
2
3
Set plage = Range("H1:H80")
plage.Value = ""
If plage.Count > 80 then exit sub

Ce test est toujours faux non ?

[NicoKrL]

de mon coté je coince

Code :

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

1
2
3
Set plage = Range("H1:H80")
plage.Value = ""
If plage.Count > 80 then exit sub

Ce test est toujours faux non ?

Bonjour sogedic,
De mon coté je n'ai pas de problème, l'ensemble fonctionne bien. Ci-dessous le code de a_diard modifié pour avoir la fonction aléatoire en fonction de cellule variable

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 Aleatoire()
 
Columns("H").ClearContents
Dim plage As Range, cel As Range, alea As Double
ligne = Range("P24").Value
Set plage = Range("H1:H" & ligne)
plage.Value = ""
If plage.Count > ligne Then Exit Sub
Randomize
For Each cel In plage
ligne = Range("P24").Value
1 alea = WorksheetFunction.RandBetween(1, ligne)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
 
End Sub

@+

[Qwazerty]

Salut

Les valeurs que tu souhaites avoir sont bien de type double? ou tu veux des nombres entier
Par exemple si P24 = 10, tu souhaites avoir
1;2;3;4;5;6;7;8;9;10 comme valeurs possibles ou 1,022250;1,00058644846843;5,65646846;...

++
Qwaz

[NicoKrL]

Salut

Les valeurs que tu souhaites avoir sont bien de type double? ou tu veux des nombres entier
Par exemple si P24 = 10, tu souhaites avoir
1;2;3;4;5;6;7;8;9;10 comme valeurs possibles ou 1,022250;1,00058644846843;5,65646846;...

++
Qwaz

Bonjour Qwazerty

Oui tout a fait mais j'ai trouvé la solution, merci pour ton aide

@+