Discussion :

[tico06]

Bonjour a tous,

J'ai un petit soucis avec le format de colonnes de mon tableau.
Ce tableau se remplit grâce a une moulinette Autocad.
Le problème que je rencontre est que dans certaines colonnes (D,H,I,J) j'ai des surfaces écrites de la manière suivante : '12.3 m2 donc pas possible de les utiliser pour faire des calculs.
J'ai bien réussis avec le code suivant a supprimer les m2, a remplacer le . par une , mais impossible de supprimer la "cote" devant le nombre.
Merci d'avance pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro2()
 
'Supprime m2
    Columns("D:D").Select
    Selection.Replace What:="m²", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
 
'Remplace . par ,
    Range("D:D,H:H,I:I,J:J").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
 
End Sub

[kidone]

Bonjour,
perso j'ai utilisé ça.
Je sais c'est pas top mais ça fonctionne
a+

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
'
' test Macro
'
Dim test As Variant
'
    test = Range("A1").Value
    test = test * 1
    Range("A1").Value = test
 End Sub

[tico06]

Merci pour ta réponse Kidone mais malheureusement ton code ne fonctionne pas

[Menhir]

Essaye :

Code :

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

Range("A1").Value = CDbl(Replace(Mid(Range("A1").Value, 2, InStr(Range("A1").Value, " ") - 2), ".", ","))

En faisant bien sûr une boucle sur la zone.

[tico06]

Encore merci pour ton aide cela fonctionne