Passer au contenu principal

Comment formater une zone de texte en tant que devise dans Excel?

Normalement, il n'y a pas de fonction intégrée dans Excel pour vous permettre de modifier le format de texte dans une zone de texte (contrôle ActiveX). Cependant, si vous avez besoin de formater des nombres, vous avez entré dans la zone de texte en devise dans un but précis. Comment pouvez-vous y parvenir? Cet article vous montrera une méthode VBA pour résoudre ce problème.

Formater une zone de texte comme devise avec le code VBA


Formater une zone de texte comme devise avec le code VBA

Le code VBA ci-dessous peut vous aider à formater facilement les nombres dans la zone de texte en tant que devise dans Excel. Veuillez faire comme suit.

1. Cliquez Développeur > insérer > Zone de texte (contrôle ActiveX) pour insérer une zone de texte dans la feuille de calcul. Voir la capture d'écran:

2. Cliquez avec le bouton droit sur la zone de texte, puis cliquez sur Voir le code dans le menu contextuel.

3. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, veuillez remplacer le code d'origine dans la fenêtre Code par le code VBA ci-dessous.

Code VBA: formater la zone de texte comme devise dans Excel

Private Sub TextBox1_Change()
    TextBox1.Value = Format(TextBox1.Value, "$###,##")
End Sub

Notes: Dans le code, Zone de texte1 est le nom de la zone de texte dans laquelle vous formaterez les nombres en tant que devise. Veuillez le changer pour le vôtre.

4. appuie sur le autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.

5. Désactivez le mode de conception.

À partir de maintenant, lorsque vous entrez un nombre dans la zone de texte, il sera automatiquement formaté en tant que devise comme illustré ci-dessous.


Articles Liés:

Meilleurs outils de productivité bureautique

Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

onglet kte 201905


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations