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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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é
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
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