convertir une string en integer

convertir une string en integer - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 26-10-2005 à 11:45:51   

Reply

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...
 
@+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed