Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Transformer Txt en numérique

1 réponse
Avatar
A QUEMENER
Bonjour à tous,

Je souhaite transformer des valeurs "texte" en numérique.
Mais j'ai un problème car ldans ma sélection il y a seulement la dernière
cellule qui passe en numérique.
Quelqu'un peut-il m'aider à résoudre le problème ?
Voici le code que j'utilise:

Public Sub TxtNum()
Dim Valeur
For Each cellule In Selection
On Error Resume Next
If cellule.Value <> "" Then
Selection.NumberFormat = "General"
Selection.Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Find(What:=" ", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False) _
.Activate
cellule.Value = cellule.Value * 1
End If
Next

End Sub

Merci
andré

1 réponse

Avatar
Modeste
Bonsour® A QUEMENER
essaie en ajoutant cette substitition :
Selection.Replace What:=Chr(0160), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
'----------- Explication :
'----------- chr(0160) est l'espace insécable utilisé comme séparateur de
milliers
'----------- par de nombreux SGBD

@+


Bonjour à tous,

Je souhaite transformer des valeurs "texte" en numérique.
Mais j'ai un problème car ldans ma sélection il y a seulement la
dernière cellule qui passe en numérique.
Quelqu'un peut-il m'aider à résoudre le problème ?
Voici le code que j'utilise:

Public Sub TxtNum()
Dim Valeur
For Each cellule In Selection
On Error Resume Next
If cellule.Value <> "" Then
Selection.NumberFormat = "General"
Selection.Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Cells.Find(What:=" ", After:¬tiveCell, LookIn:=xlFormulas,
LookAt:= _ xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext,
MatchCase:úlse) _
.Activate
cellule.Value = cellule.Value * 1
End If
Next

End Sub

Merci
andré