Discussion :

[munity]

bonjour le phorum
j'ai actuellement une macro que je développe sous la forme d'un formulaire
j'ai bien avancé mais je bloque sur une fonction ou une instruction pour afficher dans un textbox un tarif qui est calculé par tranche comme suit

Num Tarifs / Poids	20 g	35 g	50 g	100 g
1	1.05	1.7	1.7	2.53
2	0.85	1.4	1.4	2.06
3	0.82	1.27	1.27	1.66

comme il s'agit d'un tableau à la base que je souhaite intégrer à mon formulaire, j'ai utilisé la formule de l'onglet correspondant

=SIERREUR(INDEX(VALEURS;EQUIV(C2;TYPE_AFFRANCHISSEMENTS;0);SIERREUR(EQUIV(B2;TRANCHE_POIDS);0)+ESTNA(EQUIV(B2;TRANCHE_POIDS;0)));"NON CONFORME")

et que j'ai ensuite retranscris en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Txt_Tarif = Application.IfError(Application.Index( _
Sheets("BDD TARIFS").Range("VALEURS"), Application.Match(Valeur, _
Sheets("BDD TARIFS").Range("TYPE_AFFRANCHISSEMENTS"), 0), Application.IfError(Application.Match(Val(Me.Txt_Poids), _
Sheets("BDD TARIFS").Range("TRANCHE_POIDS")), 0) + Application.IsNA(Application.Match(Val(Me.Txt_Poids), _
Sheets("BDD TARIFS").Range("TRANCHE_POIDS"), 0))), "NON CONFORME")

jusqu'ici tout allait bien mais j'ai cependant remarqué que dès je passe au dessus de 50 grammes le tarif ne change pas en conséquence....

il reste bloque au tarif inférieur à 50 grammes....

quelqu'un aurait il une idée du pourquoi du comment ?
ou une autre soluce car j'avoue malgré mes recherches ne pas trouver
j'ai bien vu des solutions pour des valeurs fixes mais par pour valeurs comprises dans des tranches
1-20gr
21-35gr
36-50gr
51-100gr
etc....

merci beaucoup pour vos pistes

david

[Philippe Tulliez]

Bonjour,
La fonction MATCH (EQUIV pour la version française d'excel) permet de faire des recherches par tranche comme RECHERCHEV.
Toutefois pour cela les données doivent être classées par ordre croissant.
Avant de le faire à l'aide de VBA, je ne peux que vous conseiller de le faire avec Excel pour vos tests

[munity]

bonjour philippe
et merci pour votre retour

La fonction MATCH (EQUIV pour la version française d'excel) permet de faire des recherches par tranche comme RECHERCHEV.
Toutefois pour cela les données doivent être classées par ordre croissant.

les données sont bien classées par ordre croissant sur la ligne du tableau correspondante au poids

Avant de le faire à l'aide de VBA, je ne peux que vous conseiller de le faire avec Excel pour vos tests

les tests via Excel sont OK puisqu'à la base je suis parti de la formule pour construire l'instruction en VBA
la formule Excel marche parfaitement

c'est bien pour cela que je ne comprends (j'ai vérifié les parenthèses et conditions dans la formule mais rien n'y fait)
c'est bizarre car ce n'est pas la première fois que j'utilise ce sytème...

[Philippe Tulliez]

Bonjour,
Si c'est le code publié, votre recherche avec EQUIV (MATCH) n'est pas correcte pour une valeur proche

Suivant l'illustration ci-dessous, la formule est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDEX(B2:E4;EQUIV(B6;A2:A4;0);EQUIV(B7;B1:E1;1))

Les couleurs vous permettrons de voir les zones cherchées. Ensuite, il suffit de le traduire en VBA avec un simple EVALUATE en remplaçant les zones d'Input par la valeur des TextBox

[munity]

merci pour la piste

Je vais creuser
par contre la valeur que vous indiquez n'est pas correcte
en effet le tarif 2 à 25 gr devrait être de 1.40 euros et non 0.85

c'est un peu le souci que je rencontre avec la formule dans VBA
ce que je ne comprends pas c'est que ma formule dans excel fonctionne très bien
c'est juste quand je la transpose dans VBA qu'elle rencontre un problème

=SIERREUR(INDEX(VALEURS;EQUIV(C2;TYPE_AFFRANCHISSEMENTS;0);SIERREUR(EQUIV(B2;TRANCHE_POIDS);0)+ESTNA(EQUIV(B2;TRANCHE_POIDS;0)));"NON CONFORME")

VALEURS = valeurs des tarifs par poids

et en ce qui concerne

Si c'est le code publié, votre recherche avec EQUIV (MATCH) n'est pas correcte pour une valeur proche

quel est le problème que rencontre ce syntaxe dans VBA (alors que dans Excel tout va bien)

après si une autre solution par bound ou autre est possible je suis preneur
je sais me débrouiller en VBA mais les tableaux ne sont pas mon fort malheureusement

[Zeabon]

Bonjour,

Pour faire des listes en cascades je me réfère à un fichier excel de boisgontierjacques que je vous transmets en pièce jointe.
(je retrouve plus le poste de référence ou la fonction CascadePrixQte surson site http://boisgontierjacques.free.fr/pa...es_cascade.htm)

Je pense que la façon dont il gère le CacasdePrixQte peux vous intéresser.
(il va plus loin que vous dans ça démarche de gestion des prix mais peu être adapté à votre cas)

jb-listescascade.xls

EDIT : Je viens de retrouver le lien de téléchargement (pour plus de transparence) :
http://boisgontierj.free.fr/fichiers...tescascade.xls

Zeabon