VBA - Appliquer un format Texte sur une cellule commençant par "="

Bonjour au forum,

Je souhaite appliquer le format texte à une cellule qui serait dans un autre format et que la modification soit appliquée immédiatement (donc que l'erreur #NOM soit remplacer par le texte commençant par "=").

J'ai testé plusieurs méthodes mais rien ne fonctionne : en actualisant la feuille, en calculant la cellule, en remplaçant le signe "=" par "=" pour forcer l'actualisation, etc.

Ci-joint un fichier exemple.

Merci d'avance pour l'aide.

Bonjour Nrev74,

Un essai :

Sub CalculNumDonPlage()

    Dim PlageNum, c As Range, xx As String

    With Sheets("Lot")
        For Each c In .Range("PlageNum")
            c.NumberFormat = "@"
            xx = c.Formula
            c.Value = xx
        Next c
    End With
End Sub

Bizz

Magnifique, excellente idée

Merci beaucoup !!