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 facilement des nombres décimaux d'une plage sélectionnée dans Excel :
Kutools pour Excel's Extraire le texte l'utilitaire vous aide à extraire facilement toutes les valeurs décimales d'une plage spécifiée comme le montre la démonstration ci-dessous. 
Téléchargez et essayez-le dès maintenant ! (30-jour d'essai gratuit)
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 Sub3. 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 :

Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis aller appliquer l'opération selon les étapes ci-dessus.
Articles connexes :
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