pb , et . en vba ?

[fifi]

bonjour le forum,
j'ai un pb de vba :s

après importation d'un fichier texte, j'ai des séparateurs décimaux notés avec des points. Excel reconnait donc pas les valeurs.

quand je fais un remplacer : point par virgule via le menu CTRL+H , il n'y pas de pb mais quand j'utilise l'engistreur de macro, cela ne fonctionne pas correctement. Des points sont carrément supprimés, ce qui me donne des valeurs de l'odre du million :s.


j'utilise ce code.

Sheets("table").Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


il y a possibilité d'éviter ce problème?

 

[Catrice]

Re : pb , et . en vba ?

Bonjour,

Tu peux essayer ceci :

Sub Test1()
Selection.TextToColumns Destination:=Selection, DecimalSeparator:=".", TrailingMinusNumbers:=True
End Sub
Il faut que les données soient sur une seule colonne.

Ou bien pour une selection plus large :

Sub Test2()
For Each X In Selection
MaVar = Split(X, ".")
If UBound(MaVar) > 0 Then X.Value = CDbl(MaVar(0) & "," & MaVar(1)): X.NumberFormat = "General"
Next
End Sub

ou

Sub Test3()
For Each X In Selection
If X <> "" Then X.Value = CDbl(Replace(X.Value, ".", ",")): X.NumberFormat = "General"
Next
End Sub

 

[fifi]

Re : pb , et . en vba ?

Merci catrice pour tes réponses.
pour le moment la 3éme fonctionne correctement, merci beaucoup .D

Bonjour,

Tu peux essayer ceci :

Sub Test1()
Selection.TextToColumns Destination:=Selection, DecimalSeparator:=".", TrailingMinusNumbers:=True
End Sub
Il faut que les données soient sur une seule colonne.

Ou bien pour une selection plus large :

Sub Test2()
For Each X In Selection
MaVar = Split(X, ".")
If UBound(MaVar) > 0 Then X.Value = CDbl(MaVar(0) & "," & MaVar(1)): X.NumberFormat = "General"
Next
End Sub

ou

Sub Test3()
For Each X In Selection
If X <> "" Then X.Value = CDbl(Replace(X.Value, ".", ",")): X.NumberFormat = "General"
Next
End Sub

 

[job75]

Re : pb , et . en vba ?

Bonjour fifi, salut Catrice,

Sinon fifi, dans votre macro, faites remplacer le point par... le point !

A+

 

[fifi]

Re : pb , et . en vba ?

Bonjour fifi, salut Catrice,

Sinon fifi, dans votre macro, faites remplacer le point par... le point !

A+

A pourquoi pas ^^ c'est tellement logique . : D

d'ailleurs peut on avec excel changer les paramètres régionaux ?