Microsoft 365 Aide Keno

Xav18 · 31 Janvier 2021

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

Xav18 · 31 Janvier 2021

Staple1600 à dit:
Re

Le truc à modifier, tu peux le faire by yourself
Il suffisait de modifier ainsi cette ligne
Const Lignes = "12/15/18/21/22/25/26"

Je me doutais c’était pas grand chose mais j’avais peur de faire une bêtise

Staple1600 · 31 Janvier 2021

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 · 31 Janvier 2021

Re

Donc ta feuille devra être ainsi

eriiic · 31 Janvier 2021

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

Xav18 · 31 Janvier 2021

Staple1600 à dit:
Re

Donc ta feuille devra être ainsi
Regarde la pièce jointe 1093718

Par contre j’ai un bugue niveaux chiffre je sais pas pourquoi j’ai fait un test et regarde

Staple1600 · 31 Janvier 2021

Re, Bonjour eriiiic

eriiiic à dit:
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.

eriiic · 31 Janvier 2021

10 sous, c'est pas cher...

Staple1600 · 31 Janvier 2021

Re

=>eriiiic
Le junkie vous salue bien

Code:

=SOMMEPROD(NB.SI(B12:Y12;$C$3:$L$4))

PS: J'ai pas compris le : "10 sous, c'est pas cher"

eriiic · 31 Janvier 2021

Ah ben flûte, je l'ai tentée celle-là, sans y arriver.
Mais j'essayais de traiter C3:L3;C6:L6 en même temps, trop gourmand...

*dissous dans ma tisane
Comme tu parlais de facture j'ai dû mal traduire ;-)

Staple1600 · 31 Janvier 2021

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]

Xav18 · 31 Janvier 2021

Xav18 à dit:
Par contre j’ai un bugue niveaux chiffre je sais pas pourquoi j’ai fait un test et regarde

Sa viens de quoi ce beugue stp je trouve pas

eriiic · 31 Janvier 2021

Tiens, j'aurais pensé que tu choisisses une abbaye qui fait de la bière
Par contre si tu pouvais reprendre ta cape d'invisibilité stp.
C'était amusant au début mais là elle commence à me faire ch...

Xav18 · 31 Janvier 2021

Staple1600 à dit:
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 · 31 Janvier 2021

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.

Xav18 · 31 Janvier 2021

Staple1600 à dit:
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 ce que j'ai pu écrire de déplaisant)
Néanmoins , j'ai édité mon message.

Je copie sa ou somme prod ? Tu m’a perdu là mdr

Microsoft 365 Aide Keno

Xav18

XLDnaute Nouveau

Pièces jointes

Xav18

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Pièces jointes

Xav18

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Xav18

XLDnaute Nouveau

eriiic

XLDnaute Barbatruc

Xav18

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Xav18

XLDnaute Nouveau

Discussions similaires