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 :

Changer valeur de textbox en valeur monetaires


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
    Homme Profil pro
    employé
    Inscrit en
    Décembre 2017
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : employé

    Informations forums :
    Inscription : Décembre 2017
    Messages : 1
    Par défaut Changer valeur de textbox en valeur monetaires
    bonjour,

    je suis novice en la matiere. j'ai un userform qui va alimenter un tableau. dans ce userform j'ai des textbox (elles sont colorisée dans le fichier joint) qui doivent contenir des valeurs monetaires .
    je voudrais en fait , que les valeurs des textes box s'affichent en format monetaires dans mon tableau

    merci de me venir en aide
    Fichiers attachés Fichiers attachés

  2. #2
    Membre Expert Avatar de Transitoire
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Décembre 2017
    Messages
    733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Auditeur informatique

    Informations forums :
    Inscription : Décembre 2017
    Messages : 733
    Par défaut
    Bonjour,
    je suis novice en la matiere. j'ai un userform qui va alimenter un tableau. dans ce userform j'ai des textbox (elles sont colorisée dans le fichier joint) qui doivent contenir des valeurs monetaires .
    je voudrais en fait , que les valeurs des textes box s'affichent en format monetaires dans mon tableau
    Il faut déjà par l'entête excel des colonnes concernées, choisir un format monétaire puis ensuite passer les valeurs sous une forme comme celle-ci:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub TextBox1_Change()
    Dim x As Double
    x = TextBox1.Value
    Range("A1").Value = x      'La range("A1") est donnée comme exemple et doit être remplacée par l'adresse correspondante.
    End Sub
    Chez moi ça fonctionne. A vous de le mettre à votre sauce.
    Cordialement

  3. #3
    Membre Expert
    Profil pro
    Inscrit en
    Février 2007
    Messages
    2 266
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 2 266
    Par défaut
    Bonjour,

    ou directement :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ... =cdbl(TextBox1.Text)
    eric

  4. #4
    Membre Expert
    Avatar de pijaku
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    1 817
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Août 2010
    Messages : 1 817
    Billets dans le blog
    10
    Par défaut
    Bonjour,

    Transitoire, Eriiic (salutations),

    Attention à l'erreur 13 qui vous guette.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub TextBox1_Change()
    Dim x As Double
       If TextBox1.Value <> "" Then
          x = TextBox1.Value
          Range("A1").Value = x
          'ou directement :
          Range("A1").Value = CDbl(TextBox1.Value)
       End If
    End Sub

  5. #5
    Membre Expert
    Profil pro
    Inscrit en
    Février 2007
    Messages
    2 266
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 2 266
    Par défaut
    exact :-)

  6. #6
    Membre Expert Avatar de Transitoire
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Décembre 2017
    Messages
    733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Auditeur informatique

    Informations forums :
    Inscription : Décembre 2017
    Messages : 733
    Par défaut
    Salut a tous.
    L'erreur 13 qui nous guette?
    J'ai pourtant testé mon code avant de la transmettre et sur mon ordinateur ça fonctionnait super bien. pourriez vous développer un peu Svp
    Cordialement

Discussions similaires

  1. Changer les valeurs de textbox à chaque incrément d'une boucle while
    Par cclleemmeenntt dans le forum Macros et VBA Excel
    Réponses: 34
    Dernier message: 31/03/2015, 08h38
  2. Problème TextBox et valeur
    Par Yanmeunier dans le forum IHM
    Réponses: 2
    Dernier message: 30/06/2006, 19h13
  3. Sql serveur 2000 Changer null/not null et valeur par defaut
    Par mictif dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 07/03/2006, 07h55
  4. [C#]Bridé un TextBox en Valeur Numeric !!!
    Par vinsou___ dans le forum Windows Forms
    Réponses: 2
    Dernier message: 03/03/2006, 13h37
  5. [VBA-E] Addition des valeurs des textbox
    Par DonKnacki dans le forum Macros et VBA Excel
    Réponses: 49
    Dernier message: 15/02/2006, 14h49

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