Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Tirage au sort

Tirage au sort

11 réponses
Avatar
Guy72
Bonjour,
Pour un tirage au sort.
J'ai essayé la formule =ALEA.ENTRE.BORNES(1;10) dans D3:I3.
Le problème c'est quand je rempli n'importe quelle autre cellule de la
feuille, les chiffres changent.
Comment faire pour changer les chiffres en D3:I3 seulement avec un bouton ?
--
Cordialement
Guy
Signaler un problème avec ce contenu

10 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
1 2
Avatar
JRC
Salut Guy,

Petite question : Lorsque tu as fait une mise en forme de tes onglets à
tu sélectionner toute une colonne par exemple ou tout un classeur?

Car il me semble que cela joue sur la lenteur de l'enregistrement et
ouverture des fichiers.

Bonne journée

Guy72 a écrit :
Bonjour,
Pour un tirage au sort.
J'ai essayé la formule =ALEA.ENTRE.BORNES(1;10) dans D3:I3.
Le problème c'est quand je rempli n'importe quelle autre cellule de la
feuille, les chiffres changent.
Comment faire pour changer les chiffres en D3:I3 seulement avec un bouton ?


Avatar
JRC
Désolé je me suis trompé de message XD

JRC a écrit :
Salut Guy,

Petite question : Lorsque tu as fait une mise en forme de tes onglets à
tu sélectionner toute une colonne par exemple ou tout un classeur?

Car il me semble que cela joue sur la lenteur de l'enregistrement et
ouverture des fichiers.

Bonne journée

Guy72 a écrit :
Bonjour,
Pour un tirage au sort.
J'ai essayé la formule =ALEA.ENTRE.BORNES(1;10) dans D3:I3.
Le problème c'est quand je rempli n'importe quelle autre cellule de la
feuille, les chiffres changent.
Comment faire pour changer les chiffres en D3:I3 seulement avec un
bouton ?




Avatar
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Pour un tirage au sort.
J'ai essayé la formule =ALEA.ENTRE.BORNES(1;10) dans D3:I3.
Le problème c'est quand je rempli n'importe quelle autre cellule de la
feuille, les chiffres changent.
Comment faire pour changer les chiffres en D3:I3 seulement avec un
bouton ? --



l'enregistreur est ton guide !!!

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 23/09/2008 par GD
[D3].FormulaR1C1 = "=ALEA.ENTRE.BORNES(1,10)"
[D3].AutoFill Destination:=Range("D3:I3"), Type:=xlFillDefault
Range("D3:I3").Copy
[D3].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
End Sub



--
--
@+
;o)))
Avatar
Corto
Bonjour Guy72,
La fonction ALEA.ENTRE.BORNES est volatile, elle est donc recalculée à
chaque changement de valeur dans le classeur.
Pour générer les valeurs avec un bouton (BTTirage), il faut de lui
associer la fonction suivante :
Private Sub BTTirage_Click()
For Each XCELL In [D3:I3].Cells
XCELL.Value = Int(10 * Rnd) + 1
Next XCELL
End Sub

Corto

Guy72 a écrit :
Bonjour,
Pour un tirage au sort.
J'ai essayé la formule =ALEA.ENTRE.BORNES(1;10) dans D3:I3.
Le problème c'est quand je rempli n'importe quelle autre cellule de l a
feuille, les chiffres changent.
Comment faire pour changer les chiffres en D3:I3 seulement avec un bout on ?



Avatar
Corto
Bonjour Guy72,
La fonction ALEA.ENTRE.BORNES est volatile, elle est donc recalculée à
chaque changement de valeur dans le classeur.
Pour générer les valeurs avec un bouton (BTTirage), il suffit de lui
associer la fonction suivante :
Private Sub BTTirage_Click()
For Each XCELL In [D3:I3].Cells
XCELL.Value = Int(10 * Rnd) + 1
Next XCELL
End Sub

Corto

