XL 2019 reduire ma formule

[LEPATOCHE]

Bonsoir a tous
ma question est la suivante est t'il possible de reduire ma formule que je viens de marquer en dessous =(NB.SI($B$2:$U$2;$V2)+NB.SI($B$2:$U$2;$W2)+NB.SI($B$2:$U$2;$X2)+NB.SI($B$2:$U$2;$Y2)>3)*"1"+(NB.SI($B$3:$U$3;$V2)+NB.SI($B$3:$U$3;$W2)+NB.SI($B$3:$U$3;$X2)+NB.SI($B$3:$U$3;$Y2)>3)*"1"+(NB.SI($B$4:$U$4;$V2)+NB.SI($B$4:$U$4;$W2)+NB.SI($B$4:$U$4;$X2)+NB.SI($B$4:$U$4;$Y2)>3)*"1"+(NB.SI($B$5:$U$5;$V2)+NB.SI($B$5:$U$5;$W2)+NB.SI($B$5:$U$5;$X2)+NB.SI($B$5:$U$5;$Y2)>3)*"1"+(NB.SI($B$6:$U$6;$V2)+NB.SI($B$6:$U$6;$W2)+NB.SI($B$6:$U$6;$X2)+NB.SI($B$6:$U$6;$Y2)>3)*"1"+(NB.SI($B$7:$U$7;$V2)+NB.SI($B$7:$U$7;$W2)+NB.SI($B$7:$U$7;$X2)+NB.SI($B$7:$U$7;$Y2)>3)*"1"+(NB.SI($B$8:$U$8;$V2)+NB.SI($B$8:$U$8;$W2)+NB.SI($B$8:$U$8;$X2)+NB.SI($B$8:$U$8;$Y2)>3)*"1"+(NB.SI($B$9:$U$9;$V2)+NB.SI($B$9:$U$9;$W2)+NB.SI($B$9:$U$9;$X2)+NB.SI($B$9:$U$9;$Y2)>3)*"1"+(NB.SI($B$10:$U$10;$V2)+NB.SI($B$10:$U$10;$W2)+NB.SI($B$10:$U$10;$X2)+NB.SI($B$10:$U$10;$Y2)>3)*"1"+(NB.SI($B$11:$U$11;$V2)+NB.SI($B$11:$U$11;$W2)+NB.SI($B$11:$U$11;$X2)+NB.SI($B$11:$U$11;$Y2)>3)*"1"+(NB.SI($B$12:$U$12;$V2)+NB.SI($B$12:$U$12;$W2)+NB.SI($B$12:$U$12;$X2)+NB.SI($B$12:$U$12;$Y2)>3)*"1"+(NB.SI($B$13:$U$13;$V2)+NB.SI($B$13:$U$13;$W2)+NB.SI($B$13:$U$13;$X2)+NB.SI($B$13:$U$13;$Y2)>3)*"1"+(NB.SI($B$14:$U$14;$V2)+NB.SI($B$14:$U$14;$W2)+NB.SI($B$14:$U$14;$X2)+NB.SI($B$14:$U$14;$Y2)>3)*"1"+(NB.SI($B$15:$U$15;$V2)+NB.SI($B$15:$U$15;$W2)+NB.SI($B$15:$U$15;$X2)+NB.SI($B$15:$U$15;$Y2)>3)*"1"+(NB.SI($B$16:$U$16;$V2)+NB.SI($B$16:$U$16;$W2)+NB.SI($B$16:$U$16;$X2)+NB.SI($B$16:$U$16;$Y2)>3)*"1"+(NB.SI($B$17:$U$17;$V2)+NB.SI($B$17:$U$17;$W2)+NB.SI($B$17:$U$17;$X2)+NB.SI($B$17:$U$17;$Y2)>3)*"1"+(NB.SI($B$18:$U$18;$V2)+NB.SI($B$18:$U$18;$W2)+NB.SI($B$18:$U$18;$X2)+NB.SI($B$18:$U$18;$Y2)>3)*"1"+(NB.SI($B$19:$U$19;$V2)+NB.SI($B$19:$U$19;$W2)+NB.SI($B$19:$U$19;$X2)+NB.SI($B$19:$U$19;$Y2)>3)*"1"+(NB.SI($B$20:$U$20;$V2)+NB.SI($B$20:$U$20;$W2)+NB.SI($B$20:$U$20;$X2)+NB.SI($B$20:$U$20;$Y2)>3)*"1"+(NB.SI($B$21:$U$21;$V2)+NB.SI($B$21:$U$21;$W2)+NB.SI($B$21:$U$21;$X2)+NB.SI($B$21:$U$21;$Y2)>3)*"1"+(NB.SI($B$22:$U$22;$V2)+NB.SI($B$22:$U$22;$W2)+NB.SI($B$22:$U$22;$X2)+NB.SI($B$22:$U$22;$Y2)>3)*"1"+(NB.SI($B$23:$U$23;$V2)+NB.SI($B$23:$U$23;$W2)+NB.SI($B$23:$U$23;$X2)+NB.SI($B$23:$U$23;$Y2)>3)*"1"+(NB.SI($B$24:$U$24;$V2)+NB.SI($B$24:$U$24;$W2)+NB.SI($B$24:$U$24;$X2)+NB.SI($B$24:$U$24;$Y2)>3)*"1"+(NB.SI($B$25:$U$25;$V2)+NB.SI($B$25:$U$25;$W2)+NB.SI($B$25:$U$25;$X2)+NB.SI($B$25:$U$25;$Y2)>3)*"1"+(NB.SI($B$26:$U$26;$V2)+NB.SI($B$26:$U$26;$W2)+NB.SI($B$26:$U$26;$X2)+NB.SI($B$26:$U$26;$Y2)>3)*"1"

