Comment extraire une valeur décimale d'une chaîne de caractères dans Excel ?

Ce tutoriel vous expliquera comment extraire uniquement la valeur décimale d'une chaîne de caractères dans Excel.

Extraire une valeur décimale avec une formule dans Excel
Extraire une valeur décimale avec VBA dans Excel
Extraire facilement une valeur décimale avec Kutools pour Excel

Extraire une valeur décimale avec une formule dans Excel

Il existe deux formules qui peuvent vous aider à extraire une valeur décimale d'une chaîne de caractères, choisissez celle qui convient à vos besoins.

La formule indépendante du signe des valeurs :

Sélectionnez une cellule et tapez cette formule =ABS(A1-TRUNC(A1)) (A1 est la cellule dont vous souhaitez extraire la valeur décimale) dans la Barre de formule, puis appuyez sur la touche Entrée. Continuez à sélectionner la première cellule de résultat, faites glisser la poignée de recopie vers le bas pour obtenir tous les résultats. Vous pouvez voir que les valeurs décimales sont extraites sans signe comme illustré dans la capture d'écran ci-dessous.

La formule qui reflète le signe des valeurs :

Sélectionnez une cellule et tapez cette formule =A1-TRUNC(A1) (A1 est la cellule dont vous souhaitez extraire la valeur décimale) dans la Barre de formule, puis appuyez sur la touche Entrée. Continuez à sélectionner la première cellule de résultat, et faites glisser la poignée de recopie vers le bas pour obtenir tous les résultats. Vous pouvez voir que les valeurs décimales sont extraites avec leur signe comme illustré dans la capture d'écran ci-dessous.

Extraire une valeur décimale avec VBA dans Excel

Il existe un VBA qui peut extraire en masse des valeurs décimales avec leur signe uniquement à partir de chaînes de caractères.

1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre contextuelle, cliquez sur Insertion > Module, puis collez le code VBA suivant dans le module.

VBA : Extraire uniquement les valeurs décimales

Sub GetNumber()
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select range:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Select single cell:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            KK = xSRgArea(K).Row - xSRg.Row
            If IsNumeric(xRgVal) Then
                xDRg.Offset(KK) = xRgVal - VBA.Fix(xRgVal)
            End If
        Next
    Next
End Sub

3. Appuyez sur la touche F5 pour exécuter le code. Ensuite, une boîte de dialogue Kutools pour Excel apparaît, veuillez sélectionner la plage à partir de laquelle vous souhaitez extraire uniquement les valeurs décimales, puis cliquez sur le bouton OK. Voir capture d'écran :

4. Ensuite, une autre boîte de dialogue Kutools pour Excel apparaît, vous devez sélectionner une cellule pour localiser les valeurs décimales extraites. Voir capture d'écran :

Vous pouvez voir que seules les valeurs décimales des nombres spécifiés sont extraites et placées dans une certaine plage comme illustré dans la capture d'écran ci-dessous.

Extraire facilement une valeur décimale avec Kutools pour Excel

Si vous n'aimez pas les méthodes par formule et VBA, voici un outil pratique que je vous recommande – Kutools pour Excel. Avec son utilitaire Extraire le texte, vous pouvez facilement extraire toutes les valeurs décimales d'une plage dans Excel.

1. Sélectionnez la plage contenant les décimales que vous souhaitez extraire, puis cliquez sur Kutools > Texte > Extraire le texte. Voir capture d'écran :

2. Dans la boîte de dialogue Extraire le texte, tapez .* dans la zone de texte, puis cliquez sur le bouton Ajouter. Enfin, cliquez sur le bouton OK. Voir capture d'écran :

3. Dans une autre boîte de dialogue Extraire le texte qui apparaît, sélectionnez une cellule vierge pour localiser le résultat, puis cliquez sur le bouton OK.

Ensuite, toutes les valeurs décimales de la plage sélectionnée sont immédiatement extraites. Voir capture d'écran :

Articles connexes :

• Extraire uniquement l'heure dans Excel