formules EXCEL vers VB6Résolu

Question

bonjour
voila une formule de excel que je voudrais retranscrire dans vb6
SI(ET(M11"";N11="");L11;M11)
j'ai essayer de la retranscrire dans vb6If Label4(2) "" And Label4(1) "" ThenLabel6(3) Label4(0) Or Label6(3) Label4(2)
End If
mais ça ne fonctionne pas,j'ai soit une valeur négative ou la valeur de Label4(0),alors qui y à une valeur dans Label4(2)
ça c'est se qui correspont avec mes labels
M11 = Label4(2)
N11 = Label4(1) 
L11 =  Label4(0)
j'espère avoir était assez clair 
merci
petchy

jrivet · Accepted Answer

Salut,
Litéralement je dirais
IIf(((M11 vbNullString) And (N11 vbNullString)), L11, M11)

A toi de remplacer M11 N11 L11 et de mettre le resultat ou tu le souhaites

@+: Ju£i?n
Pensez: Réponse acceptée

Zakata · Answer

Salut

en passant, essaye d'éviter d'accéder au proprité text des controle simplement en écrivant leurs nom (comme par exemple Label(0) au lieu de Label(0).text). Vb donne la possibilité de mettre par défaut une des méthode d'un objet mais il est plus clair à la relecture d'écrire la syntaxe complete. De plus en cas de changement de propriété par défaut, ton code ne sera plus compatible.

Enfin c'est simplement mon avis personnelle ...

A plus
Damien

cs_DARKSIDIOUS · Answer

Ben à première vue je dirais :
SI(ET(M11="";N11="");L11;M11) devient :If (M11 "" and N11 "") Then
    L11
Else
    M11
End If

Ou plus condensé (ce qui correspond un peu plus à la formule du coup) :iif( M11 "" and N11 "", L11, M11)

Après à toi de définir ce qu'est L11, M11 et N11

mortalino · Answer

salut,
http://www.vbfrance.com/infomsg_FORMULES-EXCEL-VERS-VB6_980586.aspx
Je suppose que tu as copié sans donc comprendre ^^ ?
SI, avec Excel, c'est IF avec VB/VBA, et ET = AND.
Bref, regarde dans l'aide de VB If et IIf.

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

cs_petchy · Answer

Re
merci à vous,c'est super 
mortalino,si j'ai essayer de comprendre,car j'ai essayer de reproduire la formule,mais se n'est pas evident.
petchy

mortalino · Answer

Ok,

n'hésite pas en cas de multiple paramètres, même lorsque c'est inutile, de mettre des parenthèse, ne serait-ce que par lisibilité.

Pour le Iif, en gros :

TonLabel6(3).Caption = IIf (condition à vérifier, si c'est vérifié bah égal à ça, pas vérifié donc autre valeur)

Donc avec le nom de tes Labels :
Labels6(3).Caption Iif(Label4(2).Caption vbNullString And _
        Label4(1).Caption = vbNullString, Label4(0).Caption, Label4(2).Caption)

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

jrivet · Answer

Re,
Bah moi aussi j'avais dit la même chose que [auteurdetail.aspx?ID=13557 DARKSIDIOUS]
             ...
Sauf si tu as pris sa premiere idée.

@+: Ju£i?n
Pensez: Réponse acceptée

cs_DARKSIDIOUS · Answer

sans rancune jrivet : j'ai posté mon message sans voir le tiens !

jrivet · Answer

Re,
oh non , sans rancune aucune 

@+: Ju£i?n
Pensez: Réponse acceptée

mortalino · Answer

DKS, you've got a power ! Valide Julien aussi 

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

cs_petchy · Answer

désolé Julien ,mais je croyais qu'il falait valider une seule réponse
ta solution je les appliqué sur une autre formule.
merci Mortalino pour ses précisions
@ plus
petchy

Formules EXCEL vers VB6

11 réponses

Votre réponse

Discussions similaires