Référence variable dans une formule

[fredd]

Bonjour, j'ai besoin d'aide je ne trouve pas de solutions.
Dans ce tableau j'ai des données :
Nb PM+sens est une caractéristique variable donnée, des valeurs représenté si dessous
Le premier caractere et le nb de pts, de 1 à 6
le 2eme est le sens des points, c'est à dire Croissant, Décroissant et Aller-Retour.
L'idée est de vérifier quel les données renseigné dans les pts Pt Mes 1 à Pt Mes 6 soit correct.
Les valeurs 0 sont bien renseigné.

J'ai réussi à controle les pts 1, C et 2D
Mais je pèche vraiment sur la suite

J'ai commencé par tenter de ranger les valeurs mais ça coince déjà sur la sélection.
La sélection de rang devrais etre égale au premier caractere de NB PM+Sens. ( 1 colonne si 1 / 2 si 2 etc)

La formule:
=RANG([@[Pt Mes 1]];"REFERENCE EN FONCTION DU premier Caracctere de Nb PM+sens";1)

De là, je me suis dis que je pourrais simplement vérifier le sens en comparant les colonnes et le résultat, en gros la premiere colonne devrais avoir 1 si croissant ou 3 si décroissant dans le cas de 3 mesures
et ainsi de suite en ajoutant +1 su croissant et - 1 si décroissant dans la colonne suivaint etc.

J'ai joint de fichier excel su lequel je teste.

EDIT: j'ai réussi la partie "sens" dans les rang
il me reste vraiment cette sélection !
Doc mis à jour.

Merci.

ligne/colonne	A	B	C	D	E	F	G
2	Nb PM+sens	Pt Mes 1	Pt Mes 2	Pt Mes 3	Pt Mes 4	Pt Mes 5	Pt Mes 6
3	1	30	0	0	0	0	0
4	2C	4	20	0	0	0	0
5	2C	32	37	0	0	0	0
6	2D	30	-30	0	0	0	0
7	2D	20	0	0	0	0	0
8	3C	60	120	130	0	0	0
9	3C	-1	5	11	0	0	0
10	3C	-5	0	11	0	0	0
11	3C	-25	-20	-10	0	0	0
12	3D	-30	-20	-10	0	0	0
13	3D	38	10	-20	0	0	0
14	3D	960	800	640	0	0	0
15	3D	10	0	-10	0	0	0
16	4C	140	190	270	300	0	0
17	4C	-10	30	40	72	0	0
18	4C	-50	0	50	100	0	0
19	4D	100	50	0	-50	0	0
20	4AR	0	50	50	0	0	0
21	5C	-10	0	10	20	30	0
22	5D	100	80	30	20	0	0
23	5AR	0	10	20	10	0	0
24	6C	-50	-30	-10	0	10	20
25	6D	100	80	60	40	20	0
26	6AR	-700	-550	-400	-400	-550	-700
27	6AR	1,8	3	4,2	4,2	3	1,8

 

[fredd]

En gros déja ce que j'aimerais c'est que ma référence en rouge soit les valeurs des pts 1, 2 et 3 parce que le premier caractère de Nb de PM+Sens est 3

 

[sylvanu]

Bonsoir Fredd,
Un essai en PJ avec une fonction perso dont la syntaxe est :

=OkErr(Ligne())

Une fonction perso est plus souple dans un tel cas qu'une formule qui va être longue, très longue.
En espérant que le VBA ne vous fait pas peur. Mais si la fonction marche bous n'avez pas à y toucher.

 

[fredd]

Bonjour Sylvanu et merci pour ce boulot.
Le probleme pour moi le VBA est que j'ai plus de difficulté à comprendre le fonctionnement et dans le cadre de mon boulot, nous essayon de qualifier les formules...
Mais malgré tout ça répond assez bien à ma demande. etj'ai quelques question

la premiere, il ne semble pas avoir de refresh suite à la saisie?

Un autre détail que je n'ai pas vraiment abordé c'est le AR!
s'il y a 4 point, c'est 2 poit montant et 2 point descendant
S'il y en a 5 c'est 2 point montant, un max en 3 et descendant et 4 et 5
6 point il me semble que ça fonctionne.

3 eme, j'ai vu dans VBA qu'il a des positionnement de cellule et je vais devoir transposer les calculs dans un doc ou les cellules ne sont pas tout à fait au meme endroit. Si il est possible d'identifier dans VBA les colonnes à déplacer. (s'il n'y a que "tablo = Range("A" & L & ":G" & L)" )
Dans tous les cas, quand je vois le déroulement de VBA, ça me parais plus simple à développer ... quand j'aurais vraiment appris à comprendre la logique VBA quand je serais grand

 

[sylvanu]

la premiere, il ne semble pas avoir de refresh suite à la saisie?

Pas compris.

En PJ le point 3 modifié. A l'origine c'est ce qui était fait, mais il m'a semblé plus simple de passer par "ligne". La formule à entrée étant plus concise. Le mieux est l'ennemi du bien.

Pour l' AR j'avais pressenti le problème, je vais regarder mais ça va prendre un peu de temps.

 

[fredd]

Bon ben ça semble fonctionner comme je l'imaginais !!!

Je suis tout simplement impressionné par la simplicité (enfin visuel) de VBA et fortement impressionné pour le travail.
Je vous remercie beaucoup.
Je vais tenter de transporter sur mon gros fichier le module 1 et je vous tiens informé de la suite.

 

[sylvanu]

Je vais essayer d'implémenter ça :
C croissant, D décroissant, E Egal

Si 1 ou 2 : Erreur
Si 3 : C D
Si 4 : C E D
Si 5 : C C D D
Si 6 : C C E D D

 

[fredd]

Le programme c'est basculé sans encombre et à fonctionné directement.. J'ai pu identifier 76 erreur sur les 10195 lignes et je vais pouvoir controler périodiquement mes données.
Je prend l'implémentation si elle fonctionne ça me permettrais d'avoir des résultats encore plus fin.

Et pour ma premiere question, le résultats ne ce mettais pas à jour, je devais raffraichir, ... j'ai juste réactivé les calculs automatiques

 

[sylvanu]

En PJ avec AR rectifié. A vérifier.

 

[fredd]

C'est parfais, merci beaucoup sa fonctionnne.
J'ai repris le nouveau programme et voilà.
Je vais je pense essayer de décortiquer le VBA en pas a pas ;
Merci merci merci.