XL 2013 Format cellule

[maval]

Bonjour

J'ai des cellules ou je met un format personnalisé c'est à dire ceci : 24.72 Km² en faisant

# ##0,00" km²" jusque la pas de problème.

Comment faire quand j'ai des valeurs ronde comme 20 km² sans avoir ceci 20.00 km² avoir les deux zéro après la virgule

Je vous remercie d'avance

Max

 

[maval]

Bonjour Job,Dranreb,

Merci Dranreb, Mapomme, Job
J'ai adapté le code à Job qui est génial, je voulais savoir comment adapter ce code pour une deuxième colonne de la même feuille.
Je m'explique en colonne "o" j'ai Km² bon sa c'est bon et en colonne "N" j'ai hab/km².

Je vous remercie et vous souhaite une bonne journée

Max

 

[job75]

Bonjour maval, le forum,

Fichier (2) avec :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [N:O], UsedRange) 'plage à adapter
If Target Is Nothing Then Exit Sub
Dim tablo, i&, v#
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
If FilterMode Then ShowAllData 'si la feuille est filtrée
For Each Target In Intersect(Target.EntireRow, [N:O]).Areas 'si entrées multiples (copier-coller)
    tablo = Target 'matrice, plus rapide
    For i = 1 To UBound(tablo)
        If IsNumeric(CStr(tablo(i, 1))) Then
            v = tablo(i, 1)
            tablo(i, 1) = Format(v, IIf(v = Int(v), "0", "0.00")) & " hab/km²"
        End If
        If IsNumeric(CStr(tablo(i, 2))) Then
            v = tablo(i, 2)
            tablo(i, 2) = Format(v, IIf(v = Int(v), "0", "0.00")) & " km²"
        End If

    Next i
    Target = tablo 'restitution
Next Target
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

 

[Dranreb]

Bonjour.
Avec les formats il suffit d'appeler la procédure une deuxième fois :

With Intersect([N:O], UsedRange) 
   .FormatConditions.Delete
   DécimalesOmises .Columns(1), 2, " hab/km²"
   DécimalesOmises .Columns(2), 2, " km²"
   End With

L'avantage c'est que les données restent numériques.

 

[maval]

Bonjour Job, Danreb

Nickel je vous remercie
Bonne journée

Max