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

Cette méthode vous accompagne pas à pas dans l’utilisation de plusieurs fonctions Excel pour générer des numéros de loterie. Suivez ces étapes :

1. Dans un classeur Feuille de calcul vierge, saisissez les en-têtes de colonne dans la plage A1:C1, comme illustré dans la capture d’écran ci-dessous :

2. Saisissez des formules dans les colonnes A, B et C :

(1) Dans la cellule A2, saisissez la formule =ALEA(), puis faites glisser la poignée de recopie jusqu’à la plage A2:A50.
(2) Dans la cellule B2, saisissez la formule =RANG($A2;$A$2:$A$50)+NB.SI(B$1:B1;B1)-1, puis faites glisser la poignée de recopie jusqu’à la plage B2:B50. (Dans cette formule, A2 est le nombre aléatoire situé à gauche de la cellule actuelle, $A$2:$A$50 représente l’ensemble des nombres aléatoires générés par la première formule, B$1 est la première cellule de la colonne B et B1 est la cellule située juste au-dessus de la cellule actuelle.)
(3) Dans la plage C2:C50, saisissez les nombres consécutifs de 1 à 49.

Vous obtiendrez alors un tableau tel que celui illustré dans la capture d’écran ci-contre :

 

La formule est trop compliquée à retenir ? Enregistrez-la en tant qu’entrée de texte automatique et réutilisez-la en un seul clic à l’avenir !En savoir plus…     Essai gratuit

3. Repérez une zone libre et saisissez des nombres consécutifs horizontalement sur une ligne, comme illustré dans la capture d’écran ci-dessous :

4. Sous la première occurrence de « Numéro de séquence de 1 », saisissez la formule =RECHERCHEV(G1;$B$1:$C$50;2;FAUX), puis faites glisser la poignée de recopie jusqu’à la plage souhaitée.

Remarque : dans cette formule, G1 est la cellule contenant la première occurrence de « Numéro de séquence de 1 », $B$1:$C$50 correspond aux colonnes « Rang unique » et « Numéro de boule », et le chiffre 2 indique que les valeurs doivent être extraites depuis la deuxième colonne de la plage $B$1:$C$50.

Vous obtiendrez alors les numéros de loterie tels qu’illustrés dans la capture d’écran ci-dessous :

5. Cette étape est facultative. Pour empêcher les numéros de loterie de changer automatiquement lorsque la feuille de calcul active effectue un recalcul, cliquez sur Formules > Options de calcul > Manuel.

Si vous avez installé Kutools pour Excel, son utilitaire Insérer des données aléatoires vous permet de générer instantanément des numéros de loterie dans Excel.

1. Sélectionnez six cellules adjacentes, par exemple A1:F1, puis cliquez sur Kutools > Insérer > Insérer des données aléatoires.

2. La boîte de dialogue Insérer des données aléatoires s’ouvre alors. Accédez à l’onglet Entier, saisissez 1 dans la zone De, saisissez 49 dans la zone À, cochez l’option Valeurs uniques, puis cliquez sur le bouton OK. Vous verrez immédiatement apparaître 6 numéros de loterie uniques dans les cellules sélectionnées.

Cette méthode vous explique comment utiliser une macro VBA pour générer des numéros de loterie dans Excel. Suivez ces étapes :

1. Appuyez sur les touches 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 :

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 lancer cette macro VBA.

4. Dans la boîte de dialogue qui s’ouvre, indiquez une cellule de destination pour les numéros de loterie, puis cliquez sur le bouton OK.

Vous verrez alors apparaître six numéros de loterie uniques dans les cellules indiquées.

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

Ajouter aléatoirement une couleur de fond/Couleur de remplissage aux cellules dans Excel