Microsoft 365 Aide Keno

Staple1600 à dit:

Bonjour le fil

[Autre conseil en passant]
En guise d'inspiration (... ou pas)

KENO JEUX

Description: Voici un programme d'aide à la réalisation d'une grille de Keno d'une manière judicieuse pour 10 numéros. Pour le reste il vaut mieux le découvrir par vous même (tableaux, courbes, tirage aleatoire à partir d'une sélection etc...

www.excel-downloads.com

Cliquez pour agrandir...

Staple1600 à dit:

Re

Sinon pour ce qui est de s'occuper des couleurs liées à une MFC
il faut voir du côté de : DisplayFormat.Interior

Ci-dessous un petit exemple basique

VB:

Dim x
Sub test()
Dim c As Range
For Each c In Selection
If c.DisplayFormat.Interior.ColorIndex = 38 Then
x = x + 1
End If
Next
MsgBox x
End Sub

Cliquez pour agrandir...

Xav18 à dit:

soan à dit:

Bonjour Xav18,

Bienvenue sur le forum !

Pour ton exo, juste 3 remarques : belle présentation ; plein de fusions inutiles ! pour toutes, ce serait mieux de mettre 2 lignes au lieu d'une seule ; plutôt qu'une image, ce serait mieux de joindre un fichier sans données confidentielles.​

soan

Cliquez pour agrandir...

Comment on jou

Staple1600 à dit:

Re

Pour tester le code précédent, lancer ce code sur un feuille vierge

VB:

Sub CréerExemple()
Range("A1:F10") = "=MOD(ROW(),6)-MOD(COLUMN(),4)"
Range("A1:F10").FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=1"
Range("A1:F10").FormatConditions(1).Interior.ColorIndex = 38
End Sub

Puis sélectionner la plage A1:F10 et lancer alors la macro nommée test

Cliquez pour agrandir...

d’accord mais comment trouver la couleur qui correspond à la mise en forme conditionnel

Cliquez pour agrandir...

soan à dit:

Staple1600 à dit:

Re

bah, moi je me contentais par rapport à ce qu'on voit sur l'image.
Mais comme cela t'a été précédemment suggéré, tu peux joindre un fichier Excel qui nous servira d'exemple.

Cliquez pour agrandir...

Comment le joindre stp je suis nouveau ici ?
Bonjour Xav18,

Bienvenue sur le forum !

Pour ton exo, juste 3 remarques : belle présentation ; plein de fusions inutiles ! pour toutes, ce serait mieux de mettre 2 lignes au lieu d'une seule ; plutôt qu'une image, ce serait mieux de joindre un fichier sans données confidentielles.​

soan

Cliquez pour agrandir...

Xav18 à dit:

Bonjour je fais appelle à vous car en haut je marque les 20 numéro du keno , ensuite en dessous j’ai 3 suite de numéro et quand sa correspond au tirage sa ce met en couleur. Ce que je voudrais si quelqu’un peut m’aider svp c’est avoir le total de mise en forme conditionnel pour chacune de mes 3 ligne de numéro en dessous pour m’éviter de compter tout le temps. Merci a vous

Cliquez pour agrandir...

Staple1600 à dit:

Re

=>Xav18
C'est la formule que l'on trouve dans ta PJ
=NB.SI(B12:Y13;COULEUR(W8))

COULEUR est une fonction Excel disponible dans Office 365?

Cliquez pour agrandir...