test avec du texte

8 réponses

ced

15/10/2004 à 16:33

Bonjour,

J'ai essayé de faire un test à partir d'une donnée texte provenant d'une
fonction :

public function toto(NBR, a_b_c) as string

if a_b_c = a then

etc ...

ca marche pas
par contre, si a_b_c est un nombre, ca marche

merci si vous avez une sol

8 réponses

LeSteph

15/10/2004 à 16:57

Bonjour Ced,
donnes nous le etc..
enfin la fonction complète
merci

"ced" a écrit dans le message de news:

Bonjour,

J'ai essayé de faire un test à partir d'une donnée texte provenant d'une
fonction :

public function toto(NBR, a_b_c) as string

if a_b_c = a then

etc ...

ca marche pas
par contre, si a_b_c est un nombre, ca marche

merci si vous avez une sol

Misange

15/10/2004 à 17:03

bonjour mets
if a_b_c = "a" then et ça ira mieux

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 15/10/2004 16:33:

Bonjour,

J'ai essayé de faire un test à partir d'une donnée texte provenant d'une
fonction :

public function toto(NBR, a_b_c) as string

if a_b_c = a then

etc ...

ca marche pas
par contre, si a_b_c est un nombre, ca marche

merci si vous avez une sol

isabelle

15/10/2004 à 17:31

bonjour ced,

je crois que l'erreur provient des guillemets manquant à "a"
A_B_C = "a"
If Not IsNumeric(A_B_C) Then MsgBox "texte"

isabelle

isabelle

Bonjour,

J'ai essayÃ© de faire un test Ã partir d'une donnÃ©e texte provenant d'une
fonction :

public function toto(NBR, a_b_c) as string

if a_b_c = a then

etc ...

ca marche pas
par contre, si a_b_c est un nombre, ca marche

merci si vous avez une sol

ced

15/10/2004 à 17:39

je l'ai fait et ca marche pas

"Misange" wrote:

bonjour mets
if a_b_c = "a" then et ça ira mieux

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 15/10/2004 16:33:
Bonjour,

J'ai essayé de faire un test à partir d'une donnée texte provenant d'une
fonction :

public function toto(NBR, a_b_c) as string

if a_b_c = a then

etc ...

ca marche pas
par contre, si a_b_c est un nombre, ca marche

merci si vous avez une sol

ced

15/10/2004 à 17:41

voici

Public Function DN(fluide, db, T, sousref_ou_surchauffe, Ts_comp, v_max,
A_L_R) As String
fluid = fluide
db_ff = db
v_max_asp = v_max

'if A_L_R = a
'if A_L_R = "a"
If A_L_R = 1 Then

Trosée_ff_ev = T
srcf = sousref_ou_surchauffe
Ts_ff_ev = Trosée_ff_ev + srcf
P_ff_ev = Pdew_t(fluid, Trosée_ff_ev)
rho_s_ff_ev = Rho_TP(fluid, Ts_ff_ev, P_ff_ev, 2) ' masse volumique
(kg/m3)
dVdt_s_ev = db_ff * (1 / rho_s_ff_ev) * 3600

Call select_tubes_GH(v_max_asp, rho_s_ff_ev, diam_tube_asp_1,
diam_tube_asp_2, dn1, dn2)

DN = dn2

ElseIf A_L_R = 2 Then

Tbulle_ff_cond = Tk
P_ff_cond = Pbubble_t(fluid, Tbulle_ff_cond)
ssref = sousref_ou_surchauffe
Ts_ff_cond = Tbulle_ff_cond - ssref
rho_s_ff_cond = Rho_TP(fluid, Ts_ff_cond, P_ff_cond, 1) ' masse
volumique (kg/m3)

Call select_tubes_GH(v_max_asp, rho_s_ff_ev, diam_tube_asp_1,
diam_tube_asp_2, dn1, dn2)

DN = dn2

ElseIf A_L_R = 3 Then
Tbulle_ff_cond = Tk
Ts_ff_cp = Ts_comp
Ts_ff_cp = Ts_comp

End If

'Call fab_cycle

End Function

"LeSteph" wrote:

Bonjour Ced,
donnes nous le etc..
enfin la fonction complète
merci

"ced" a écrit dans le message de news:

Bonjour,

J'ai essayé de faire un test à partir d'une donnée texte provenant d'une
fonction :

public function toto(NBR, a_b_c) as string

if a_b_c = a then

etc ...

ca marche pas
par contre, si a_b_c est un nombre, ca marche

merci si vous avez une sol

PMO

15/10/2004 à 17:51

Bonjour,

Peut-être une piste.

Si le paramètre a_b_c est une chaîne de caractères (string) ,
le paramètre NBR un nombre et votre valeur de retour une chaîne
ne faudrait-il pas mieux écrire:

Public Function (NBR As Double [ou Long ou Integer], a_b_c As String) As
String

Votre fonction, telle qu'elle est écrite, a des paramètres de type Variant
qui peuvent, par conséquent, contenir n'importe quel type de données.

Cordialement.

PMO
Patrick Morange

Bonjour,

J'ai essayé de faire un test à partir d'une donnée texte provenant d'une
fonction :

public function toto(NBR, a_b_c) as string

if a_b_c = a then

etc ...

ca marche pas
par contre, si a_b_c est un nombre, ca marche

merci si vous avez une sol

JpPradier

15/10/2004 à 17:53

Bonjour ced

Apres test ça fonctionne en mettant
if a_b_c = "a" then ....
dans le module et
=DN(....;...;...;...;...;...;"a") dans la cellule

j-p

ced

15/10/2004 à 18:13

Ca marche merci

merci a tous

"PMO" wrote:

Bonjour,

Peut-être une piste.

Si le paramètre a_b_c est une chaîne de caractères (string) ,
le paramètre NBR un nombre et votre valeur de retour une chaîne
ne faudrait-il pas mieux écrire:

Public Function (NBR As Double [ou Long ou Integer], a_b_c As String) As
String

Votre fonction, telle qu'elle est écrite, a des paramètres de type Variant
qui peuvent, par conséquent, contenir n'importe quel type de données.

Cordialement.

PMO
Patrick Morange

Bonjour,

J'ai essayé de faire un test à partir d'une donnée texte provenant d'une
fonction :

public function toto(NBR, a_b_c) as string

if a_b_c = a then

etc ...

ca marche pas
par contre, si a_b_c est un nombre, ca marche

merci si vous avez une sol

test avec du texte

8 réponses

Veuillez sélectionner un problème