Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Vincent,
'-------------------------------- Private Sub TextBox27_Change() Dim A as double , B as double
if isnumeric(TextBox26) then a = textbox26 else A=0 END IF if isnumeric(TextBox27) then B = textbox27 else B=0 END IF
Textbox28 = CDbl(A) - CDbl(B)
End sub '--------------------------------
Salutations!
"Vincent" a écrit dans le message de news: % Bonsoir J'essaie de mettre en place ceci, mais sans succès : Le pb est que si textbox26 ou textbox27 est vide cela plante. Merci Vincent
Private Sub TextBox27_Change() TextBox28 = CDbl(TextBox26) - CDbl(TextBox27) End Sub
Bonjour Vincent,
'--------------------------------
Private Sub TextBox27_Change()
Dim A as double , B as double
if isnumeric(TextBox26) then
a = textbox26
else
A=0
END IF
if isnumeric(TextBox27) then
B = textbox27
else
B=0
END IF
Textbox28 = CDbl(A) - CDbl(B)
End sub
'--------------------------------
Salutations!
"Vincent" <vincent.richard@club-internet.fr> a écrit dans le message de news: %23tcP0tsPFHA.1096@tk2msftngp13.phx.gbl...
Bonsoir
J'essaie de mettre en place ceci, mais sans succès :
Le pb est que si textbox26 ou textbox27 est vide cela plante.
Merci
Vincent
Private Sub TextBox27_Change()
TextBox28 = CDbl(TextBox26) - CDbl(TextBox27)
End Sub
'-------------------------------- Private Sub TextBox27_Change() Dim A as double , B as double
if isnumeric(TextBox26) then a = textbox26 else A=0 END IF if isnumeric(TextBox27) then B = textbox27 else B=0 END IF
Textbox28 = CDbl(A) - CDbl(B)
End sub '--------------------------------
Salutations!
"Vincent" a écrit dans le message de news: % Bonsoir J'essaie de mettre en place ceci, mais sans succès : Le pb est que si textbox26 ou textbox27 est vide cela plante. Merci Vincent
Private Sub TextBox27_Change() TextBox28 = CDbl(TextBox26) - CDbl(TextBox27) End Sub
Vincent
C'est exactement cela ! merci beaucoup Vincent
"MichDenis" a écrit dans le message de news:
Bonjour Vincent,
'-------------------------------- Private Sub TextBox27_Change() Dim A as double , B as double
if isnumeric(TextBox26) then a = textbox26 else A=0 END IF if isnumeric(TextBox27) then B = textbox27 else B=0 END IF
Textbox28 = CDbl(A) - CDbl(B)
End sub '--------------------------------
Salutations!
"Vincent" a écrit dans le message de news: % Bonsoir J'essaie de mettre en place ceci, mais sans succès : Le pb est que si textbox26 ou textbox27 est vide cela plante. Merci Vincent
Private Sub TextBox27_Change() TextBox28 = CDbl(TextBox26) - CDbl(TextBox27) End Sub
C'est exactement cela !
merci beaucoup
Vincent
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O9YmLEtPFHA.3076@tk2msftngp13.phx.gbl...
Bonjour Vincent,
'--------------------------------
Private Sub TextBox27_Change()
Dim A as double , B as double
if isnumeric(TextBox26) then
a = textbox26
else
A=0
END IF
if isnumeric(TextBox27) then
B = textbox27
else
B=0
END IF
Textbox28 = CDbl(A) - CDbl(B)
End sub
'--------------------------------
Salutations!
"Vincent" <vincent.richard@club-internet.fr> a écrit dans le message de
news: %23tcP0tsPFHA.1096@tk2msftngp13.phx.gbl...
Bonsoir
J'essaie de mettre en place ceci, mais sans succès :
Le pb est que si textbox26 ou textbox27 est vide cela plante.
Merci
Vincent
Private Sub TextBox27_Change()
TextBox28 = CDbl(TextBox26) - CDbl(TextBox27)
End Sub
'-------------------------------- Private Sub TextBox27_Change() Dim A as double , B as double
if isnumeric(TextBox26) then a = textbox26 else A=0 END IF if isnumeric(TextBox27) then B = textbox27 else B=0 END IF
Textbox28 = CDbl(A) - CDbl(B)
End sub '--------------------------------
Salutations!
"Vincent" a écrit dans le message de news: % Bonsoir J'essaie de mettre en place ceci, mais sans succès : Le pb est que si textbox26 ou textbox27 est vide cela plante. Merci Vincent
Private Sub TextBox27_Change() TextBox28 = CDbl(TextBox26) - CDbl(TextBox27) End Sub
