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 :

Division latitude par 100


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Technicien réseaux et télécoms
    Inscrit en
    Octobre 2018
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Technicien réseaux et télécoms
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Octobre 2018
    Messages : 10
    Par défaut Division latitude par 100
    Bonjour à tous,

    j'ai une conversion à effectuer sur une colonne concernant des latitudes.
    J'ai ce type de donnée qui apparaient -0.706933806066531E02

    Je dois travailler ce résultat, en retirant le E02 et en divisant le chiffre par 100.

    J'ai essayé le code suivant, mais j'ai un message d'erreur, j'ai aussi un doute sur le type de variable à utiliser (est ce bien double ?)
    Sub test()
    Dim X As Double
    If Right(Worksheets("Push").Cells(2, 10), 3) = "E02" Then
    X = Worksheets("Push").Cells(2, 10)
    X = Left(X, Len(X) - 3)
    X = X / 100
    End If
    End Sub
    Pouvez vous m'aider à comprendre l'erreur?

    en pj le fichier.
    LoadKizeoV2.xlsm

  2. #2
    Membre émérite
    Homme Profil pro
    Retraité
    Inscrit en
    Octobre 2022
    Messages
    685
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Octobre 2022
    Messages : 685
    Par défaut
    Bonjour,

    tu affectes dans X qui est un réel le contenu de la cellule, qui est un string non équivalent à un numérique. ll faut faire toute la transformation avant d'affecter à X.

    Essaye :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    With Worksheets("Push").Cells(2, 10)
    x = Replace(Left(.Value, Len(.Value) - 3), ".", ",") / 100
    End With

  3. #3
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 430
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 430
    Par défaut
    Les nombres me semble utiliser le format US (point décimal). Il faudrait regarder s'il n'est pas indiqué de gérer cela en changeant momentanément le paramétrage des Options Excel:

    Nom : Options - Séparateurs système.png
Affichages : 135
Taille : 21,6 Ko

    Cordialement.

Discussions similaires

  1. Réponses: 4
    Dernier message: 23/11/2016, 10h33
  2. valeur numérique divisée par 100.
    Par vince2005 dans le forum Unix
    Réponses: 8
    Dernier message: 18/02/2014, 17h20
  3. [XL-97] MACRO - division par 100
    Par HINDI58 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/03/2013, 09h31
  4. Diviser un champ montant par 100
    Par zilfana63 dans le forum VBA Access
    Réponses: 7
    Dernier message: 28/02/2008, 11h40
  5. problème de division par 100
    Par trent94 dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 16/11/2005, 22h08

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