Discussion :

[Agroeco77]

Bonjour à tous,

J'ai besoin d'aide! Je suis dbutant pour les macro vba sur excel. J'ai pu récupérer un code qui me permet d'afficher sur une ligne au hasard des numéro entre 1 et 6 sans répétition.
Je voudrais le faire pour 60 lignes par exemple. Ce doit être tout simle mais je ne vois pas comment faire!... Si qqun s'aurait m'aidé... Merci d'avance!

Voici le code :

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

Agroeco77