Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Automatisation de la randomisation des cellules d'une colonne

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

MATLEA

XLDnaute Occasionnel
Bonjour à tous,

Dans le fichier matlea3 joint j'ai créé le tableau 1 avec des cellules C6 à C11 des patronymes. Mon but est de les reclasser de manière aléatoire. Manuellement (tableau 2) je rentre dans la cellule D17 =alea() ce qui me donne une valeur numérique. Dans le tableau 3 j'ai incrémenté sur les 6 cellules en descendant le point vert à partir du coin gauche de la cellule D17. Dans le tableau 4 j'ai randomisé en sélectionnant ensemble les cellules C et D 41 à 46 puis en cliquant sur données, trier puis colonne D dans trier par puis OK ce qui me donne le résultat visible dans le tableau 4. J'ai fait un tableau 5 en sélectionnant et copiant uniquement les cellules C50 à C57.
Ma question est de savoir s'il serait possible à partir d'un tableau 1 d'automatiser les différentes étapes pour arriver automatiquement aux résultats du tableau 4 et même 5.

Merci d'avance.

Matlea
 

Pièces jointes

Trier par date Trier par votes
Bonjour.
Vous parlez d'automatisation. Cela implique une macro VBA.
Mais dans ce cas il est inutile d'utiliser la fonction ALEAT d'Excel dans des formules, la fonction Rnd de VBA faisant l'affaire pour peu qu'une instruction Randomize ait été exécutée soit de façon à déterminer délibérément du début une certaine série bien précise soit au contraire d'en assurer une originale. Le tri aussi est inutile, le Mélange de Fisher-Yates faisant l'affaire.
La fonction perso Hasard de ces classeurs peut reproduire un nom de rang aléatoire dépendant d'une graine et du numéro de ligne.
 

Pièces jointes

Vote positif 0 Vote négatif
Merci DRANREB

Votre solution semble très efficace mais j'ai du mal à l'appliquer à ma problématique;
Dois-je saisir graine et dans quelle cellule? Dans votre tableau dans la cellule E3 il y a jeudi et une horloge mais E2et E3 semblent liées. Puis dans chacune des cellules du tableau 2 on trouve la formule suivante =@INDEX(C$5:C$10;@Hasard(LIGNE()-14;LIGNES(C$5:C$10);$E$3))
MAIS
dans D8 on lit une formule commençant par une flèche ="⟵ =INDEX(C$5:C$10;Hasard("&LIGNE()-14&";"&LIGNES(C$5:C$10)&";"&$E$3&"))"
c'est incrémenté dans D9, D10 etc
Mais ce qu'on lit dans le tableau au niveau de la ligne D9 ne correspond pas. Idem pour D10, D11, D12 etc
J'ai vraiment besoin de votre aide de façon pratique pour appliquer vos solutions à mes problématiques.

MERCI
 
Vote positif 0 Vote négatif
C'est mieux de définir la graine pour stabiliser le tirage, mais il n'est pas obligatoire qu'elle soit dans une cellule. Sa valeur peut aussi être la référence d'un nom, qui ne se réfère donc alors pas à une cellule. La colonne D montre juste la formule appliquée après remplacement des arguments par leurs valeurs.
Je le rejoint parce qu'il y a aussi une autre façon d'écrire la formule.
Regardez aussi la feuille "Fonction Hasard" du ListeAléat.xlsm: c'est un peu un tuto qui calcule et montre comment rédiger la formule selon ce qu'on veut bien fournir à la fonction et ce qu'on en attend.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
JHA à dit:
Bonjour à tous,

A essayer par formule ou avec un peu de VBA

JHA
Cliquez pour agrandir...
Bonsoir JHA

Par formule ca marche avec mes fichiers mais est-il possible de rendre automatique l'étape de =alea() puis d'incrémentation sur la colonne.

Pour le second fichier avec un peu de VBA j'ai quelques problèmes;

