Transformation d'une cellule en VBA

bocman -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,

je voudrai savoir si il est possible en vba de garder la valeur numérique d'une cellule qui contient une valeur plus du texte exemple la cellule A1 contient 5,5ml je voudrais que dans la cellule B1 il n y ait que 5.5

1 réponse

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour

    quelque chose comme ça?

    Public Sub extraitnombre()
    Dim c As Range
    Dim v
    For Each c In Selection
      v = c.Value
      v = Replace(v, ",", ".")
      v = Val(v)
      c.Value = v
    Next c
    End Sub

    bonne suite
    0