Guy72 a écrit :
Bonjour,
Pour un tirage au sort.
J'ai essayé la formule =ALEA.ENTRE.BORNES(1;10) dans D3:I3.
Le problème c'est quand je rempli n'importe quelle autre cellule de l a
feuille, les chiffres changent.
Comment faire pour changer les chiffres en D3:I3 seulement avec un bout on ?



Avatar
Guy72
Bonjour Modeste
Merci, ça fonctionne.
Mais je ne pensais pas qu'il y aurais des doublons.
Est-il possible d'éviter ça ?
--
Cordialement
Guy
"Modeste" a écrit dans le message de news:

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Pour un tirage au sort.
J'ai essayé la formule =ALEA.ENTRE.BORNES(1;10) dans D3:I3.
Le problème c'est quand je rempli n'importe quelle autre cellule de la
feuille, les chiffres changent.
Comment faire pour changer les chiffres en D3:I3 seulement avec un
bouton ? --



l'enregistreur est ton guide !!!

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 23/09/2008 par GD
[D3].FormulaR1C1 = "=ALEA.ENTRE.BORNES(1,10)"
[D3].AutoFill Destination:=Range("D3:I3"), Type:=xlFillDefault
Range("D3:I3").Copy
[D3].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
End Sub



--
--
@+
;o)))
Avatar
Guy72
Bonjour Corto,
Ok d'accord, mais j'ai quand même de doublons.
--
Cordialement
Guy
"Corto" a écrit dans le message de news:

Bonjour Guy72,
La fonction ALEA.ENTRE.BORNES est volatile, elle est donc recalculée à
chaque changement de valeur dans le classeur.
Pour générer les valeurs avec un bouton (BTTirage), il suffit de lui
associer la fonction suivante :
Private Sub BTTirage_Click()
For Each XCELL In [D3:I3].Cells
XCELL.Value = Int(10 * Rnd) + 1
Next XCELL
End Sub

Corto

Guy72 a écrit :
Bonjour,
Pour un tirage au sort.
J'ai essayé la formule =ALEA.ENTRE.BORNES(1;10) dans D3:I3.
Le problème c'est quand je rempli n'importe quelle autre cellule de la
feuille, les chiffres changent.
Comment faire pour changer les chiffres en D3:I3 seulement avec un bouton
?



Avatar
Corto
Bonjour Guy72,

Private Sub BTTirage_Click()

For Each XCELL In [D3:I3].Cells
Do
XCELL.Value = Int(10 * Rnd) + 1
Set XFIND = Range([D3], XCELL).Find(XCELL, after:=XCELL,
LookIn:=xlValues, _
lookat:=xlWhole)
Loop Until XFIND.Address = XCELL.Address
Next XCELL
End Sub

Corto

Guy72 a écrit :
Bonjour Corto,
Ok d'accord, mais j'ai quand même de doublons.



Avatar
Guy72
Ok ça fonctionne.
Merci de ton aide.
--
Cordialement
Guy

"Corto" a écrit dans le message de news:
uwYRQ$
Bonjour Guy72,

Private Sub BTTirage_Click()

For Each XCELL In [D3:I3].Cells
Do
XCELL.Value = Int(10 * Rnd) + 1
Set XFIND = Range([D3], XCELL).Find(XCELL, after:=XCELL,
LookIn:=xlValues, _
lookat:=xlWhole)
Loop Until XFIND.Address = XCELL.Address
Next XCELL
End Sub

Corto

Guy72 a écrit :
Bonjour Corto,
Ok d'accord, mais j'ai quand même de doublons.



Avatar
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Bonjour Modeste
Merci, ça fonctionne.
Mais je ne pensais pas qu'il y aurais des doublons.
Est-il possible d'éviter ça ?



;o)))
en utilisant une plage intermediaire
Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 23/09/2008 par GD
[D4].FormulaR1C1 = "=RAND()"
[D3].FormulaR1C1 = "=RANK(R[1]C,R4C4:R4C9)"
Range("D3:D4").AutoFill Destination:=Range("D3:I4"), Type:=xlFillDefault
Range("D3:I4").Copy
[D3].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
End Sub

--
--
@+
;o)))
1 2