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 :

[VBA-E]Problème avec ArrondiSup


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    92
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2006
    Messages : 92
    Par défaut [VBA-E]Problème avec ArrondiSup
    Bonjour Bonjour


    Après avoir passé ma matinée a taper au PC, j'en suis déja a 4 Heures de programmation non Stop, encore 4 à tenir.

    J'ai la tête comme une pasteque.

    J'ai essayer d'utiliser les arrondi pour mon calcul de moyenne, mais maintenant, je n'ai plus que des 0.

    Je me suis planter, je sais, pas besoin de me le dire.
    J'ai été voir sur les autres topic, c'est d'ailleurs un des codes que j'ai repris.

    Mais marche pas pour moi.

    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
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    'Average -5/+5 Nb a/c
    Res.Activate
    Dim sd As Integer
    Dim totale As Long
    Dim inde As Integer
    Dim lige As Integer
    Dim ArrondiSup As Double
     
    'For e = 1 To derlio
    lige = 6
    inde = 1
    totale = 0
    For Each re In Range("G6:G" & i - 6)
    'en fonction du nombre de valeurs à cumuler
        For sd = 1 To 10
            totale = totale + Range("C" & sd + inde).Value
            'Range("G" & lige).Value = total / 10
            Number = total / 10
            If Int(Number) = Number Then
                ArrondiSup = Number
            Else
                ArrondiSup = Round(Number) + 1
            End If
            Range("G" & lige).Value = ArrondiSup
        Next sd
    inde = inde + 1
    lige = lige + 1
    totale = 0
    Next re
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    'Range("G" & lige).Value = total / 10
    je calculais la moyenne, et j'ai voulu faire des arrondis.

    si 13,5 je met 14
    en dessous de 13.4 je met 13
    ...


    Merci

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    tu devrai rajouter en haut de ton module

    cela te permettrai de détecter lors de la compilation (Débogage/Compiler) les erreurs sur nom de variables..

    ainsi tu as une variable total l'autre totale ..? c'est bien 2 variables différentes..?

    Number n'est pas déclaré..!

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    92
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2006
    Messages : 92
    Par défaut
    A oui erreur toute bete

    Merci bbil, c'est bon je vien de corriger

    j'ai quasis fini, enfin

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VBA-E] & problème avec GetOpenFileName
    Par sat478 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 31/03/2006, 17h20
  2. [VBA-E] Problème avec des dates !
    Par yaya54 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 21/03/2006, 13h12
  3. [VBA-E] problème avec la fonction print#
    Par phoon dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 08/03/2006, 09h51
  4. [VBA-E] Problème avec Application.StatusBar
    Par laloune dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/03/2006, 16h44
  5. [VBA] [WORD] problèmes avec NUMPAGES
    Par meufeu dans le forum VBA Word
    Réponses: 9
    Dernier message: 08/08/2005, 16h24

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