Microsoft 365 Aide Keno

[Xav18]

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

 

[soan]

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

 

[Staple1600]

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

 

[Xav18]

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

Merci

 

[Staple1600]

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

Sub test()
Dim x
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

 

[Xav18]

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

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

Merci mais je m’y connais pas trop est ce que tu aurais plus simple par hasard ? Genre en faisant vrai / faux et après calculer le nombre de vrais mais je sais pas la formule car là sa a l’air compliqué merci

 

[Staple1600]

Re

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

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

 

[Xav18]

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

Comment on jou

Re

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

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

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

 

[Staple1600]

Re

=>Xav18
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.
Ce sera plus facile alors de faire des tests avant de poster des propositions.

 

[Xav18]

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.

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

 

[soan]

pour envoyer ton fichier, utilise le bouton « Joindre un fichier » qui est situé en bas de la fenêtre de ton post en cours d'édition ; taille maxi : 1 Mo (= 1 Méga octet).​

soan

 

[Staple1600]

Re

=>Xav18
[Autre conseil en repassant]
Tu peux aussi zipper ton classeur avant de l'envoyer
Le forum acceptant les *.zip
(Pour zipper: depuis l'Explorateur, clic-droit sur le classeur => Envoyez vers dossiers compressés
Tu joins alors dans la discussion, le fichier zip obtenu.

 

[Xav18]

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

 

[Staple1600]

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?

 

[Xav18]

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?

Je crois pas car j’ai essayé hier et j’ai pas trouvé j’ai joins mon fichier si tu veux regarder merci à toi