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

[Invité]

Bonjour,

Attention, toutes les cellules de l'onglet sont effacées, à tester :

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
 
Option Explicit
 
Sub Aleatoire()
 
Dim Plage As Range, Cellule As Range
Dim NbLignes As Variant
 
    On Error GoTo Fin
 
    NbLignes = InputBox("Entrez le nombre de lignes : ")
    If IsNumeric(NbLignes) And NbLignes > 0 Then
        ActiveSheet.UsedRange.ClearContents
        Set Plage = Range("A1:F" & NbLignes)
        For Each Cellule In Plage
            Cellule = WorksheetFunction.RandBetween(1, 6)
        Next
    End If
 
    GoTo Fin
 
Fin:
 
  Set Plage = Nothing
 
End Sub

[Menhir]

Supprime la ligne If plage.Count > 6 Then Exit Sub et remplace le 6 suivant par plage.Count.

Mais attention : la durée d'exécution de la macro va augmenter de manière exponentielle avec le nombre de cellules.

Petite remarque perso : l'utilisation de Goto dans un code, ça n'est vraiment pas élégant. Une boucle While aurait été plus propre.