Aide pour format de colonnes
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:
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 |
provisoire en attendant mieux
Bonjour,
perso j'ai utilisé ça.
Je sais c'est pas top mais ça fonctionne
a+
Code:
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 |
