formule de Excel dans VB 6Résolu

Question

bonsoir
voila comment interprété cette formule de Excel :
SI(C6<3749;1,97;0)
dans VB6,à la place des cellules j'ai mis des textbox,j'ai essayé çat1(3).Text Formula SI(t1(2) <= 3749, 1, 97, 0)
mais j'ai une erreur avec t1(2)
merci
petchy

mortalino · Accepted Answer

Lol, normal que ça ne fonctionne pas, j'ai fait une erreur de frappe, c'est pas 2 FF, mais 2 II :t1(3).Text IIF (Clng(t1(2).Text) < 3749, 1, 97)  

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

mortalino · Answer

salut,

suffit d'utiliser la fonctuion VB prévu à cet effet :

SI en Excel : Iff en VB
t1(3).Text = Iff(Clng(t1(2).Text) <= 3749, 1, 97)

( fais gaffe, t'as un param de trop :  1, 97, 0)

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

cs_MPi · Answer

VB6 ou VBA ?

If Val(t1(2)) < 3749 then
    t1(3) = 1.97  
Else
    t1(3) = 0

End if

MPi

cs_petchy · Answer

bonjour
merci pour vos réponses
Mortalino ,j'ai mis ton code mais il me une erreur sur le IFF
"procédure sub ou function non définie"
sinon le code MPI fonctionne ,mais comme j'ai un paquet de textbox à remplir avec des formules ça va faire beaucoup de ligne de code.
petchy

cs_petchy · Answer

merci,super 
bonne journée

cs_MPi · Answer

Tu peux aussi utiliser Select Case
C'est plus lisible qu'une série de IF ou IIF

Mais encore là, sans plus de détails, c'est difficile d'optimiser...

MPi

Formule de Excel dans VB 6

6 réponses

Votre réponse

Discussions similaires