XL 2013 Format cellule

maval

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Bonjour maval, le forum,

Fichier (2) avec :
VB:
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+
 

Pièces jointes

  • Format km(2).xlsm
    21.8 KB · Affichages: 3
Dernière édition:

Dranreb

XLDnaute Barbatruc
Bonjour.
Avec les formats il suffit d'appeler la procédure une deuxième fois :
VB:
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088