Format agraire

Comment formater une cellule pour indiquer des surfaces agricoles (hectares, ares, centiares) ? Les valeurs doivent rester numériques pour pouvoir faire des calculs.

Il suffit de mettre dans format cellule -Onglet nombre : personnalisé
[<100]#0" ca";[<10000]#0" a "#0" ca";#0" ha "#0" a "#0" ca" Cependant, pour gérer les nombres négatifs - 15ha 53a 60ca par exemple, je vous conseille la petite macro suivante :

Private sub HaACa()
 On Error Resume Next
 For Each c In Selection
 If c.Value >= 0 Then
 c.NumberFormat = "[<100]#0"" ca"";[<10000]#0"" a""#0"" ca"";#0"" ha""#0""
 a""#0"" ca"""
 ElseIf c.Value < 0 Then
 c.NumberFormat = "[>-100]#0"" ca"";[>-10000]#0"" a""#0"" ca"";#0"" ha""#0""
 a""#0"" ca"""
 Else
 MsgBox "madré diou - pas possible !"
 End If
 Next c
 end sub

Auteurs : ,

Mots clefs associés à cette page : , ,