Générer aléatoirement des cellues; excel
Résolu/Fermé
Knüt_34
Messages postés
2
Date d'inscription
mardi 4 octobre 2011
Statut
Membre
Dernière intervention
4 octobre 2011
-
4 oct. 2011 à 12:19
Knüt_34 Messages postés 2 Date d'inscription mardi 4 octobre 2011 Statut Membre Dernière intervention 4 octobre 2011 - 4 oct. 2011 à 14:47
Knüt_34 Messages postés 2 Date d'inscription mardi 4 octobre 2011 Statut Membre Dernière intervention 4 octobre 2011 - 4 oct. 2011 à 14:47
A voir également:
- Générateur de grille loto excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Generateur mdp - Télécharger - Sécurité
- Si et excel - Guide
- Aller à la ligne excel - Guide
4 réponses
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 395
4 oct. 2011 à 12:38
4 oct. 2011 à 12:38
Bonjour
ici une solution sans macro:
http://www.cijoint.fr/cjlink.php?file=cj201110/cijlqaOuVK.xls
crdlmnt
ici une solution sans macro:
http://www.cijoint.fr/cjlink.php?file=cj201110/cijlqaOuVK.xls
crdlmnt
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
4 oct. 2011 à 12:40
4 oct. 2011 à 12:40
Bonjour,
Ton problème, tel qu'il est exposé, peut être résolu par une formule.
Explications :
- tes phrases toutes faites, en feuil2 de A1 à A10
- en feuil1, dans la cellule outu souhaites voir s'afficher aléatoirement une des phrases de la feuil2, saisir :
=INDEX(Feuil2!A1:A10;ENT(ALEA()*10)+1)
Pour changer la phrase, il suffit de "recalculer la feuille" : appuie sur F9
On peux également valider définitivement une proposition initialement aléatoire (figer la cellule) :
Appuie sur F9 pour "lancer" la formule aléatoire, clic gauche sur la cellule, F2, puis F9, valider par Entrée.
Ton problème, tel qu'il est exposé, peut être résolu par une formule.
Explications :
- tes phrases toutes faites, en feuil2 de A1 à A10
- en feuil1, dans la cellule outu souhaites voir s'afficher aléatoirement une des phrases de la feuil2, saisir :
=INDEX(Feuil2!A1:A10;ENT(ALEA()*10)+1)
Pour changer la phrase, il suffit de "recalculer la feuille" : appuie sur F9
On peux également valider définitivement une proposition initialement aléatoire (figer la cellule) :
Appuie sur F9 pour "lancer" la formule aléatoire, clic gauche sur la cellule, F2, puis F9, valider par Entrée.
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 395
Modifié par Vaucluse le 4/10/2011 à 12:43
Modifié par Vaucluse le 4/10/2011 à 12:43
Salut Pijaku,
Moi j'avais compris que le demandeur souhaitait composer des phrases en mélangeant les mots?
on attend pour voir!
bonne journée. Au plaisir
crdlmnt
Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique?
Moi j'avais compris que le demandeur souhaitait composer des phrases en mélangeant les mots?
on attend pour voir!
bonne journée. Au plaisir
crdlmnt
Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
4 oct. 2011 à 12:43
4 oct. 2011 à 12:43
Oui! Décidément c'est pas ma journée... J'avais point vu les entêtes de colonne...
Attendons...
Bonne journée à toi aussi
Attendons...
Bonne journée à toi aussi
Knüt_34
Messages postés
2
Date d'inscription
mardi 4 octobre 2011
Statut
Membre
Dernière intervention
4 octobre 2011
4 oct. 2011 à 14:47
4 oct. 2011 à 14:47
Oui, il s'agissait bien de mélanger les mots.
Finalement, qqun m'a posté cette solution avec macro sur une autre forum :
Sub test()
Randomize
With Feuil2
Feuil1.Range("A1").Value = .Cells(Int(3 * Rnd) + 1, 1) & " " _
& .Cells(Int(3 * Rnd) + 1, 2) & " " & .Cells(Int(10 * Rnd) + 1, 3)
End With
End Sub
Ca marche bien.
Merci à vous tous !!
Très bonne journée
Finalement, qqun m'a posté cette solution avec macro sur une autre forum :
Sub test()
Randomize
With Feuil2
Feuil1.Range("A1").Value = .Cells(Int(3 * Rnd) + 1, 1) & " " _
& .Cells(Int(3 * Rnd) + 1, 2) & " " & .Cells(Int(10 * Rnd) + 1, 3)
End With
End Sub
Ca marche bien.
Merci à vous tous !!
Très bonne journée
