Comment extraire les références de cellules des formules dans Excel ?

Supposons que vous ayez des formules longues, et maintenant vous souhaitez extraire toutes les références de cellules des formules comme le montre la capture d'écran ci-dessous. Comment pourriez-vous extraire les références de cellules des formules aussi rapidement que possible ?

Extraire les références de cellules des formules avec une fonction définie par l'utilisateur

Extraire les références de cellules des formules avec une fonction définie par l'utilisateur

Pour extraire les références de cellules des formules, le code VBA ci-dessous peut vous aider. Veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre du Module.

Code VBA : Extraire les références de cellules des formules :

Function ExtractCellRefs(Rg As Range) As String
'Updateby Extendoffice
    Dim xRetList As Object
    Dim xRegEx As Object
    Dim I As Long
    Dim xRet As String
    Application.Volatile
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "('?[a-zA-Z0-9\s\[\]\.]{1,99})?'?!?\$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?"
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
    End With
    Set xRetList = xRegEx.Execute(Rg.Formula)
    If xRetList.Count > 0 Then
        For I = 0 To xRetList.Count - 1
            xRet = xRet & xRetList.Item(I) & ", "
        Next
        ExtractCellRefs = Left(xRet, Len(xRet) - 2)
    Else
        ExtractCellRefs = "No Matches"
    End If
End Function

3. Après avoir collé le code, enregistrez-le et revenez à la feuille de calcul, puis entrez cette formule : =extractcellrefs(G2) (G2 est la cellule qui contient la formule dont vous voulez extraire les références de cellules) dans une cellule où vous souhaitez obtenir le résultat, puis appuyez sur la touche Entrée. Toutes les références de cellules ont été extraites de la formule, voir la capture d'écran :