Formule dans un Textbox

[Calvus]

Bonsoir le forum,

J'ai vu que le sujet avait déjà été traité, mais je n'arrive pas à adapter à mon fichier.

J'ai 2 formules :

=INDEX(TabPoids;EQUIV(GAUCHE($B$15;2)*1;Dept;0);EQUIV(GAUCHE($H$55;NBCAR($H$55)+1-CHERCHE(" ";$H$55))*1;Poids;1))+0,55

=SI(CherchePoids2<100;CherchePoids;CherchePoids2*(CherchePoids/100))+2,74

Ce que j'aimerais, c'est afficher le résultat dans un Textbox, en fonction du résultat, ou à minima, avoir 2 Textbox et avoir le calcul de la formule dans chacun d'eux.

J'ai essayé :

TextBox2 = Formulalocal ="=Index...etc"

Mais le résultat envoyé est False.

Merci de votre aide.

 

[job75]

Bonjour Calvus,

Il suffit d'évaluer les formules écrites avec la syntaxe anglaise :

TextBox1 = [INDEX(TabPoids,MATCH(LEFT(B15,2)*1,Dept,0),MATCH(LEFT(H55,LEN(H55)+1-FIND(" ",H55))*1,Poids,1))+0.55]
Textbox2 = [IF(CherchePoids2<100,CherchePoids,CherchePoids2*CherchePoids/100)+2.74]

Et si les formules peuvent renvoyer des valeurs d'erreur :

TextBox1 = "": TextBox2 = ""
On Error Resume Next
TextBox1 = [INDEX(TabPoids,MATCH(LEFT(B15,2)*1,Dept,0),MATCH(LEFT(H55,LEN(H55)+1-FIND(" ",H55))*1,Poids,1))+0.55]
TextBox2 = [IF(CherchePoids2<100,CherchePoids,CherchePoids2*CherchePoids/100)+2.74]

A+

 

[Calvus]

Bonsoir Job ,

Merci beaucoup.
Parfait ! Comme d'habitude !

 

[Calvus]

Bonsoir Job, le Forum,

Tous mes vœux pour cette nouvelle année.

En fait j'ai parlé trop vite.
Les formules ne fonctionnent pas, ni aucune autre avec Index.
Les seules formules à vouloir fonctionner sont celles avec If, et que j'avais testé la dernière fois, sur mon fichier m'aidant à la construction de mon formulaire. Je ne pouvais tester les formules citées ici plus haut, mon classeur de construction étant dépourvu des références.
Ce dernier ayant été fini aujourd'hui, j'ai transféré mon Userform vers mon classeur de travail.
Or je n'obtiens rien, et en inscrivant directement les formules dans une cellule via le code, j'obtiens #Valeur.

Exemples :

TextBox3 = [If(J370<300,40, If(J370<500, 20, If(J370<800, 15,"")))]

fonctionne

TextBox1 = [if(e6="Transport",e2*2)]

fonctionne

[D15] = [Index(feuil20!b20:feuil20!c24,Match(feuil20!b22,feuil20!b20:feuil20!b24,0),2[B])[/B]]

ne fonctionne pas EDIT: fonctionne, j'avais oublié une virgule.
Le problème vient d'ailleurs, dans la partie droite de ma formule. Je cherche.

J'ai essayé plein de variantes, sans succès. Une idée ?
Merci

 

[Calvus]

Re,

Ce qui pose problème, c'est cette partie de la formule :

[MATCH(LEFT(H55,LEN(H55)+1-FIND(" ",H55))*1,Poids,1))+0,55]

LEFT(H55,LEN(H55)+1-FIND(" ",H55))*1

fonctionne à condition qu'on enlève le *1

J'enverrai un fichier demain.

Bonne nuit.

 

[job75]

Bonjour Calvus,

Et merci, mes meilleurs vœux également pour cette nouvelle année.

Au post #2 j'ai bien écrit 0.55 et 2.74 avec un point et pas une virgule...

De plus j'ai bien dit qu'il fallait On Error Resume Next si une formule (celle avec MATCH/FIND) peut renvoyer une valeur d'erreur.

A+

 

[Calvus]

Bonjour Job75 , le Forum,

Oui, merci.
J'avais bien suivi les instructions et la virgule a été modifiée à la main sur ce fil, une erreur seulement ici donc. J'avais supprimé cette partie de mon code pour les tests. Mais c'est bien la partie droite qui pose problème. A moins qu'il n'y ait une autre erreur que je n'ai pas vue.

Je viens de faire un petit fichier sommaire reprenant l'architecture du mien.
La cellule H55 est en réalité P11, comme sur le fichier joint.
Les erreurs sont les mêmes.

Merci et bonne journée.

 

[job75]

Re,

En P11 il faut écrire 5.6 Kg avec un point, puisqu'avec une virgule VBA considère que c'est un texte

A+

 

[job75]

Re,

Et si l'on ne veut pas remplacer la virgule en P11, utiliser un nom défini :

