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