Comment générer des numéros de loterie dans Excel ?

Cette méthode vous guidera à travers l'application de plusieurs fonctions Excel pour générer des numéros de loterie. Vous pouvez procéder comme suit :

1Dans une feuille de calcul vierge, saisissez les en-têtes de colonnes dans la plage A1:C1 comme indiqué dans la capture d'écran ci-dessous :

2. Entrez les formules dans la Colonne A, la Colonne B et la Colonne C :

(1) Dans la Cellule A2, entrez la formule =ALEA(), puis faites glisser la poignée de remplissage jusqu'à la plage A2:A50.
(2) Dans la Cellule B2, entrez la formule =RANG($A2;$A$2:$A$50)+NB.SI(B$1:B1;B1)-1, puis faites glisser la poignée de remplissage jusqu'à la plage B2:B50. (Dans cette formule, A2 est le nombre aléatoire à gauche de la cellule actuelle, $A$2:$A$50 sont tous les nombres aléatoires obtenus avec la première formule, B$1 est la première cellule de la Colonne B, et B1 est la cellule au-dessus de la cellule actuelle).
(3) Dans la plage C2:C50, entrez des numéros séquentiels de 1 à 49.

Vous obtiendrez ensuite un tableau comme celui illustré dans la capture d'écran de gauche :

 

La formule est trop compliquée à mémoriser ? Enregistrez la formule en tant qu'entrée de texte automatique pour la réutiliser en un seul clic à l'avenir ! Lire la suite…     Essai gratuit

3Trouvez une plage vide, tapez les numéros séquentiels horizontalement dans une ligne comme indiqué dans la capture d'écran ci-dessous :

4En dessous du premier numéro séquentiel de 1, entrez la formule =RECHERCHEV(G1;$B$1:$C$50;2;FAUX) et tirez la poignée de remplissage jusqu'à la plage dont vous avez besoin.

Remarque: Dans cette formule, G1 est la cellule contenant le premier numéro séquentiel de 1, $B$1:$C$50 sont la colonne de rang unique et la colonne de numéro de boule, 2 signifie rechercher des valeurs dans la deuxième colonne de la plage $B$1:$C$50.

Vous obtiendrez ensuite les numéros de loterie comme indiqué dans la capture d'écran ci-dessous :

5C'est facultatif. Pour empêcher les numéros de loterie de changer automatiquement lorsque la feuille de calcul actuelle se rafraîchit, vous pouvez cliquer sur Formule > Options de calcul > Manuel.

Si vous avez installé Kutools pour Excel, son utilitaire Insérer des données aléatoires peut vous aider à générer des numéros de loterie dans Excel en une seule fois.

1Sélectionnez 6 cellules adjacentes, telles que A1:F1, puis cliquez sur Kutools > Insérer > Insérer des données aléatoires.

2La boîte de dialogue Insérer des données aléatoires apparaît maintenant. Allez dans l'onglet Entier saisissez 1 dans De boîte, saisissez 49 dans À boîte, cochez l'option Générer des valeurs uniques et cliquez sur le bouton OK Maintenant, vous verrez que 6 numéros de loterie uniques sont générés et affichés immédiatement dans les cellules sélectionnées.

Cette méthode vous guidera pour appliquer une macro VBA afin de générer des numéros de loterie dans Excel. Veuillez procéder comme suit :

1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module pour ouvrir une nouvelle fenêtre de module, puis collez le code VBA suivant dedans :

VBA : Générateur de numéros de loterie dans Excel

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter cette macro VBA.

4Maintenant, dans la boîte de dialogue qui apparaît, spécifiez une cellule pour afficher les numéros de loterie, puis cliquez sur le bouton OK bouton.

Vous verrez alors que 6 numéros de loterie uniques sont générés et affichés dans les cellules spécifiées.

Sélectionner aléatoirement des cellules selon des critères dans Excel

Ajouter aléatoirement une couleur d'arrière-plan/remplissage aux cellules dans Excel