Microsoft 365 Aide Keno

Xav18

XLDnaute Nouveau
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
 

Pièces jointes

  • 3831457A-E640-4AAE-8686-0C338B316DCB.jpeg
    3831457A-E640-4AAE-8686-0C338B316DCB.jpeg
    230.5 KB · Affichages: 128

Staple1600

XLDnaute Barbatruc
Re

Le code de la macro est #28 est à mettre dans le code de la feuille
(Faire clic-droit sur l'onglet=>Visualiser le code)
C'est là qu'il faut copier le code

Et il restera une petite modif à faire

Tes numéros doivent désormais être saisis dans les cellules C3:L4
 

Staple1600

XLDnaute Barbatruc
Re

Donc ta feuille devra être ainsi
Keno2.png
 

eriiic

XLDnaute Barbatruc
Bonjour à tous,

je crois que Staple manque de sommeil ou a fumé qq chose d'illicite, il l'aurait vu en temps normal... ;)

En fait tu t'en moques des couleurs.
Si je ne m'abuse ce que tu veux c'est le nombre de n° exacts.
Une petite fonction personnalisée (s'utilise comme une fonction excel) le permet :

VB:
Function nbOk(plage1 As Range, plage2 As Range) As Long
    Dim c1 As Range, c2 As Range
    For Each c1 In plage1
        For Each c2 In plage2
            nbOk = nbOk - (c1.Value = c2.Value)
        Next c2
    Next c1
End Function

Syntaxe sur feuille :
=nbOk(plage1, plage2)
Attention que si ta plage est en 2 morceaux comme plage1 il faut mettre les 2 morceaux entre ( ) que la fonction ne voit qu'un seul paramètre. Ex en Z12 :
Code:
=nbok(($C$3:$L$3;$C$6:$L$6);A12:X12)
se met à jour tout seul dès que tu modifies les valeurs
eric
 

Pièces jointes

  • Copie de keno 2.xlsm
    21.9 KB · Affichages: 12

Staple1600

XLDnaute Barbatruc
Re, Bonjour eriiiic

je crois que Staple manque de sommeil ou a fumé qq chose d'illicite, il l'aurait vu en temps normal... ;)
J'avoue.
J'ai bu une bière.
Mais surtout, je me suis focalisé sur
le monsieur à dit:
Ce que je voudrais si quelqu’un peut m’aider svp c’est avoir le total de mise en forme conditionnel
Mais effectivement, si on envoie valdinguer les couleurs, alors tout est permis (même si on n'est pas vendredi)
Ceci dit, monsieur eriiiic, que n'êtes-vous intervenu plutôt?

Quant à mon sommeil, il est de bonne facture, car l'infirmier m'apporte tous les soirs mes cachets dissous dans ma tisane. ;)
 

Staple1600

XLDnaute Barbatruc
Re

=>eriiiiic
Suite à ton passage, j'ai changé d'optique.
ALT+F11, puis retour aux formules
J'oublie trop souvent cet adage
"Toujours privilégie les fonctions natives d'Excel, avant de penser VBA"

[note pour moi-même]
Il faudra que je pense à entrer en réhab ;)
Dans cet établissement dédié pour ces troubles.
(quand on titille le Workbook depuis trop longtemps.)
;)
[/note pour moi-même]
 
Dernière édition:

Xav18

XLDnaute Nouveau
Re

=>eriiiiic
Merci en tout cas d'être intervenu.
Vous m'avez revenir vers le mantra sacré que j'avais trahi.
"Toujours privilégie les fonctions natives d'Excel, avant de penser VBA"

Il faudra que je pense à entrer en réhab ;)
Dans cet établissement dédié pour ces troubles.
(quand on titille le Workbook depuis trop longtemps.)
;)
Sa viens de quoi ce beugue stp je trouve pas? Je sais pas du tout pourquoi sa fait sa encore merci
 

Staple1600

XLDnaute Barbatruc
Re,

=>Xav18
Depuis le message#38; fini le VBA
J'utilise une simple formule.
C'est beaucoup plus simple.

=>eriiiic
?
C'est toi qui a commencé l'interaction avec moi
(sur un mode humoristique)
Je n'ai fait qu'embrayer
(Je ne vois pas ce que j'ai pu écrire de déplaisant)
Néanmoins , j'ai édité mon message.
 

Discussions similaires

Statistiques des forums

Discussions
315 098
Messages
2 116 189
Membres
112 679
dernier inscrit
Yupanki