Bonjour,
Je me suis créé une fonction qui retourne l'intervalle de 10 où se trouve le
montant. Vous la trouveras plus bas.
La fonction marche lorsque mes montants sont positifs.
Mais elle ne marche pas si mes montants sont négatifs. Il renvoie
l'intervalle en dessous.
Par exemple : Si j'ai un montant de 38, il va afficher '30 à 40', ce qui est
ok.
Si le montant est de -38, il va afficher '-30 à -20', ce qui n'est pas bon.
Je voudrais qu'il m'affiche '-40 à -30'.
Comme ajuster ma fonction ?
Merci
Function fIntervalle(ByVal Valeur As Double, Optional ByVal espaceintervalle
As Double = 10) As String
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,
Et comme ça ?
Function fIntervalle(ByVal Valeur As Double, _ Optional ByVal espaceintervalle As Double = 10) As String
Dim l1 As Double Dim l2 As Double Dim l3 As Double
l1 = (Valeur espaceintervalle) * espaceintervalle If Valeur > 0 Then l2 = (1 + (Valeur espaceintervalle)) _ * espaceintervalle Else l2 = (-1 + (Valeur espaceintervalle)) _ * espaceintervalle l3 = l1 l1 = l2 l2 = l3 End If fIntervalle = l1 & " à " & l2
End Function
Bonjour, Je me suis créé une fonction qui retourne l'intervalle de 10 où se trouve le montant. Vous la trouveras plus bas. La fonction marche lorsque mes montants sont positifs. Mais elle ne marche pas si mes montants sont négatifs. Il renvoie l'intervalle en dessous. Par exemple : Si j'ai un montant de 38, il va afficher '30 à 40', ce qui est ok. Si le montant est de -38, il va afficher '-30 à -20', ce qui n'est pas bon. Je voudrais qu'il m'affiche '-40 à -30'. Comme ajuster ma fonction ? Merci
Function fIntervalle(ByVal Valeur As Double, Optional ByVal espaceintervalle As Double = 10) As String
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Et comme ça ?
Function fIntervalle(ByVal Valeur As Double, _
Optional ByVal espaceintervalle As Double = 10) As String
Dim l1 As Double
Dim l2 As Double
Dim l3 As Double
l1 = (Valeur espaceintervalle) * espaceintervalle
If Valeur > 0 Then
l2 = (1 + (Valeur espaceintervalle)) _
* espaceintervalle
Else
l2 = (-1 + (Valeur espaceintervalle)) _
* espaceintervalle
l3 = l1
l1 = l2
l2 = l3
End If
fIntervalle = l1 & " à " & l2
End Function
Bonjour,
Je me suis créé une fonction qui retourne l'intervalle de 10 où se trouve le
montant. Vous la trouveras plus bas.
La fonction marche lorsque mes montants sont positifs.
Mais elle ne marche pas si mes montants sont négatifs. Il renvoie
l'intervalle en dessous.
Par exemple : Si j'ai un montant de 38, il va afficher '30 à 40', ce qui est
ok.
Si le montant est de -38, il va afficher '-30 à -20', ce qui n'est pas bon.
Je voudrais qu'il m'affiche '-40 à -30'.
Comme ajuster ma fonction ?
Merci
Function fIntervalle(ByVal Valeur As Double, Optional ByVal espaceintervalle
As Double = 10) As String
Function fIntervalle(ByVal Valeur As Double, _ Optional ByVal espaceintervalle As Double = 10) As String
Dim l1 As Double Dim l2 As Double Dim l3 As Double
l1 = (Valeur espaceintervalle) * espaceintervalle If Valeur > 0 Then l2 = (1 + (Valeur espaceintervalle)) _ * espaceintervalle Else l2 = (-1 + (Valeur espaceintervalle)) _ * espaceintervalle l3 = l1 l1 = l2 l2 = l3 End If fIntervalle = l1 & " à " & l2
End Function
Bonjour, Je me suis créé une fonction qui retourne l'intervalle de 10 où se trouve le montant. Vous la trouveras plus bas. La fonction marche lorsque mes montants sont positifs. Mais elle ne marche pas si mes montants sont négatifs. Il renvoie l'intervalle en dessous. Par exemple : Si j'ai un montant de 38, il va afficher '30 à 40', ce qui est ok. Si le montant est de -38, il va afficher '-30 à -20', ce qui n'est pas bon. Je voudrais qu'il m'affiche '-40 à -30'. Comme ajuster ma fonction ? Merci
Function fIntervalle(ByVal Valeur As Double, Optional ByVal espaceintervalle As Double = 10) As String
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
JF Desnoyers
Oui ca marche, merci Éric
Bonjour,
Et comme ça ?
Function fIntervalle(ByVal Valeur As Double, _ Optional ByVal espaceintervalle As Double = 10) As String
Dim l1 As Double Dim l2 As Double Dim l3 As Double
l1 = (Valeur espaceintervalle) * espaceintervalle If Valeur > 0 Then l2 = (1 + (Valeur espaceintervalle)) _ * espaceintervalle Else l2 = (-1 + (Valeur espaceintervalle)) _ * espaceintervalle l3 = l1 l1 = l2 l2 = l3 End If fIntervalle = l1 & " à " & l2
End Function
Bonjour, Je me suis créé une fonction qui retourne l'intervalle de 10 où se trouve le montant. Vous la trouveras plus bas. La fonction marche lorsque mes montants sont positifs. Mais elle ne marche pas si mes montants sont négatifs. Il renvoie l'intervalle en dessous. Par exemple : Si j'ai un montant de 38, il va afficher '30 à 40', ce qui est ok. Si le montant est de -38, il va afficher '-30 à -20', ce qui n'est pas bon. Je voudrais qu'il m'affiche '-40 à -30'. Comme ajuster ma fonction ? Merci
Function fIntervalle(ByVal Valeur As Double, Optional ByVal espaceintervalle As Double = 10) As String
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Oui ca marche, merci Éric
Bonjour,
Et comme ça ?
Function fIntervalle(ByVal Valeur As Double, _
Optional ByVal espaceintervalle As Double = 10) As String
Dim l1 As Double
Dim l2 As Double
Dim l3 As Double
l1 = (Valeur espaceintervalle) * espaceintervalle
If Valeur > 0 Then
l2 = (1 + (Valeur espaceintervalle)) _
* espaceintervalle
Else
l2 = (-1 + (Valeur espaceintervalle)) _
* espaceintervalle
l3 = l1
l1 = l2
l2 = l3
End If
fIntervalle = l1 & " à " & l2
End Function
Bonjour,
Je me suis créé une fonction qui retourne l'intervalle de 10 où se trouve le
montant. Vous la trouveras plus bas.
La fonction marche lorsque mes montants sont positifs.
Mais elle ne marche pas si mes montants sont négatifs. Il renvoie
l'intervalle en dessous.
Par exemple : Si j'ai un montant de 38, il va afficher '30 à 40', ce qui est
ok.
Si le montant est de -38, il va afficher '-30 à -20', ce qui n'est pas bon.
Je voudrais qu'il m'affiche '-40 à -30'.
Comme ajuster ma fonction ?
Merci
Function fIntervalle(ByVal Valeur As Double, Optional ByVal espaceintervalle
As Double = 10) As String
Function fIntervalle(ByVal Valeur As Double, _ Optional ByVal espaceintervalle As Double = 10) As String
Dim l1 As Double Dim l2 As Double Dim l3 As Double
l1 = (Valeur espaceintervalle) * espaceintervalle If Valeur > 0 Then l2 = (1 + (Valeur espaceintervalle)) _ * espaceintervalle Else l2 = (-1 + (Valeur espaceintervalle)) _ * espaceintervalle l3 = l1 l1 = l2 l2 = l3 End If fIntervalle = l1 & " à " & l2
End Function
Bonjour, Je me suis créé une fonction qui retourne l'intervalle de 10 où se trouve le montant. Vous la trouveras plus bas. La fonction marche lorsque mes montants sont positifs. Mais elle ne marche pas si mes montants sont négatifs. Il renvoie l'intervalle en dessous. Par exemple : Si j'ai un montant de 38, il va afficher '30 à 40', ce qui est ok. Si le montant est de -38, il va afficher '-30 à -20', ce qui n'est pas bon. Je voudrais qu'il m'affiche '-40 à -30'. Comme ajuster ma fonction ? Merci
Function fIntervalle(ByVal Valeur As Double, Optional ByVal espaceintervalle As Double = 10) As String
