Récupérer le format d'une cellule

[Magic_Doctor]

Bonjour,

J'ai une cellule formatée ainsi : "0,00 mL"
Autrement dit, je rentre, par exemple, 28,7523 et la cellule affiche : 28,75 mL

Il y aurait-il un moyen pour connaître le "suffixe" de ce formatage ?
Supposons que la cellule en question soit "A10" :
SufFormatCel([A10]) = "mL"

Merci pour tout conseil.

Bonne journée à tous.

 

[pierrejean]

Re : Récupérer le format d'une cellule

Bonjour Magic_DoctorUn essai

 

[Paf]

Re : Récupérer le format d'une cellule

Bonjour Magic_Doctor,

Si le format imposé est : 0,00"ml", ("0,00 mL" ne fonctionnant pas), un essai fonction personnalisée:

en B10 : =SufixFormat(A10)

dans un module standard:

Function SufixFormat(Cel As Range)
 SufixFormat = Trim(Split(Cel.NumberFormat, """")(1))
End Function

A+

Edit : Bonjour pierrejean

et, une correction prenant en compte les erreurs possibles:

Function SufixFormat(Cel As Range)
 On Error GoTo Erreur
 SufixFormat = Trim(Split(Cel.NumberFormat, """")(1))
 Exit Function
Erreur:
 SufixFormat = ""
End Function

 

[Magic_Doctor]

Re : Récupérer le format d'une cellule

Bonjour pierrejean, Paf,

Merci pour vos solutions qui marchent toutes les deux.

Bonne soirée.

 

[CISCO]

Re : Récupérer le format d'une cellule

Bonsoir

Et avec

x = cellule.NumberFormat
x = Replace(x, ".", "")
x = Replace(x, "0", "")
x = Trim(x)

mis dans une fonction personnalisée.

Est-ce assez polyvalent ?

@ plus