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 :

Transformer une écriture scientifique en nombre [XL-2013]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2015
    Messages
    67
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juillet 2015
    Messages : 67
    Par défaut Transformer une écriture scientifique en nombre
    Bonjour,

    Dans un fichier j'ai des nombres qui s'affichent en dur en écriture scientifique (par exemple 3,456472E-6) que j'aimerais convertir en nombre (donc 0,000003456472).

    J'aimerais savoir s'il y a une fonction en VBA qui permet d'automatiser ce procédé. Sachant que je ne parle pas de format, mais réellement de transformer l'écriture scientifique en nombre.

    Merci d'avance et bonne journée,

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    En premier, vérifies que le séparateur décimal soit le bon (point ou virgule) ensuite, regardes qu'il n'y ait pas d'espace parasites avant ou après et ensuite, clic droit dans la cellule, Format de cellule et choisir "Standard"

  3. #3
    Membre extrêmement actif Avatar de mjpmjp
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2012
    Messages
    1 133
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hautes Alpes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Santé

    Informations forums :
    Inscription : Avril 2012
    Messages : 1 133
    Par défaut
    bonjour,
    j'ai tapé 3,456472E-6 dans la cellule et direct :
    Nom : Capture.PNG
Affichages : 3574
Taille : 7,1 Ko
    pour le VBA ...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Sub ess()
        Data = "3,456472E-6"
        MsgBox CDbl(Data)
     End Sub
    @+JP
    Caractéristiques (WEB) phpMyAdmin 4-74 , PHP 5-631 , Apache 2-427 , MySQL 5-719
    Présentation NAS DS-3615xs + 20Go , DSM 6.1.6-15266 Up1 , 12 * WD 4To WD4000F9YZ (10 raid 6+ )+(2 raid 1+) , LinkSys comutateur-switch lgs528p-eu , Onduleur UPS 720W Power Boxx Lcd (4*UPS + 4*MOD)
    Mes contributions (EXCEL) Form GRAPHIQUE: Gestion des boutons , Liste Onglet dynamique...GESTION de FILM

  4. #4
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2015
    Messages
    67
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juillet 2015
    Messages : 67
    Par défaut
    Bonjour,

    Merci beaucoup pour les réponses. Malheureusement la fonction CDbl ne s'applique pas lorsque l'exposant est très faible (par exemple elle ne traduit pas 1E-20 en écriture décimale), ce qui fait que je dois appliquer une fonction d'arrondi avant d'appliquer CDbl. Mais la précision est suffisante, il me fallait une précision à 10^(-9) près. Merci à vous, et bonne journée !

  5. #5
    Membre Expert
    Inscrit en
    Octobre 2010
    Messages
    1 401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 1 401
    Par défaut
    Bonjour.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Set Rng = Range("B2:B100")
    Rng.NumberFormat = "0.000000000000000000000000"
    Rng.Value = Rng.Value

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

Discussions similaires

  1. Transformer une chaîne en un nombre
    Par pekre dans le forum Débuter avec Java
    Réponses: 1
    Dernier message: 12/08/2015, 14h56
  2. Réponses: 2
    Dernier message: 12/07/2007, 16h06
  3. Transformer une cell en nombre
    Par hidies dans le forum MATLAB
    Réponses: 3
    Dernier message: 29/03/2007, 14h17
  4. Réponses: 4
    Dernier message: 03/10/2006, 23h16
  5. Réponses: 2
    Dernier message: 21/09/2006, 11h28

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