Adresse cellule source

Bonjour,

VBA EXCEL

J'ai des liaisons du type "=C550" contenant des nombres :

J'aimerais pouvoir afficher en permanence l'adresse de cette cellule source dans une cellule adjacente a la cellule active, ceci avec un macro.

Merci pour vos retours..

Bonjour,

je ne sais pas si cette fonction est disponible sur votre version Excel, mais il existe FORMULETEXTE qui permet de retourner sous forme de texte la formule contenue dans la cellule que l'on renseigne.

Sinon si elle n'existe pas on peut aussi coder une fonction similaire:

Function formuleEnTexte(cel As Range) As String
Application.Volatile

If cel.Count > 1 Then Exit Function

formuleEnTexte = CStr(cel.Formula)
End Function

Bonjour,

Une proposition à adapter.

Cdlt.

Public Sub FormulaText()
Dim rFormulas As Range, Cell As Range
    With ActiveSheet
        On Error Resume Next
        Set rFormulas = .UsedRange.SpecialCells(xlCellTypeFormulas)
        On Error GoTo 0
    End With
    If Not rFormulas Is Nothing Then
        For Each Cell In rFormulas
            Cell.Offset(, 1).Value = "'" & CStr(Cell.Formula)
        Next Cell
    End If
End Sub

J'ai testé la fonction formule texte cela marche, il ne reste plus qu'a l'adapter.

En tout cas merci pour vos retours.

Eric

Re,

Et moi, et moi, et moi ?

Cdlt.