Tronquer un nombre à 1 chiffre après la virgule

Autre détail important, je suis novice en VBA et "autodidacte" (si je puis dire, merci les forums) : j'ai dû apprendre sur le tas et je n'ai pas toutes les bases.

Cliquez pour agrandir...

Robert à dit:

Bonjour Toho et bienvenu, bonjour le forum,

Peut-être comme ça :

Code:

Sub Macro1()
Dim cel As Range
Dim e As Integer
Dim d As Double

For Each cel In Range("E5").CurrentRegion
   e = CInt(Split(cel.Value, ",")(0))
   d = CDbl(Left(Split(cel.Value, ",")(1), 1) / 10)
   cel.Value = e + d
Next
End Sub

Cliquez pour agrandir...

Si... à dit:

salut

@Philippe : chez moi, à condition d'avoir déclaré la variable C en Range comme le fait Robert . Si... ce n'est pas le cas ajouter .Value

Code:

Sub Macro1()
  Dim C As Range
  For Each C In Range([E5], [E5].End(xlDown))
     C = Int(C * 10) / 10
  Next
End Sub

ou

Code:

Sub Macro1()
   For Each C In Range([E5], [E5].End(xlDown))
     C.Value = Int(C * 10) / 10
   Next
End Sub

Cliquez pour agrandir...

phlaurent55 à dit:

@ Si :
Pourquoi alors avoir oublié le...

Cliquez pour agrandir...

J'essaie d'avoir les codes les plus courts et le tien, que j'avais déjà trouvé, ne fonctionne pas chez moi !

Cliquez pour agrandir...