Discussion :

[colbubu]

bonjour a tous

voila je developpe actuellement une macro sous vba excel et je me trouve coincé

je dois transformer un .csv en tableau excel donc jusque la pas de probleme je l ouvre en excelle et je sépare les données en rehcerchant les virgules


mais maintenant que j ai mes nombres dans chaque cellule (sous forme de texte car il n'y a pas de virgule mais des points)

je cherche a remplacer ces fameux points par des virgules mais excel n'y arrive pas

il ne trouve pas les points et meme quand je le fait sans macro il refuse est ce que vous avez une idée d'ou viens le probleme

voici mon bout de code au cas ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Cells.Replace What:=".", _
    Replacement:=",", LookAt:= _
    xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

merci de votre aide

[larryj]

Bonjour,

Il est préférable d'utiliser la conversion de données (Menu Données > Convertir). Pour le faire via une macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'Remplacer "Selection" par la plage de cellule où sont stockées les données    
Selection.TextToColumns _
        Destination:=Range("A3"), _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, _
        Tab:=False, _
        Semicolon:=False, _
        Comma:=True, _
        Space:=False, _
        Other:=False, _
        TrailingMinusNumbers:=True