Bonjour,
En colonne A, j'ai une liste des mots (environ 250).
Je souhaiterais avoir en L20 un mot au hasard de la colonne A.
Merci de votre aide.
--
Cordialement
Guy
Effacer le contenu d'une cellule ou le format ou enlever un ligne ou colonne ...............etc.
"Le mot change tout seul "
Fichier ci-joint : http://cjoint.com/?kEogUzXp62
-- Cordialement Guy
"isabelle" a écrit dans le message de news:
bonour Guy,
cette formule (ALEA) se recalcule automatiquement à chaque fois qu'il y a un calcul sur la feuille, si tu la mets sur une feuille ou il n'y a que ça, par exemple la formule est en Feuil2 cellule A1 et tu mets cette feuille en calcul sur ordre =INDEX(Feuil1!A:A;ALEA.ENTRE.BORNES(1;250)*1) les données sont en Feuil1 colonne A et en cellule B1 la formule þuil2!A1 de cette manière tu peut contrôler le recalcule de la feuil2
isabelle
Guy72 a écrit :
Bonjour Isabelle, Je ne comprend pas ?
ça ne change rien.
Le problème c'est, si :
Effacer le contenu d'une cellule ou le format ou enlever un ligne ou colonne
...............etc.
"Le mot change tout seul "
Fichier ci-joint : http://cjoint.com/?kEogUzXp62
--
Cordialement
Guy
"isabelle" <i@v> a écrit dans le message de news:
Opd1BsoOJHA.588@TK2MSFTNGP06.phx.gbl...
bonour Guy,
cette formule (ALEA) se recalcule automatiquement à chaque fois qu'il y a
un calcul sur la feuille,
si tu la mets sur une feuille ou il n'y a que ça, par exemple
la formule est en Feuil2 cellule A1 et tu mets cette feuille en calcul
sur ordre
=INDEX(Feuil1!A:A;ALEA.ENTRE.BORNES(1;250)*1)
les données sont en Feuil1 colonne A et en cellule B1 la formule
þuil2!A1
de cette manière tu peut contrôler le recalcule de la feuil2
Effacer le contenu d'une cellule ou le format ou enlever un ligne ou colonne ...............etc.
"Le mot change tout seul "
Fichier ci-joint : http://cjoint.com/?kEogUzXp62
-- Cordialement Guy
"isabelle" a écrit dans le message de news:
bonour Guy,
cette formule (ALEA) se recalcule automatiquement à chaque fois qu'il y a un calcul sur la feuille, si tu la mets sur une feuille ou il n'y a que ça, par exemple la formule est en Feuil2 cellule A1 et tu mets cette feuille en calcul sur ordre =INDEX(Feuil1!A:A;ALEA.ENTRE.BORNES(1;250)*1) les données sont en Feuil1 colonne A et en cellule B1 la formule þuil2!A1 de cette manière tu peut contrôler le recalcule de la feuil2
isabelle
Guy72 a écrit :
Bonjour Isabelle, Je ne comprend pas ?
isabelle
tu as bien raison,
je te propose une solution entièrement vba :
Private Sub CommandButton1_Click() tirage = Evaluate("int(rand()*(250-1)+1)") Range("B1") = Application.Index(Range("A:A"), tirage) End Sub
isabelle
Guy72 a écrit :
ça ne change rien.
Le problème c'est, si :
Effacer le contenu d'une cellule ou le format ou enlever un ligne ou colonne ...............etc.
"Le mot change tout seul "
Fichier ci-joint : http://cjoint.com/?kEogUzXp62
tu as bien raison,
je te propose une solution entièrement vba :
Private Sub CommandButton1_Click()
tirage = Evaluate("int(rand()*(250-1)+1)")
Range("B1") = Application.Index(Range("A:A"), tirage)
End Sub
isabelle
Guy72 a écrit :
ça ne change rien.
Le problème c'est, si :
Effacer le contenu d'une cellule ou le format ou enlever un ligne ou colonne
...............etc.
Merci de ta patience Isabelle , c'est tout à fait ça qu'il me fallait. -- Cordialement Guy
"isabelle" a écrit dans le message de news:
tu as bien raison,
je te propose une solution entièrement vba :
Private Sub CommandButton1_Click() tirage = Evaluate("int(rand()*(250-1)+1)") Range("B1") = Application.Index(Range("A:A"), tirage) End Sub
isabelle
Guy72 a écrit :
ça ne change rien.
Le problème c'est, si :
Effacer le contenu d'une cellule ou le format ou enlever un ligne ou colonne ...............etc.
"Le mot change tout seul "
Fichier ci-joint : http://cjoint.com/?kEogUzXp62
Guy72
Re Que faut-il que je fasse comme modification dans le code, car je compte mettre ma liste de mots en Feuil2 et le bouton en Feuil1. Merci de votre aide. -- Cordialement Guy
"isabelle" a écrit dans le message de news:
tu as bien raison,
je te propose une solution entièrement vba :
Private Sub CommandButton1_Click() tirage = Evaluate("int(rand()*(250-1)+1)") Range("B1") = Application.Index(Range("A:A"), tirage) End Sub
isabelle
Guy72 a écrit :
ça ne change rien.
Le problème c'est, si :
Effacer le contenu d'une cellule ou le format ou enlever un ligne ou colonne ...............etc.
"Le mot change tout seul "
Fichier ci-joint : http://cjoint.com/?kEogUzXp62
Re
Que faut-il que je fasse comme modification dans le code, car je compte
mettre ma liste de mots en Feuil2 et le bouton en Feuil1.
Merci de votre aide.
--
Cordialement
Guy
"isabelle" <i@v> a écrit dans le message de news:
OJzlmHpOJHA.588@TK2MSFTNGP06.phx.gbl...
tu as bien raison,
je te propose une solution entièrement vba :
Private Sub CommandButton1_Click()
tirage = Evaluate("int(rand()*(250-1)+1)")
Range("B1") = Application.Index(Range("A:A"), tirage)
End Sub
isabelle
Guy72 a écrit :
ça ne change rien.
Le problème c'est, si :
Effacer le contenu d'une cellule ou le format ou enlever un ligne ou
colonne ...............etc.
Re Que faut-il que je fasse comme modification dans le code, car je compte mettre ma liste de mots en Feuil2 et le bouton en Feuil1. Merci de votre aide. -- Cordialement Guy
"isabelle" a écrit dans le message de news:
tu as bien raison,
je te propose une solution entièrement vba :
Private Sub CommandButton1_Click() tirage = Evaluate("int(rand()*(250-1)+1)") Range("B1") = Application.Index(Range("A:A"), tirage) End Sub
isabelle
Guy72 a écrit :
ça ne change rien.
Le problème c'est, si :
Effacer le contenu d'une cellule ou le format ou enlever un ligne ou colonne ...............etc.
"Le mot change tout seul "
Fichier ci-joint : http://cjoint.com/?kEogUzXp62
isabelle
bonjour Guy,
Private Sub CommandButton1_Click() tirage = Evaluate("int(rand()*(250-1)+1)") Sheets("Feuil1").Range("B1") = Application.Index(Sheets("Feuil2").Range("A:A"), tirage) End Sub
isabelle
Guy72 a écrit :
Re Que faut-il que je fasse comme modification dans le code, car je compte mettre ma liste de mots en Feuil2 et le bouton en Feuil1. Merci de votre aide.
bonjour Guy,
Private Sub CommandButton1_Click()
tirage = Evaluate("int(rand()*(250-1)+1)")
Sheets("Feuil1").Range("B1") = Application.Index(Sheets("Feuil2").Range("A:A"), tirage)
End Sub
isabelle
Guy72 a écrit :
Re
Que faut-il que je fasse comme modification dans le code, car je compte
mettre ma liste de mots en Feuil2 et le bouton en Feuil1.
Merci de votre aide.
Private Sub CommandButton1_Click() tirage = Evaluate("int(rand()*(250-1)+1)") Sheets("Feuil1").Range("B1") = Application.Index(Sheets("Feuil2").Range("A:A"), tirage) End Sub
isabelle
Guy72 a écrit :
Re Que faut-il que je fasse comme modification dans le code, car je compte mettre ma liste de mots en Feuil2 et le bouton en Feuil1. Merci de votre aide.
Guy72
Merci Isabelle -- Cordialement Guy
"isabelle" a écrit dans le message de news:
bonjour Guy,
Private Sub CommandButton1_Click() tirage = Evaluate("int(rand()*(250-1)+1)") Sheets("Feuil1").Range("B1") = Application.Index(Sheets("Feuil2").Range("A:A"), tirage) End Sub
isabelle
Guy72 a écrit :
Re Que faut-il que je fasse comme modification dans le code, car je compte mettre ma liste de mots en Feuil2 et le bouton en Feuil1. Merci de votre aide.
Merci Isabelle
--
Cordialement
Guy
"isabelle" <i@v> a écrit dans le message de news:
eo6BGhpOJHA.3980@TK2MSFTNGP06.phx.gbl...
bonjour Guy,
Private Sub CommandButton1_Click()
tirage = Evaluate("int(rand()*(250-1)+1)")
Sheets("Feuil1").Range("B1") =
Application.Index(Sheets("Feuil2").Range("A:A"), tirage)
End Sub
isabelle
Guy72 a écrit :
Re
Que faut-il que je fasse comme modification dans le code, car je compte
mettre ma liste de mots en Feuil2 et le bouton en Feuil1.
Merci de votre aide.
Private Sub CommandButton1_Click() tirage = Evaluate("int(rand()*(250-1)+1)") Sheets("Feuil1").Range("B1") = Application.Index(Sheets("Feuil2").Range("A:A"), tirage) End Sub
isabelle
Guy72 a écrit :
Re Que faut-il que je fasse comme modification dans le code, car je compte mettre ma liste de mots en Feuil2 et le bouton en Feuil1. Merci de votre aide.