indices de répulsion et indices d'attraction

[mercibien]

bonjour
d'abord bonne fête à vous.
je cherche par formule(s) comment calculer les indices de répulsion et d'attraction .
l'indice est un entier qui ne dépasse pas 0 donc c'est 0 ou 1 ou 2 .....ou 9
d'avance merci

 

[JNP]

Re : indices de répulsion et indices d'attraction

Bonjour Mercibien ,
Via formule, il est très difficile de concaténer des nombres de cellules variables, en tout cas, moi, je ne sais pas faire ...
Par contre, une petite fonction VBA fonctionne bien !
Vois le fichier joint.
Bonne fin de dimanche

 

[ROGER2327]

Re : indices de répulsion et indices d'attraction

Bonjour mercibien, JNP

En B17 :

=SUPPRESPACE(TEXTE(SOMMEPROD(($C$4:$C$13=B$16)*$B$4:$B$13*10^(NB.SI($C$4:$C$13;B$16)-NB.SI(DECALER($C$4:$C$13;0;0;LIGNE($1:$10);1);B$16)));"#"" ""#"" ""#"" ""#"" ""#"" ""#"" ""#"" ""#"" ""#"" ""#"))

Le reste à l'avenant…​

ROGER2327
#4816

Jeudi 26 Sable 138 (Monsieur Sisyphe, SQ)
6 Nivôse An CCXIX
2010-W51-7T16:17:07Z

 

[JNP]

Re : indices de répulsion et indices d'attraction

Re ,
Bien vu Roger .
Bonne soirée

 

[ROGER2327]

Re : indices de répulsion et indices d'attraction

Suite…

En prime, une fonction personnalisée :

Function prout$(r As Range, s As Range, t$)
Application.Volatile
Dim i&
  For i = 1 To r.Rows.Count
    If CStr(s.Cells(i, 1).Value) = t Then prout = prout & r.Cells(i, 1).Value & Space(1)
  Next
  prout = WorksheetFunction.Trim(prout)
End Function

En B17 :

=prout(B4:B13;C4:C13;B16)

En E17 :

=prout(B4:B13;C4:C13;E16)

En B18 :

=prout(F4:F13;G4:G13;B16)

En E18 :

=prout(F4:F13;G4:G13;E16)

(Je n'ai pas vu la fonction de JNP pour cause de format de fichier exotique dans la section [XL2003].)​

ROGER2327
#4817

Jeudi 26 Sable 138 (Monsieur Sisyphe, SQ)
6 Nivôse An CCXIX
2010-W51-7T17:24:27Z

 

[JNP]

Re : indices de répulsion et indices d'attraction

Re ,

(Je n'ai pas vu la fonction de JNP pour cause de format de fichier exotique dans la section [XL2003].)

Mes plus plates excuses, à l'enregistrement, j'avais un défaut de compatibilité et par réflexe, j'ai converti en fichier 2007 .
C'est bizare d'ailleurs, en principe, ça n'arrive qu'avec des natifs 2007 ...
Voici le fichier en XLS
Bonne soirée

 

[ROGER2327]

Re : indices de répulsion et indices d'attraction

Re…

Re ,Mes plus plates excuses (…)

Point n'en faut ! Je signalais la chose parce que notre ami semble lui aussi utiliser Excel2003.​

Bonne soirée.

ROGER2327
#4818

Jeudi 26 Sable 138 (Monsieur Sisyphe, SQ)
6 Nivôse An CCXIX
2010-W51-7T18:17:26Z

 

[mercibien]

Re : indices de répulsion et indices d'attraction

Bonjour mercibien, JNP

En B17 :

=SUPPRESPACE(TEXTE(SOMMEPROD(($C$4:$C$13=B$16)*$B$4:$B$13*10^(NB.SI($C$4:$C$13;B$16)-NB.SI(DECALER($C$4:$C$13;0;0;LIGNE($1:$10);1);B$16)));"#"" ""#"" ""#"" ""#"" ""#"" ""#"" ""#"" ""#"" ""#"" ""#"))

…​

ROGER2327
#4816

Bonjour ROGER2327 , JNP
Bonjour tout le monde.
Merci pour votre aide.
pour ROGER2327 ; pouvez vous m'aider davantage à décortiquer un peu votre superbe formule.
d'avance merci.
juste une petite remarque concernant ma question; elle est de la démographie lors du calcule de l'indice de MYERS ; si jamais nous avons des démographes parmi nous ...
mes respects

 

[ROGER2327]

Re : indices de répulsion et indices d'attraction

Re...

Bonjour ROGER2327 , JNP(…) pouvez vous m'aider davantage à décortiquer un peu votre superbe formule.
(…)

Compliment généreux, car la formule proposée est parfaitement défectueuse :
- résultat erroné si la première valeur de u à prendre en compte est 0 ;
- résultat erratique si, pour un enregistrement donné, un seul des champs u ou décision est vide.

De plus, cette formule, même corrigée, est d'une portée limitée : elle ne prend en compte qu'au plus quinze données (et ce n'est pas négociable, les nombres de plus de quinze chiffres significatifs étant arrondis par principe).

La formule personnalisée (en VBA) est plus puissante : elle permet de recenser jusqu'à 512 valeurs, chacune d'elle pouvant être un chiffre ou une lettre.

J'ai donc réécrit un classeur comportant une mouture un peu plus sérieuse de la formule. Pour en éclairer son fonctionnement, je l'ai décortiquée en six étapes dans un tableau annexe. En observant ces étapes successives de A à F, vous devriez en saisir le principe. S'il reste des interrogations, j'essaierai d'y répondre autant que possible.
​

ROGER2327
#4819

Vendredi 27 Sable 138 (Saint Tic, conjoint, SQ)
7 Nivôse An CCXIX
2010-W52-1T02:16:32Z