Mettre une série de nombres dans le désordre
Fermé
achille777
Messages postés
1
Date d'inscription
samedi 13 août 2011
Statut
Membre
Dernière intervention
13 août 2011
-
13 août 2011 à 02:53
ccm81 Messages postés 10566 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 mars 2023 - 13 août 2011 à 10:10
ccm81 Messages postés 10566 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 mars 2023 - 13 août 2011 à 10:10
A voir également:
- Mettre une série de nombres dans le désordre
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Numéro de série idm - Forum Téléchargement
- Télécharger idm gratuitement sans numéro de série ✓ - Forum Logiciels
- Canal + serie free - Guide
- Serie turque en francais ✓ - Forum Cinéma / Télé
2 réponses
Mytå
Messages postés
2969
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
930
Modifié par Mytå le 13/08/2011 à 03:15
Modifié par Mytå le 13/08/2011 à 03:15
Salut le forum
Code à mettre dans un module
Il suffit de lancer la macro pour générer des nombres aléatoires
dans la plage A1:A148
Mytå
Quelle prétention de prétendre que l'informatique est récente
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]
Code à mettre dans un module
Sub RemplissageAleatoire()
Dim Tableau As Collection
Dim Plage As Range
Dim Cell As Range
Dim i As Integer, j As Integer
Set Tableau = New Collection
Set Plage = Range("A1:A148")
For Each Cell In Plage
Tableau.Add Cell.Address
Next Cell
For j = 1 To Plage.Count
Randomize
DoEvents
i = Int((Tableau.Count * Rnd)) + 1
Range(Tableau(i)) = j
Tableau.Remove i
DoEvents
Next j
End Sub
Il suffit de lancer la macro pour générer des nombres aléatoires
dans la plage A1:A148
Mytå
Quelle prétention de prétendre que l'informatique est récente
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]
ccm81
Messages postés
10566
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
29 mars 2023
2 341
13 août 2011 à 10:10
13 août 2011 à 10:10
bonjour,
une autre solution sans macro mais avec une colonne supplémentaire
A1=ALEA() à tirer jusqu'en A148
B1=rang(A1;$A$1:$A$148) à tirer jusqu'en B148
bonne suite
une autre solution sans macro mais avec une colonne supplémentaire
A1=ALEA() à tirer jusqu'en A148
B1=rang(A1;$A$1:$A$148) à tirer jusqu'en B148
bonne suite