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 :

Conversion forme texte en nombre [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre chevronné Avatar de jackborogar
    Homme Profil pro
    Etudiant Ingénierie Financière
    Inscrit en
    Avril 2012
    Messages
    290
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Etudiant Ingénierie Financière
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2012
    Messages : 290
    Par défaut Conversion forme texte en nombre
    Bonjour à tous,

    Voici mon problème:

    Je fais une extraction via un logiciel. Or les chiffres à virgules sont des points. Je remplace donc les points par des virgules. Néanmoins j'ai une erreur (sur tous les chiffres à virgule), me signalant que mes nombres sont stockés sont formes de textes.

    Je voudrais donc convertir mes chiffres sous formes de texte (colonne J de ma feuille) en nombre afin que mes calculs s'exécute correctement.

    Je vous remercie,

    Cordialement,

  2. #2
    Invité
    Invité(e)
    Par défaut Re
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Function MyIsNumerique(V) As Double
    Dim Vcopie As String
    Vcopie = Trim("" & V)
    If IsNumeric(Vcopie) = False Then
        'pas numerique modifie la virgule , en .
        Vcopie = Replace(Vcopie, ",", ".")
    End If
    If IsNumeric(Vcopie) = False Then
        'pas numerique Option régional Windows ?? . ->,
        Vcopie = Replace(Vcopie, ".", ",")
    End If
    MyIsNumerique = Val(Vcopie) 'Si v=Prénom convertie en 0.0 de toutes les façon retourne un numérique.
    End Function

  3. #3
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Feuil2").Range("A:D").Replace ".", ".", xlPart

  4. #4
    Membre chevronné Avatar de jackborogar
    Homme Profil pro
    Etudiant Ingénierie Financière
    Inscrit en
    Avril 2012
    Messages
    290
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Etudiant Ingénierie Financière
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2012
    Messages : 290
    Par défaut
    Merci rdurupt de votre réponse,

    Néanmoins après test (fichier joint dans ce message), je n'ai rien qui se produit. Pouvez vous y jeter un oeil.

    Cordialement,
    Fichiers attachés Fichiers attachés

  5. #5
    Membre chevronné Avatar de jackborogar
    Homme Profil pro
    Etudiant Ingénierie Financière
    Inscrit en
    Avril 2012
    Messages
    290
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Etudiant Ingénierie Financière
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2012
    Messages : 290
    Par défaut
    j'ai trouvé pour ceux qui veulent:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    For Each ws In ActiveWorkbook.Worksheets
            With ws.Range("A1:A22")
                .NumberFormat = "0"
                .Value = .Value
            End With
        Next
    cdt,

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

Discussions similaires

  1. [XL-2003] Conversion texte vers nombre
    Par Toine-45 dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 10/01/2014, 17h40
  2. [PROC] Conversion texte en nombre
    Par pierreTPE57 dans le forum SAS Base
    Réponses: 3
    Dernier message: 09/11/2012, 14h29
  3. convertir en Texte mais dans sa forme entière un nombre long
    Par deca2 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 19/05/2010, 14h14
  4. Conversion groupée de texte en nombre
    Par scrouet dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 08/10/2008, 16h32
  5. Conversion texte en nombre
    Par berapard dans le forum Langage SQL
    Réponses: 3
    Dernier message: 02/07/2008, 12h29

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