De: Laurent Longre <laurent.longre@free.fr>
Objet: Re: Formats de nombres personnalis&eacute;s
Date : lundi 21 août 2000 13:07


Je te propose cette proc&eacute;dure à mettre dans le module de code de la
feuille de calcul concern&eacute;. Elle adapte automatiquement le format à la
saisie effectu&eacute;.

Remplace "A:A" par l'adresse de la plage où tu veux faire la saisie.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Plage As Range, Z As Range, Cell As Range
  set Plage = Intersect(Target, Range("A:A"))
  If Plage Is Nothing Then Exit Sub
  If Plage.Count = 1 Then
    If Not IsNumeric(Plage) Then Exit Sub
  Else
    On Error Resume Next
    set Plage = Plage.SpecialCells(xlCellTypeConstants, xlNumbers)
    If Err Then Err = 0: Exit Sub
    On Error GoTo Fin
    Application.EnableCancelKey = xlErrorHandler
    Application.ScreenUpdating = False
  End If
  For Each Z In Plage.Areas
    For Each Cell In Z
      If IsNumeric(Cell) Then _
        Cell.NumberFormat = IIf(Cell = CLng(Cell), _
          "# ##0 ""m2""", "# ##0.00 ""m2""")
    Next Cell
  Next Z
Fin:
  If Plage.Count > 1 Then Application.ScreenUpdating = True
End Sub

Cordialement,

Laurent


========================================

De: Jacky  @*10-1 <jc@mb-Formalog.com>
Objet: Re: Formats de nombres personnalis&eacute;s
Date : lundi 21 août 2000 12:26



>si je tape 15,2 je vois : 15,2 m²
>si je tape 15  je vois : 15 m²
>si je tape 15,236 je vois 15,24 m²


# ##0" m²"
ou # ##0,00" m²"  (Pour 2 d&eacute;cimales Syst&eacute;matique)






===========================================




Nicolas BOCHER a &eacute;crit :
> 
> Bonjour,
> 
> J'ai un petit souci pour la cr&eacute;ation de formats personnalis&eacute;s.Je voudrais
> que les nombres s'affichent de la manière suivante :
> 
> si je tape 15,2 je vois : 15,2 m²
> si je tape 15  je vois : 15 m²
> si je tape 15,236 je vois 15,24 m²
> 
> J'ai essay&eacute; # ##0,##" m²" ; mais lorsque je tape 15 je vois 15, m² . La
> virgule qui na disparaît pas ma gêne. Quelqu'un peut-il m'aider ?
> 
> Au plisir de vous lire,
> Nico