Dans la macro voir la copie ci-dessous), à quoi correspondent les valeurs a6:a11 (pour 6 et 11 ce sont les numéros de ligne de la 1ère et dernière cellule mais pourquoi a et en dessous pourquoi b dans Range("b6:b11"). Pour mes fichiers dois-je faire une macro similaire en remplaçant seulement 6 et11 par mes numéros de ligne première et dernière?

Dans chaque cellule du tableau 2 où doivent apparaitre les noms dans un nouvel ordre on trouve des formules du type =@INDEX($D$6:$D$11;RANG($B6;$B$6:$B$11;1)). De nouveau 6 et 11 sont OK pour moi et D doit correspondre à la colonne dans laquelle se trouve le tableau 1. Mais pourquoi B apres RANG. J'ai essayé différentes combinaisons dans mes autres fichiers mais sans résultat probable.
Comment donc combiner une macro et les formules dans les cellules pour que puisse se faire automatiquement la randomisation des cellules dans le tableau 2.
Merci pour les conseils.
Matlea

MACRO


Application.ScreenUpdating = False

Range("a6:a11").Select

Selection.Copy

Range("b6:b11").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Application.ScreenUpdating = True

Range("d13").Select

End Sub
 
Vote positif 0 Vote négatif

Bonjour JHA

J'ai une suggestion et deux questions.
Avec le fichier formule je crois avoir trouvé comment automatisé les étapes. Après avoir constitué le tableau 1 en laissant les cellules vides (sans les patronymes) Je prépare le tableau 2 en commençant par la colonne alea() contenant les 6 cellules qui ont donc ces valeurs de type 0,0123 etc Puis je prépare la colonne du tableau 2 qui accueillera les patronymes après randomisation en entrant dans chaque cellule la formule de type =@INDEX($B$3:$B$50;RANG($Z3;$Z$3:$Z$50;1)).
Ce n'est qu'à cette étape que je finalise le process en introduisant les patronymes dans le tableau 1 qui à chaque saisie va générer sa copie dans le tableau 2 à une position aléatoire.
Ceci marche très bien pour un nombre de cellules du tableau 2 alea() )contenant les valeurs de type 0,0123) égal au nombre de cellules du tableau 1. Dans l'exemple 6.
Mon objectif est de préparer une matrice pour être utilisée sans modification avec des tableaux 1 contenant un nombre variable de lignes. Si j'ai un nombre de lignes dans le tableau 1 inférieur à celui du tableau 2 la randomisation introduit au hasard des "0" sur certaines lignes ce que je voudrais éviter.
Voir le fichier joint Matlea4jha.
Est-il aussi possible d'empêcher les valeurs alea d'évoluer, j'ai essayé de les copier mais elles changent aussi dans la nouvelle colonne.
Merci
 
Vote positif 0 Vote négatif
J'y travaille mais je ne suis pas un expert
 
Vote positif 0 Vote négatif
Dranreb à dit:
Bonjour.
Pas de commentaire sur ma réponse et mon dernier classeur joint ?
Cliquez pour agrandir...

Dranreb,
Je ne suis pas un expert et j'ai du mal. Même quand je fais un copier coller de tout le tableau dans un nouveau fichier excel les cellules ne se remplissent pas comme elles devraient. Désolé.
Dranreb à dit:
Bonjour.
Pas de commentaire sur ma réponse et mon dernier classeur joint ?
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Microsoft 365 Procédé pour appliquer un filtre qui permet de ressortir les informations a la sélection d'une information dans une colonne.
Réponses
6
Affichages
175
djidji59430
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
398
PMG
C
  • Résolu(e)
XL 2016 Automatisation de l'alimentation des cellules de plusieurs feuilles Excel (Formules : Recherchev...)
Réponses
10
Affichages
245
micheldu52
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
358
spike29
S
B
  • Résolu(e)
XL 2021 compter les cellules de la même couleur
2 3
Réponses
36
Affichages
1 K
mapomme
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
335
Phil69970
D
  • Question Question
XL 2016 Une Zone de Liste pour plusieurs cellules.
Réponses
7
Affichages
325
duduche62
D
S
  • Question Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
568
Jacky67
C
  • Question Question
XL 2016 Suivi des entretiens véhicules
Réponses
2
Affichages
357
clethu
C
T
  • Question Question
Microsoft 365 Afficher des résultats d'une colonne sur une ligne
Réponses
3
Affichages
228
toto142
T
S
  • Question Question
Microsoft 365 Protéger des cellules de la feuille en permettant d'agrandir les colonnes
Réponses
6
Affichages
164
Sissou71
S
T
  • Question Question
Microsoft 365 Faire la somme de cellules d'une colonne ayant le même nom dans une autre colonne.
Réponses
6
Affichages
232
Thibox
T
  • Question Question
Microsoft 365 Remplir cellules à partir de plusieurs fichiers Excel d'un dossier
2
Réponses
17
Affichages
800
alexga78
A
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
482
piga25
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
434
Lu76Fer
  • Question Question
XL 2019 coloriser une partie du contenu de la cellule
Réponses
8
Affichages
175
mapomme
T
  • Question Question
XL 2021 Retirer "vide" d'un TCD suite à la sélection de colonnes
Réponses
5
Affichages
767
crocrocro
C
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
2 K
NONO14
N
H
  • Question Question
Power Query Récupérer des données multiples dans un dossier
Réponses
9
Affichages
272
hijackfr
H
Z
  • Résolu(e)
XL 2021 Faire clignoter un texte spécifique dans les cellules d'une colonne
Réponses
4
Affichages
529
ZE21000
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…