Formules EXCEL vers VB6

Résolu
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 14 juil. 2007 à 13:56
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 15 juil. 2007 à 10:56
bonjour
j'ai une formule dans excel qui est :
SI(ET(G115;L11<10);L11/2;"")
est ce possible de la retranscrire dans VB6,à la place des cellules j'ai des textboxs.
merci
petchy

3 réponses

42wawa42 Messages postés 143 Date d'inscription dimanche 28 septembre 2003 Statut Membre Dernière intervention 6 septembre 2011
14 juil. 2007 à 14:22
Option Explicit
Dim G11 As Single
Dim L11 As Single




Private Sub Command1_Click()
G11 = Text1.Text
L11 = Text2.TextIf G11 5 And L11 < 10 Then L11 L11 / 2
Text1.Text = G11
Text2.Text = L11
End Sub

A plus sur VBFRance
42wawa42
3
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 10
14 juil. 2007 à 14:19
Bonjour,

Rien de plus simple. En imaginant que tu connais les valeurs des cellules G11 et L11, retranscrites dans VB avec deux variables, qu'on va appeler G et L, pour des raisons de simplicité, et disons R la variable qui doit recueillir la réponse. La portion de code qui retranscrit la formule excel peut se coder ainsi :

R=0
If G=5 and L<10 then R=L/2

Amicalement,
Us.
0
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 4
15 juil. 2007 à 10:56
bonjour
merci à vous,c'est nickel
@ plus
petchy
0
Rejoignez-nous