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 Sub

Remarque : 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 ?