Microsoft 365 retrecir formule

L

LEPATOCHE

XLDnaute Occasionnel

• 20 Février 2025

• #2

oups le voila le fichier

 

Pièces jointes

• retrecir formule.xlsx

  24.7 KB · Affichages: 11

Vote positif 0 Vote négatif

A

ALS35

XLDnaute Impliqué

• 20 Février 2025

• #3

Bonjour,
Le forum est fort s'il a les bonnes explications, qu'est censée faire ta formule ?
Cordialement

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 20 Février 2025

• #4

la formule doit me trouver combien de fois il y a au moins
2 numeros ou 3 ou 4 mais pas moin dans les colonnes de P a BC prenont les cellules k6 L6 M6 N6
comme reference en point commun et bien le resultat sera de 1 voyez de vous meme en colonne AG il y a 2 numeros en commun par rapport au cellule de K6 a N6 , merci de votre aide a nouveau !

 

Vote positif 0 Vote négatif

H

Hecatonchire

XLDnaute Occasionnel

• 20 Février 2025

• #5

Bonjour,


=SOMME((BYCOL(P1:NU4;LAMBDA(c;SOMME(MAP(K6:N6;LAMBDA(v;SOMME((v=c)*1))))))>1)*1) soit 11 jusqu'a NU

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 20 Février 2025

• #6

merci Hecatonchire youpi youpi c’a marche je m'en douter de votre réponse positif
bonne soirée a vous tous .

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2025

• #7

Bonjour Lepatoche, Als,
Evidemment à labour ...

Peut être avec cette fonction perso VBA :

VB:

Function Compte(Plage As Range, PlageRef As Range)
Dim T, T2, N%, i%, j%, k%
T = Plage
T2 = PlageRef
For i = LBound(T, 2) To UBound(T, 2)
    N = 0
    For j = LBound(T) To UBound(T)
        For k = 1 To 4
            If T(j, i) = T2(1, k) Then N = N + 1
        Next k
    Next j
    If N > 1 Then Compte = Compte + 1
Next i
End Function

La formule devient simple :

Code:

=Compte($P$1:$NU$4;K6:N6)

 

Pièces jointes

• retrecir formule.xlsm

  19 KB · Affichages: 1

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 20 Février 2025

• #8

Bonjour sylvanu votre code vba marche aussi !
merci encore bonne soirée .

 

Vote positif 0 Vote négatif

A

ALS35

XLDnaute Impliqué

• 20 Février 2025

• #9

Bonjour à tous,
Une autre formule plus courte (jusqu'en BC comme demandé) :

VB:

=SOMME(BYCOL(P1:BC4;LAMBDA(p;N(SOMME(NB.SI(p;$K6:$N6))>1))))

Cordialement

 

Dernière édition: 20 Février 2025

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 25 Février 2025

• #10

bonsoir a tous ;
voila vous m'avez envoyer la formule si dessous qui marche a merveille mais voila je voudrai savoir a quoi sa sert les 2 lettres dans la formule que j'ai mit en rouge v=c et aussi le c après LAMBDA(c
=SOMME((BYCOL(P1:NU4;LAMBDA(c;SOMME(MAP(K6:N6;LAMBDA(v;SOMME((v=c)*1))))))>1)*1)
en vous remerciant d'avance !

 

Vote positif 0 Vote négatif

H

Hecatonchire

XLDnaute Occasionnel

• 25 Février 2025

• #11

Bonsoir,

La formule de ALS35 (#9) est plus simple que celle que j'ai postée en utilisant un NB.SI (j'étais lancé dans les fonctions LAMBDA 😁).

Il faut envisager les fonction BYCOL et MAP comme des boucles en programmation et c et v comme des variables (les noms c et v sont libres).
c (colonne) va fournir/contenir de manière individuelle les colonnes de la plage P à NU
v (valeur) va fournir/contenir de manière individuelle les valeurs de la plage K6:N6
v=c => c étant une colonne de 4 valeurs on obtient une matrice de 4 valeurs (des VRAI ou des FAUX
*1 permet de convertir les VRAI en 1 et les FAUX en 0
SOMME donne le nombre de VRAI

La fonction BYCOL va fournir c = P1 : P4
La fonction MAP va fournir v=K6 puis v=L6 puis...
On aura donc
K6 = P1 : P4
L6 = P1 : P4
M6 = P1 : P4
N6 = P1 : P4

puis la fonction BYCOL va fournir c = Q1:Q4
et on recommence les 4 comparaisons avec MAP

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 25 Février 2025

• #12

Ok merci !

Hecatonchire j'ai tout compris encore merci bonne soirée a tous !​

 

Vote positif 0 Vote négatif