convertir une string en integer - VB/VBA/VBS - Programmation
Marsh Posté le 26-10-2005 à 19:06:42
Dejà le 0,25 est un Double....
Mais bon..
Dim MyStr As String
Dim TmpStr As String
Dim Lenght As Integer
Dim Out As Double
Range("A1" ).Select
MyStr = Range("A1" ).Value ' Recup de la valeur
Lenght = Len(MyStr) ' Compte la longueur
For i = 1 To Lenght
If (Mid(MyStr, i, 1) <> Chr(34)) Then ' Si j'ai un " je passe
' Sinon je fabrique ma nouvelle chaine juste avec ce que je veux
TmpStr = TmpStr & Mid(MyStr, i, 1)
' Et je convertis le tout en double !
Out = CDbl(TmpStr)
End If
Next i
Avec ça ça devait aller...
@+
Marsh Posté le 26-10-2005 à 11:45:51
Bonjour,
Je travaille sur une macro Excel qui travaille en entrée avec un fichier csv ...
Je voudrais récupérer un nombre dans une case qui est de la forme : "0.25"
Mais malheureusement comme il y a un espace avant et après cette information quand je fais Cells(x, y).Value j'obtiens : " "0.25" " et je n'arrive pas à manipuler la chaine pour obtenir uniquement le 0.25 en integer.
Si quelqu'un pouvait m'aider
Merci