Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel chiffres aléatoires différents

chiffres aléatoires différents

5 réponses
Avatar
Charly
Bonjour,
Je souhaite g=E9n=E9rer un nombre al=E9atoire, entre 1 et 25,=20
dans une plage de 25 cellules (a1:e5) et obtenir 25=20
nombres diff=E9rents.

Quelqu'un pourrait-il m'aider car je n'arrive pas =E0 =E9viter=20
les doublons.

Merci et bonne journ=E9e

Charly
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonjour Charly,
Il y a11 réponses susceptibles de convenir ici :
http://www.excelabo.net/moteurs/multixl.php?pge=1&f_mot=tirage
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Charly" a écrit dans le message de
news:2c7dd01c46979$a3ee01a0$
Bonjour,
Je souhaite générer un nombre aléatoire, entre 1 et 25,
dans une plage de 25 cellules (a1:e5) et obtenir 25
nombres différents.

Quelqu'un pourrait-il m'aider car je n'arrive pas à éviter
les doublons.

Merci et bonne journée

Charly
Avatar
Charly
Merci pour l'info
Bonne journée
Charly
-----Message d'origine-----
Bonjour Charly,
Il y a11 réponses susceptibles de convenir ici :
http://www.excelabo.net/moteurs/multixl.php?
pge=1&f_mot=tirage

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Charly" a écrit
dans le message de

news:2c7dd01c46979$a3ee01a0$
Bonjour,
Je souhaite générer un nombre aléatoire, entre 1 et 25,
dans une plage de 25 cellules (a1:e5) et obtenir 25
nombres différents.

Quelqu'un pourrait-il m'aider car je n'arrive pas à éviter
les doublons.

Merci et bonne journée

Charly


.



Avatar
AV
Une soluce rapide :

Sub Alea_1à25_Dans_A1_E5()
Application.ScreenUpdating = False
[A1:E5] = "": [A:B].Insert
[A1:A25] = "=row()"
[B1:B25] = "=rand()"
[A1:B25] = [A1:B25].Value
[B1].Sort Key1:=[B1]: x = 3
For i = 1 To 25 Step 5
Range(Cells(1, x), Cells(5, x)) = (Range("A" & i & ":A" & i + 4))
x = x + 1
Next
[A:B].Delete
End Sub

AV
Avatar
Charly
C'est peut-être une soluce rapide mais diablement efficace.
C'est exactement ce que je recherchais.
Je te remercie pour ton travail, d'autant plus que ce
n'est pas la première fois que tu m'aides.
Amicalement.
Charly
-----Message d'origine-----
Une soluce rapide :

Sub Alea_1à25_Dans_A1_E5()
Application.ScreenUpdating = False
[A1:E5] = "": [A:B].Insert
[A1:A25] = "=row()"
[B1:B25] = "=rand()"
[A1:B25] = [A1:B25].Value
[B1].Sort Key1:=[B1]: x = 3
For i = 1 To 25 Step 5
Range(Cells(1, x), Cells(5, x)) = (Range("A" & i
& ":A" & i + 4))

x = x + 1
Next
[A:B].Delete
End Sub

AV


.



Avatar
AV
Je te remercie pour ton travail, d'autant plus que ce
n'est pas la première fois que tu m'aides.


Pas de problème ...
AV