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
Eric
Bonjour Le Chat,
Une fonction, rapidement faite, comme celle-ci conviendrait ?
Function UnTotalDesChiffresDuNombre(Optional UnNombre As Double = 0) As Long Dim Nombre As String, i As Integer, Total As Long Nombre = CStr(UnNombre) For i = 1 To Len(Nombre) Total = Total + Val(Mid$(Nombre, i, 1)) Next i UnTotalDesChiffresDuNombre = Total End Function
que tu mets dans un module général et que tu appelles comme suit en source de ton controle : = UnTotalDesChiffresDuNombre(t4)
Si t4 peut être NULL (non défini) mettre = UnTotalDesChiffresDuNombre(nz(t4))
(Peux être utilisée aussi dans une requête)
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
"Le Chat" écrivait news:41e55e6b$0$8027 $:
Bonjour Je cherche à faire effectuer une fonction sur des chiffres Exemple : 5 + 10 + 1910 = 1925 et ensuite 1925 = 1 + 9 + 2 +5 soit 17
Pour la première j'ai fait 4 champs nombre général t1+t2+t3 Le resultat arrive dans t4 mais après je ne sais pas comment faire (valeur absolue ??)
Amitiés à tous
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
Bonjour Le Chat,
Une fonction, rapidement faite, comme celle-ci conviendrait ?
Function UnTotalDesChiffresDuNombre(Optional UnNombre As Double = 0) As
Long
Dim Nombre As String, i As Integer, Total As Long
Nombre = CStr(UnNombre)
For i = 1 To Len(Nombre)
Total = Total + Val(Mid$(Nombre, i, 1))
Next i
UnTotalDesChiffresDuNombre = Total
End Function
que tu mets dans un module général et que tu appelles comme suit
en source de ton controle :
= UnTotalDesChiffresDuNombre(t4)
Si t4 peut être NULL (non défini) mettre
= UnTotalDesChiffresDuNombre(nz(t4))
(Peux être utilisée aussi dans une requête)
--
A+
Eric
Lien à suivre : http://users.skynet.be/mpfa/
"Le Chat" <padpubnidspamyioda@wanadoo.fr> écrivait news:41e55e6b$0$8027
$8fcfb975@news.wanadoo.fr:
Bonjour
Je cherche à faire effectuer une fonction sur des chiffres
Exemple :
5 + 10 + 1910 = 1925
et ensuite
1925 = 1 + 9 + 2 +5 soit 17
Pour la première j'ai fait 4 champs nombre général
t1+t2+t3
Le resultat arrive dans t4
mais après je ne sais pas comment faire (valeur absolue ??)
Amitiés à tous
--
A+
Eric
Lien à suivre : http://users.skynet.be/mpfa/
Une fonction, rapidement faite, comme celle-ci conviendrait ?
Function UnTotalDesChiffresDuNombre(Optional UnNombre As Double = 0) As Long Dim Nombre As String, i As Integer, Total As Long Nombre = CStr(UnNombre) For i = 1 To Len(Nombre) Total = Total + Val(Mid$(Nombre, i, 1)) Next i UnTotalDesChiffresDuNombre = Total End Function
que tu mets dans un module général et que tu appelles comme suit en source de ton controle : = UnTotalDesChiffresDuNombre(t4)
Si t4 peut être NULL (non défini) mettre = UnTotalDesChiffresDuNombre(nz(t4))
(Peux être utilisée aussi dans une requête)
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
"Le Chat" écrivait news:41e55e6b$0$8027 $:
Bonjour Je cherche à faire effectuer une fonction sur des chiffres Exemple : 5 + 10 + 1910 = 1925 et ensuite 1925 = 1 + 9 + 2 +5 soit 17
Pour la première j'ai fait 4 champs nombre général t1+t2+t3 Le resultat arrive dans t4 mais après je ne sais pas comment faire (valeur absolue ??)
Amitiés à tous
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
Le Chat
Merci merci !! Amitiés "Eric" a écrit dans le message de news:
Bonjour Le Chat,
Une fonction, rapidement faite, comme celle-ci conviendrait ?
Function UnTotalDesChiffresDuNombre(Optional UnNombre As Double = 0) As Long Dim Nombre As String, i As Integer, Total As Long Nombre = CStr(UnNombre) For i = 1 To Len(Nombre) Total = Total + Val(Mid$(Nombre, i, 1)) Next i UnTotalDesChiffresDuNombre = Total End Function
que tu mets dans un module général et que tu appelles comme suit en source de ton controle : = UnTotalDesChiffresDuNombre(t4)
Si t4 peut être NULL (non défini) mettre = UnTotalDesChiffresDuNombre(nz(t4))
(Peux être utilisée aussi dans une requête)
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
"Le Chat" écrivait news:41e55e6b$0$8027 $:
Bonjour Je cherche à faire effectuer une fonction sur des chiffres Exemple : 5 + 10 + 1910 = 1925 et ensuite 1925 = 1 + 9 + 2 +5 soit 17
Pour la première j'ai fait 4 champs nombre général t1+t2+t3 Le resultat arrive dans t4 mais après je ne sais pas comment faire (valeur absolue ??)
Amitiés à tous
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
Merci merci !!
Amitiés
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
XnF95DCC654FE536fframZZhotmailcom@207.46.248.16...
Bonjour Le Chat,
Une fonction, rapidement faite, comme celle-ci conviendrait ?
Function UnTotalDesChiffresDuNombre(Optional UnNombre As Double = 0) As
Long
Dim Nombre As String, i As Integer, Total As Long
Nombre = CStr(UnNombre)
For i = 1 To Len(Nombre)
Total = Total + Val(Mid$(Nombre, i, 1))
Next i
UnTotalDesChiffresDuNombre = Total
End Function
que tu mets dans un module général et que tu appelles comme suit
en source de ton controle :
= UnTotalDesChiffresDuNombre(t4)
Si t4 peut être NULL (non défini) mettre
= UnTotalDesChiffresDuNombre(nz(t4))
(Peux être utilisée aussi dans une requête)
--
A+
Eric
Lien à suivre : http://users.skynet.be/mpfa/
"Le Chat" <padpubnidspamyioda@wanadoo.fr> écrivait news:41e55e6b$0$8027
$8fcfb975@news.wanadoo.fr:
Bonjour
Je cherche à faire effectuer une fonction sur des chiffres
Exemple :
5 + 10 + 1910 = 1925
et ensuite
1925 = 1 + 9 + 2 +5 soit 17
Pour la première j'ai fait 4 champs nombre général
t1+t2+t3
Le resultat arrive dans t4
mais après je ne sais pas comment faire (valeur absolue ??)
Amitiés à tous
--
A+
Eric
Lien à suivre : http://users.skynet.be/mpfa/
Merci merci !! Amitiés "Eric" a écrit dans le message de news:
Bonjour Le Chat,
Une fonction, rapidement faite, comme celle-ci conviendrait ?
Function UnTotalDesChiffresDuNombre(Optional UnNombre As Double = 0) As Long Dim Nombre As String, i As Integer, Total As Long Nombre = CStr(UnNombre) For i = 1 To Len(Nombre) Total = Total + Val(Mid$(Nombre, i, 1)) Next i UnTotalDesChiffresDuNombre = Total End Function
que tu mets dans un module général et que tu appelles comme suit en source de ton controle : = UnTotalDesChiffresDuNombre(t4)
Si t4 peut être NULL (non défini) mettre = UnTotalDesChiffresDuNombre(nz(t4))
(Peux être utilisée aussi dans une requête)
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
"Le Chat" écrivait news:41e55e6b$0$8027 $:
Bonjour Je cherche à faire effectuer une fonction sur des chiffres Exemple : 5 + 10 + 1910 = 1925 et ensuite 1925 = 1 + 9 + 2 +5 soit 17
Pour la première j'ai fait 4 champs nombre général t1+t2+t3 Le resultat arrive dans t4 mais après je ne sais pas comment faire (valeur absolue ??)
Amitiés à tous
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