Sub form()
ThisWorkbook.Names.Add "X", Replace([P11], ",", ".") 'nom défini
[D14] = [Index(b20:c24,Match(b22,b20:b24,0),2)]
[D15] = [INDEX(TabPoids,MATCH(LEFT(B15,2)*1,Dept,0),MATCH(LEFT(X,LEN(X)+1-FIND(" ",X))*1,Poids,1))+0.55]
[D16] = [MATCH(LEFT(X,LEN(X)+1-FIND(" ",X))*1,Poids,1))]
[D17] = [Left(X, Len(X) + 1 - Find(" ", X)) * 1]
[D18] = [Left(X, Len(X) + 1 - Find(" ", X))]
End Sub

A+

 

[job75]

Re,

Pour éviter l'erreur en D16 je n'ai trouvé que ceci :

[D16] = Application.Match(Val([Left(X, Len(X) + 1 - Find(" ", X))]), [Poids], 1)

le nom X étant défini comme précédemment.

A+

 

[Calvus]

Re,

Job75, je viens de prendre connaissance de tes messages et te remercie.
Le post #9 répond parfaitement à mon problème, car seule la formule :

[D15] = [INDEX(TabPoids,MATCH(LEFT(B15,2)*1,Dept,0),MATCH(LEFT(X,LEN(X)+1-FIND(" ",X))*1,Poids,1))+0.55]

m'intéressait.
J'ai écrit les autres pour tenter de résoudre le problème.
Le problème venait donc de la virgule....

J'ai donc maintenant un Textbox qui fonctionne avec :

TextBox1 = [INDEX(TabPoids,MATCH(LEFT(B15,2)*1,Dept,0),MATCH(LEFT(X,LEN(X)+1-FIND(" ",X))*1,Poids,1))+0.55]

Je vais maintenant m'atteler à la seconde formule, ou probablement ce soir car je suis en plein boulot !

Et merci beaucoup car je n'aurais jamais trouvé tout seul !

Bonne après midi.

 

[job75]

Re,

Pour éviter l'erreur en D16 je n'ai trouvé que ceci :

[D16] = Application.Match(Val([Left(X, Len(X) + 1 - Find(" ", X))]), [Poids], 1)

Bah il y a plus simple :

[D16] = Application.Match(Val([X]), [Poids], 1)

A+

 

[Calvus]

Bonjour Job75, le Forum,

Voici ma deuxième formule.
J'ai pas mal avancé dessus en modifiant suivant ta méthode, mais il reste un os.
Dans la macro form3, c'est la ligne qui doit écrire en E14 qui pose problème.
J'arrive à évaluer la formule toute seule, mais je n'arrive pas à l'intégrer dans le reste.
J'ai disséqué la formule dans les cellules E15 à E20 et ça fonctionne. Mais pas le tout ensemble.
Ce sera plus clair en visualisant le fichier.
Le fichier comprend également tous les noms définis.

Merci.

 

[job75]

Bonjour Calvus, le forum,

Dans l'évaluation de [E14] CherchePoids et CherchePoids2 doivent être des noms définis, pas des variables :

Sub form3()
ThisWorkbook.Names.Add "Y", Replace([P11], ",", ".") 'nom défini
[Index(Tab_Poids_Chabas,Match(Left(B15, 2)*1,Dept_Chabas,0),Match(Left(Y,Len(Y)+1-Find(" ",Y))*1,Poids_Chabas,1))].Name = "CherchePoids"
ThisWorkbook.Names.Add "CherchePoids2", [Left(Y, Len(Y) + 1 - Find(" ", Y)) * 1]
[E14] = [IF(CherchePoids2<100,CherchePoids,CherchePoids2*CherchePoids/100)+2.74]
'[E14] = [IF(CherchePoids2<100,12,15)]
[E15] = [CherchePoids]
[E16] = [CherchePoids2]
[E18] = [Match(Left(B15, 2)*1,Dept_Chabas,0)]
[E19] = [Match(Left(Y,Len(Y)+1-Find(" ",Y))*1,Poids_Chabas,1)]
[E20] = [Left(Y,Len(Y)+1)]
End Sub

Bonne journée.

A+

 

[job75]

Re,

Si la cellule qu'on nomme "CherchePoids" n'est pas trouvée, pour éviter un bug, il vaut mieux utiliser :

Sub form3()
ThisWorkbook.Names.Add "Y", Replace([P11], ",", ".") 'nom défini
ThisWorkbook.Names.Add "CherchePoids", [Index(Tab_Poids_Chabas,Match(Left(B15, 2)*1,Dept_Chabas,0),Match(Left(Y,Len(Y)+1-Find(" ",Y))*1,Poids_Chabas,1))]
ThisWorkbook.Names.Add "CherchePoids2", [Left(Y, Len(Y) + 1 - Find(" ", Y)) * 1]
[E14] = [IF(CherchePoids2<100,CherchePoids,CherchePoids2*CherchePoids/100)+2.74]
'[E14] = [IF(CherchePoids2<100,12,15)]
[E15] = [CherchePoids]
[E16] = [CherchePoids2]
[E18] = [Match(Left(B15, 2)*1,Dept_Chabas,0)]
[E19] = [Match(Left(Y,Len(Y)+1-Find(" ",Y))*1,Poids_Chabas,1)]
[E20] = [Left(Y,Len(Y)+1)]
End Sub

A+