Comment formater une zone de texte en pourcentage dans Excel ?
Dans un article précédent, nous avons expliqué comment formater des nombres dans une zone de texte en tant que monnaie dans Excel. Cette fois, nous allons explorer le formatage des nombres dans une zone de texte en tant que pourcentages. En utilisant VBA, vous pouvez garantir que tout nombre saisi dans la zone de texte est automatiquement formaté en pourcentage pour une présentation cohérente des données.
Formater les entrées de la zone de texte en pourcentages avec du code VBA
Formater les entrées de la zone de texte en pourcentages avec du code VBA
Suivez ces étapes pour formater une zone de texte en pourcentage à l'aide de code VBA.
1. Cliquez sur "Développeur" > "Insérer" > "Zone de texte (Contrôle ActiveX)" pour insérer une zone de texte dans la feuille de calcul. Voir capture d'écran :
2. Faites un clic droit sur la zone de texte, puis cliquez sur "Affichage du code" dans le menu contextuel.
3. Dans la fenêtre ouverte "Microsoft Visual Basic for Applications", remplacez le code original dans la fenêtre Code par le code VBA ci-dessous.
Code VBA : formater une zone de texte en pourcentage dans Excel
Private Sub TextBox1_LostFocus()
Dim xReg As New RegExp
Dim xMatches As MatchCollection
Dim xMatch As Match
Dim xText As String
Dim xReplace As String
On Error Resume Next
Application.ScreenUpdating = False
xText = Me.TextBox1.Text
xText = Replace(xText, "%", "")
With xReg
.Global = True
.Pattern = "([^0-9]+\d+)|(\d{1,})"
Set xMatches = .Execute(xText)
For Each xMatch In xMatches
xReplace = xReplace & xMatch.Value & "%"
Next
End With
xText = xReplace & Mid(xText, Len(xReplace) - xMatches.Count + 1)
Me.TextBox1.Text = xText
Application.ScreenUpdating = True
End SubRemarque : Remplacez "TextBox1" par le nom de la zone de texte que vous utilisez.
4. Cliquez sur "Outils" > "Références". Cochez ensuite la case "Microsoft VBScript Regular Expressions" dans la boîte de dialogue "Références – VBAProject", et cliquez sur le bouton "OK". Voir capture d'écran :
5. Appuyez sur les touches "Alt" + "Q" pour quitter la fenêtre "Microsoft Visual Basic for Applications".
6. Lorsque vous revenez à la feuille de calcul, cliquez à nouveau sur "Développeur" > "Mode Création" pour désactiver le Mode Création.
Dès maintenant, lorsque vous entrez des nombres dans la zone de texte et déplacez le curseur en dehors pour cliquer sur n'importe quelle cellule, les nombres seront automatiquement formatés en pourcentages.
Articles connexes :
- Comment formater une zone de texte en devise dans Excel ?
- Comment sélectionner automatiquement le texte d'une zone de texte lorsqu'elle est sélectionnée dans Excel ?
- Comment activer l'autocomplétion d'une zone de texte lors de la saisie dans Excel ?
- Comment concaténer les textes de plusieurs cellules dans une zone de texte dans Excel ?
- Comment désactiver la modification dans une zone de texte pour empêcher la saisie utilisateur dans Excel ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels