Compter les même nb

Bonsoir à tous,

Je voudrais compter combien de nombre sont égales à la ligne de référence si on leur additionne 0, 1, 2, -1 et -2.

Merci beaucoup pour votre aide

Bonjour,

=SOMMEPROD(--((ABS((A3:AD3-A4:AD4)<=2)*(A3:AD3<>"")+ABS((A3:AD3-A5:AD5)<=2))*(A3:AD3<>"")>0))

mais je ne comprend rien à ton explication.

Je trouve 2, pas 4 puisque c'est vide pour 17 et 25...

eric

Bonsoir eriic,

Non 17 et 25 ne sont pas vide une fois que "l'opération est effectuée".

Oui désolé je comprends que ça soit compliqué à comprendre.

Si on ajoute à 16 (0, +1, +2, -1, -2) le résultat donne 16, 17, 18, 15, 14

Le "16" remplit bien le champ du numéro 17 de la L3.

Comme le "27" remplit le champ du numéro 25 de la L3 (car il donne 27, 28, 29, 26, 25)

En espérant avoir été plus claire.

C'est un gag ? Ta demande :

Si on additionne succesivement aux nombres des Lignes 4 et 5 ( 0, 1, 2, -1, -2)

Combien seraient égales aux nombres de la Ligne 3 ?

Ton fichier :

Tu pourras mettre toutes les explications que tu veux, pour moi 17 et sont vides en ligne 4 et 5. Et en ajoutant maxi 2 je suis loin de 17...

A ce compte là pourquoi pas 22 aussi ? Pour moi ça n'a aucun sens

eric

Bonjour,

à tester,

en cellule de votre choix, entrer la formule =test1(A3:AD3;A4:AD5)

Function test1(plg_test, plage_données)
'activer la référence "Microsoft Scripting Runtime"
Dim Dico As New Scripting.Dictionary
liste = Array(0, 1, 2, -1, -2)
For Each c In plage_données
 For i = LBound(liste) To UBound(liste)
   v = c + liste(i)
   If c <> 0 And Not IsError(Application.Match(v, plg_test, 0)) Then
    If Not Dico.Exists(v) Then Dico.Add v, i
   End If
 Next i
Next c
test1 = Dico.Count
End Function

Bonjour sabV,

Je n'arrive pas utiliser cotre proposition car c'est noté chez moi "erreur de compilation" ?

re,

Je n'arrive pas utiliser cotre proposition car c'est noté chez moi "erreur de compilation" ?

as-tu activé la référence "Microsoft Scripting Runtime"

au menu de vba--> Outils--> Référence

dans cette liste: cocher "Microsoft Scripting Runtime"

Oui je viens de le faire et ça marche.

C'est super. C'était difficile à expliquer ma demande.

Merci beaucoup,

j 'suis bien contente que tout fonctionne,

merci pour ce retour et bonne continuation, @+ isabelle