je ne peus pas vous envoyer mon fichier ni le reduire car trop volumineux merci de votre aide !

 

[djidji59430]

"je ne peus pas vous envoyer mon fichier ni le reduire car trop volumineux merci de votre aide !"
C'est bien dommage car il y a surement une autre façon d'arriver a un meme resultat

Crdlmt

 

[Staple1600]

Bonjour le fil, LEPATOCHE, djidji

On peut toujours réduire un fichier
Ou mieux on créé un fichier ex-nihilo avec une ou deux feuilles
et sur ces feuilles 5 à 20 lignes de données
Pas d'image, pas de couleurs, pas de bordures, pas d'arrière plan
pas de N modules vides dans le projet
On obtient alors un beau fichier exemple qui ne sert qu'à illustrer la problématique rencontrée.
Et si on décide d'étoffer un peu le fichier exemple, on peut alors le compresser (puisque le forum accepte le fichier *.zip)

Un fichier exemple ne devrait jamais dépasser 547 Ko
(Oui, c'est péremptoire, mais c'est mon choix comme dirait Evelyne T. 😉)

On peut aussi ce que je fais parfois créer une macro qui créé le fichier exemple de A à Z.
Ainsi pas de souci de taille.
Il suffit de publier le code VBA dans le message et les explications d'utilisation
Comme celle-ci par exemple 😉

Sub creer_exemple()
Dim r As Range: Set r = [A1:F1]
r = "=""ITEM""&COLUMN()": r.Font.Bold = True: r.Interior.Color = RGB(197, 197, 197)
[A2:F20] = "=ADDRESS(ROW(),COLUMN(),4)"
[A1:F20] = [A1:F20].Value: [A1:F20].Borders.Value = 1
Application.ScreenUpdating = False
'une macro ne devrait pas faire cela ;-)
For i = 2 To 19
For j = 1 To 6
Cells(i, j).Interior.ColorIndex = Application.RandBetween(1, 56)
Next
Next
End Sub

 

[st007]

Un nb. Si par ligne avec v, w, x, y
Un sommeprod devrait passé

 

[LEPATOCHE]

Bonsoir a tous

avec beaucoup de retard pour vous repondre car je devais chercher du travail et qui d'ailleur a porter c'est fruits merci pour votre reponse ! ca ne ma pas convenue mais pas grave j'ai su trouver
une solution moi meme et encore merci a vous tous et bon week end .