Question sur la fonction "Alea"

papou

08/12/2005 à 15:55

Bonjour
Regarde du côté de la mise en forme conditionnelle dans le menu Format.
Cordialement
Pascal

"anthony" a écrit dans le message de news:

Bonjour,

Je cherche a simuler les tirages d une roulette sur Excel.
Choisir un nombre entre 0 et 36, c est simple avec la fonction "Alea"
mais comment faire en sorte que les nombre generes apparaissent en
couleurs (exemple le zero en vert)

Cordialement

Anthony

anthony

08/12/2005 à 16:46

Bonjour
Regarde du côté de la mise en forme conditionnelle dans le menu Forma t.

Merci bien Pascal car ca marche ! ;o)

Anthony

anthony

08/12/2005 à 17:30

Bonjour
Regarde du côté de la mise en forme conditionnelle dans le menu Forma t.
Cordialement
Pascal

"anthony" a écrit dans le message de news:

Bonjour,

Je cherche a simuler les tirages d une roulette sur Excel.
Choisir un nombre entre 0 et 36, c est simple avec la fonction "Alea"
mais comment faire en sorte que les nombre generes apparaissent en
couleurs (exemple le zero en vert)

Autant pour moi, ca ne marche pas :-(

Excel offre la possibilite d exprimer que 3 conditions donc je ne peux
pas colorer les nombres :
1_3_5_7_9_12_14_16_18_19_21_23_25_27_30_32_34_36 en rouge et le zero en
vert car ca fait trop de conditions .

Anthony

anthony

09/12/2005 à 08:42

Je cherche a simuler les tirages d une roulette sur Excel.
Choisir un nombre entre 0 et 36, c est simple avec la fonction "Alea"
mais comment faire en sorte que les nombre generes apparaissent en
couleurs (exemple le zero en vert)

Bonjour
Regarde du côté de la mise en forme conditionnelle dans le menu For mat.
Cordialement
Pascal

anthony a repondu :

Excel offre la possibilite d exprimer que 3 conditions donc je ne peux
pas colorer les nombres :
1_3_5_7_9_12_14_16_18_19_21_23_25_27_30_32_34_36 en rouge et le zero en
vert car ca fait trop de conditions .

Comment contourner cette difficultes ?

Cordialement

Anthony

ChrisV

09/12/2005 à 09:30

Bonjour Anthony,

Un exemple, avec la plage de données nommée ici Zn
Dans la feuille de code de l'onglet concerné:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, [Zn]) Is Nothing Then
For Each c In Target
Select Case c.Value
Case 0: c.Font.ColorIndex = 10
Case 1 To 3: c.Font.ColorIndex = 38
Case 4: c.Font.ColorIndex = 40
Case 5 To 9: c.Font.ColorIndex = 36
Case 10 To 12: c.Font.ColorIndex = 35
Case 13 To 15: c.Font.ColorIndex = 34
Case 16 To 18: c.Font.ColorIndex = 37
Case Is >= 19: c.Font.ColorIndex = 3
Case Else: c.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub

ChrisV

"anthony" a écrit dans le message de news:

Je cherche a simuler les tirages d une roulette sur Excel.
Choisir un nombre entre 0 et 36, c est simple avec la fonction "Alea"
mais comment faire en sorte que les nombre generes apparaissent en
couleurs (exemple le zero en vert)

Bonjour
Regarde du côté de la mise en forme conditionnelle dans le menu Format.
Cordialement
Pascal

anthony a repondu :

Excel offre la possibilite d exprimer que 3 conditions donc je ne peux
pas colorer les nombres :
1_3_5_7_9_12_14_16_18_19_21_23_25_27_30_32_34_36 en rouge et le zero en
vert car ca fait trop de conditions .

Comment contourner cette difficultes ?

Cordialement

Anthony

Pounet95

09/12/2005 à 09:31

Bonjour,
Regardes sur le fichier joint là http://cjoint.com/?mjjEx7KGNS

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"anthony" a écrit dans le message de news:

Je cherche a simuler les tirages d une roulette sur Excel.
Choisir un nombre entre 0 et 36, c est simple avec la fonction "Alea"
mais comment faire en sorte que les nombre generes apparaissent en
couleurs (exemple le zero en vert)

Bonjour
Regarde du côté de la mise en forme conditionnelle dans le menu Format.
Cordialement
Pascal

anthony a repondu :

Excel offre la possibilite d exprimer que 3 conditions donc je ne peux
pas colorer les nombres :
1_3_5_7_9_12_14_16_18_19_21_23_25_27_30_32_34_36 en rouge et le zero en
vert car ca fait trop de conditions .

Comment contourner cette difficultes ?

Cordialement

Anthony

anthony

09/12/2005 à 10:18

Bonjour,
Regardes sur le fichier joint là http://cjoint.com/?mjjEx7KGNS

Merci pour ton aide mais pour etre franc je ne tire rien de ton
fichier joint :-(

Cordialement

Anthony

PS: Excel labo ne donne pas de cas de figure semblable au mien

Pounet95

09/12/2005 à 10:28

Re bonjour,
L'as-tu enregistré quelque part sur ton micro et ensuite ouvert avec Excel
(200 pour moi )
Ensuite tu te positionne en B1 et tu regardes comment j'ai fait la MEFC.
Sinon, les formules indiquées dans la feuille que tu aperçois sont celles
copiées dans la MEFC
avec évidemment le signe = devant

PS : dans le navigateur, tu utilises le menu Fichier et tu devrais avoir une
Enregister sous
sinon, reviens et j'essaierai d'expliquer

Bonne journée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"anthony" a écrit dans le message de news:

Bonjour,
Regardes sur le fichier joint là http://cjoint.com/?mjjEx7KGNS

Merci pour ton aide mais pour etre franc je ne tire rien de ton
fichier joint :-(

Cordialement

Anthony

PS: Excel labo ne donne pas de cas de figure semblable au mien

anthony

09/12/2005 à 10:33

Autant pour moi ca marche !

Merci pour cette formule miraculeuse ;o)

Cordialement

Anthony

anthony

09/12/2005 à 10:37

Bonjour Anthony,

Un exemple, avec la plage de données nommée ici Zn
Dans la feuille de code de l'onglet concerné:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, [Zn]) Is Nothing Then
For Each c In Target
Select Case c.Value
Case 0: c.Font.ColorIndex = 10
Case 1 To 3: c.Font.ColorIndex = 38
Case 4: c.Font.ColorIndex = 40
Case 5 To 9: c.Font.ColorIndex = 36
Case 10 To 12: c.Font.ColorIndex = 35
Case 13 To 15: c.Font.ColorIndex = 34
Case 16 To 18: c.Font.ColorIndex = 37
Case Is >= 19: c.Font.ColorIndex = 3
Case Else: c.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub

Bonjour Chris,

Je vous remercie pour ce code mais je crois que c est trop balaise pour
moi et on vient de me donner une formule miraculeuse a placer dans les
conditions qui marche !

Encore merci pour votre aide :-)

Cordialement

Anthony

Question sur la fonction "Alea"

10 réponses

Veuillez sélectionner un problème