Bonjour,

je bute sur l'affichage du format d'une cellule dans une autre.
J'ai créé cette fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Public Function CellStringNumberFormat(Rg As Range) As String
    If Rg.Count > 1 Then
        CellStringFormatNumber = "(Selection multiple)"
    Else
        CellStringFormatNumber = "'" & CStr(Rg.NumberFormatLocal)
    End If
End Function
L'affichage ne se fait pas mais la valeur de la fonction est la bonne. Même le texte "(Selection multiple)" ne s'affiche pas.
J'ai donc ajouté l'apostrophe pour spécifier un texte.

Je pense à un problème d'interprétation, d'affichage de la valeur renvoyée.
Le changement du format de la cellule de réception n'apporte pas de solution.

Avez-vous une solution ?

ESVBA

Je constate en mode débogage que le contenu de la cellule ayant la fonction reçoit un "0" avant d'éxécuter le code de la fonction.