IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Somme de nombre arrondis


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Inscrit en
    Mars 2007
    Messages
    11
    Détails du profil
    Informations forums :
    Inscription : Mars 2007
    Messages : 11
    Points : 5
    Points
    5
    Par défaut Somme de nombre arrondis
    bonjour,

    J'ai un pb sous excel
    Je voudrais faire la somme de nombre d'une ligne arrondis à l'entier près
    1.4 0.4 0.4 1.2 0.3 ...
    J'ai utilisé rounddown mais ca ne marche pas

    Merci de votre aide!!

  2. #2
    Membre expérimenté
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    1 563
    Détails du profil
    Informations personnelles :
    Âge : 61
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 563
    Points : 1 691
    Points
    1 691
    Par défaut
    bonjour lou anne
    je n'ai pas trouvé non plus, je t'ai fais ça plutôt pour m'amuser
    si tu veux juste arrondir la somme ça suffira a ton bonheur, si tu veux l'apliquer a chacune de tes entrèes, tu aurais interet a en faire une fonction, ou a trouver la vrai fonction qui fait ça, si elle existe bien sur
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sub arrondis()
    If Round(Var) > Var Then MsgBox Round(Var - 1) Else MsgBox Round(Var)
    End Sub

  3. #3
    Membre averti Avatar de mordrhim
    Inscrit en
    Avril 2007
    Messages
    270
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Avril 2007
    Messages : 270
    Points : 314
    Points
    314
    Par défaut
    par VBA la fonction est qui arrondi le décimal a l'entier le plus proche
    Round(1,51) = 2
    Round(1,5) = 1

  4. #4
    Membre expérimenté
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    1 563
    Détails du profil
    Informations personnelles :
    Âge : 61
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 563
    Points : 1 691
    Points
    1 691
    Par défaut
    salut, j'ai pensé qu'il voulait arrondir a l'entier inferieur

  5. #5
    Expert confirmé

    Profil pro
    Inscrit en
    Mai 2005
    Messages
    3 419
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 3 419
    Points : 4 297
    Points
    4 297
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    Function sarrondi(ParamArray x() As Variant) As Long
    Dim u As Variant
    Dim v As Variant
    Dim somm As Long
    For Each u In x
    If VarType(u) >= 8192 Then
    For Each v In u
    If IsNumeric(v) Then somm = somm + Round(v, 0)
    Next v
    Else
    If IsNumeric(u) Then somm = somm + Round(u, 0)
    End If
    Next u
    sarrondi = somm
    End Function
    Elle est pas belle la vie ?

Discussions similaires

  1. Somme de nombre ou d'arrondi en condition
    Par chlolo5 dans le forum Excel
    Réponses: 2
    Dernier message: 19/12/2012, 11h26
  2. Procédure somme de nombres premiers
    Par neotrack dans le forum Maple
    Réponses: 1
    Dernier message: 04/05/2008, 11h37
  3. Excel somme de nombre rouge
    Par pavilion dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 12/07/2007, 05h39
  4. Somme sur des arrondis
    Par GregPeck dans le forum Requêtes
    Réponses: 3
    Dernier message: 12/05/2006, 09h54
  5. Somme de nombres limitée
    Par DC dans le forum SQL Procédural
    Réponses: 7
    Dernier message: 29/11/2005, 13h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo