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 VBA fausse sans décimale


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Femme Profil pro
    Étudiant
    Inscrit en
    Novembre 2016
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 31
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2016
    Messages : 1
    Par défaut Somme VBA fausse sans décimale
    Bonjour,

    J'ai crée une macro dans laquelle je souhaite faire une somme toute simple. Le résultat de la somme tombe juste dans VBA (quand je laisse le curseur dessus lors du pas à pas j'ai le bon nombre cad 17,9776157323315).

    J'ai calculé le nombre et je souhaite l'afficher en l'affectant à une cellule de mon excel.
    Mais le chiffre qui s'affiche dans l'excel ne comporte pas les décimales : 179776157323315

    De plus quand je souhaite additionner sous vba ce nombre avec un autre je me retrouve avec un nombre avec deux décimales : 17,9776157323315179,906722378697

    Comme si VBA n'avait pas compris que c'était un chiffre. Alors que j'ai bien dimensionné ma variable qui la calcule as string...

    Savez-vous comment faire pour que VBA affiche le bon nombre et d'oû pourrait provenir le problème?

    Merci

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 176
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 176
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Sans afficher le code (entre les balises #) prévues à cet effet. Impossible d'apporter une aide quelconque.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    rien qu'en lisant ceci, on voit ce qui se passe, et qui défie le bon sens.

    Alors que j'ai bien dimensionné ma variable qui la calcule as string
    additionner ces "string", c'est les concaténer !
    Le "+" sera traité comme un opérateur de concaténation "&"

    exemple :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub toto()
    Dim UnFauxChiffre As String
    Dim UnAutreFauxChiffre As String
     
    ' pourtant, j'y ai bien mis des chiffres dans mes variables ?!
    UnFauxChiffre = 1
    UnAutreFauxChiffre = 2
     
    ' ouais, VBA a compris que c'était des chiffres, mais comme t'es dans une chaine de caractère
    ' il a correctement affecté ta valeur "chiffre" en une valeur "chaine de caractère" dans tes variables String
    MsgBox UnFauxChiffre + UnAutreFauxChiffre
     
    End Sub
    on obtient pas 3 .... mais 12

    et si on teste ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox UnFauxChiffre + UnAutreFauxChiffre = UnFauxChiffre & UnAutreFauxChiffre
    On obtiendra "VRAI"


    D'où, je l'espère, la solution évidente que tu dois mettre en place et que tu as compris au travers de cette explication ?

  4. #4
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    comment peut-on écrire cela sans sourciller :
    Comme si VBA n'avait pas compris que c'était un chiffre. Alors que j'ai bien dimensionné ma variable qui la calcule as string...
    ?

Discussions similaires

  1. [XL-2007] Passer en nombre sans décimal avec VBA possible ?
    Par Debutant10 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 20/06/2011, 10h49
  2. [VBA] "Expression sans paramètre"
    Par mathilde50 dans le forum Access
    Réponses: 19
    Dernier message: 22/11/2006, 19h17
  3. [VBA-E]Séparateur décimal
    Par Mad X dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/03/2006, 16h17
  4. Réponses: 5
    Dernier message: 07/02/2006, 15h36
  5. access : calcul d'une somme de 0 sans valeur par défaut
    Par ericbelgium dans le forum Access
    Réponses: 6
    Dernier message: 06/10/2005, 09h05

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