Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Division en VBA

Division en VBA

3 réponses
Avatar
pauline
Bonsoir à tous,

Je voudrais faire une division de mon montant margé(txtsomme) par mon
montant non margé(txtsomme2) pour avoir mon taux de marge. Visiblement, je
peux additionner, soustraire et multiplier, avec le code ci-dessous, mais
diviser il ne veut pas!!!!! Quelqu'un aurait un tuyeau? (Il s'agit peut-être
du signe diviser qui n'est pas bon?)

Private Sub Txtb_Change()
Txtsom = Val(TxtSomme) / Val(txtsomme2)
end sub

Merci d'avance
Pauline
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
LSteph
Bonsoir "Pauline",
chez moi adapté à un Uf contenant 4 textbox ton bout de code fonctionne !

Private Sub TextBox4_Change()
TextBox3 = Val(TextBox1) / Val(TextBox2)
End Sub

lSteph

"pauline" a écrit dans le message de news:
ev%
Bonsoir à tous,

Je voudrais faire une division de mon montant margé(txtsomme) par mon
montant non margé(txtsomme2) pour avoir mon taux de marge. Visiblement, je
peux additionner, soustraire et multiplier, avec le code ci-dessous, mais
diviser il ne veut pas!!!!! Quelqu'un aurait un tuyeau? (Il s'agit
peut-être du signe diviser qui n'est pas bon?)

Private Sub Txtb_Change()
Txtsom = Val(TxtSomme) / Val(txtsomme2)
end sub

Merci d'avance
Pauline



Avatar
JLuc
*Bonjour pauline*,
Si "txtsomme2" est vide, tu obtiens une division par 0
Attention
Private Sub Txtb_Change()
If txtsomme <> "" Then
Txtsom = Val(TxtSomme) / Val(txtsomme2)
End If
End sub

Bonsoir à tous,

Je voudrais faire une division de mon montant margé(txtsomme) par mon montant
non margé(txtsomme2) pour avoir mon taux de marge. Visiblement, je peux
additionner, soustraire et multiplier, avec le code ci-dessous, mais diviser
il ne veut pas!!!!! Quelqu'un aurait un tuyeau? (Il s'agit peut-être du signe
diviser qui n'est pas bon?)

Private Sub Txtb_Change()
Txtsom = Val(TxtSomme) / Val(txtsomme2)
end sub

Merci d'avance
Pauline



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Avatar
pauline
Bonsoir,

Merci à vous pour vos réponses.
1)Je vais effectivement prévoir la possibilité qu'un des 2 txtbos soit à 0.
2) Je pense que mon problème était lié à une référence circulaire. Il me
mettait "dépassement de capacité". J'ai revue mon code et maintenant cela
fonctionne.

Bonne soirée


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

*Bonjour pauline*,
Si "txtsomme2" est vide, tu obtiens une division par 0
Attention
Private Sub Txtb_Change()
If txtsomme <> "" Then
Txtsom = Val(TxtSomme) / Val(txtsomme2)
End If
End sub

Bonsoir à tous,

Je voudrais faire une division de mon montant margé(txtsomme) par mon
montant non margé(txtsomme2) pour avoir mon taux de marge. Visiblement,
je peux additionner, soustraire et multiplier, avec le code ci-dessous,
mais diviser il ne veut pas!!!!! Quelqu'un aurait un tuyeau? (Il s'agit
peut-être du signe diviser qui n'est pas bon?)

Private Sub Txtb_Change()
Txtsom = Val(TxtSomme) / Val(txtsomme2)
end sub

Merci d'avance
Pauline



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS