Discussion :

[ESVBA]

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.

[eriiic]

Bonjour,

une fonction retourne une valeur.
En théorie elle ne peut pas modifier son environnement, elle n'est pas prévue pour.
eric

[ESVBA]

Excusez-moi du dérangement...

Un principe de base : déclarer ses fonctions et utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OPTION EXPLICIT

Quand on ne le fait pas même sur un petit essai... Voilà le résultat.
On perd du temps et on en fait perdre aux autres.

La solution : il faut placer le résultat dans la même variable.
J'ai utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CellStringFormatNumber

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CellStringNumberFormat

.

RESOLU

ESVBA