Macro VBA : Remplacer un caractère par un autre

Version imprimable

Bonjour,
Je voudrais faire une action simple : remplacer les , par un . sur toute une colonne.
Cela fonctionne très bien quand je le fais à la main ou même en enregistrement de la macro, mais cela ne fonctionne pas si j'exécute ma macro ensuite.
Le code :
Code:

1 2 3 4 Columns("K:K").Select Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Et une fois que j'ai exécuté la macro (qui n'a pas fonctionné) si j'essaye de le refaire à la main, cela ne fonctionne plus.

Je sèche...

10/11/2023, 12h32
Tête de chat

Bonjour,

Une piste possible : tes données sont des textes ou des numériques ?
Parce que si ce sont des nombres, ça ne fonctionnera pas puisque la virgule n'est qu'un attribut d'affichage.
10/11/2023, 15h21
arcane

Bien vu, le source est au format spécial et je le transformais en nombre 0.00
Je le transforme maintenant en standard.
Le remplacement manuel fonctionne, y compris après l'exécution de la macro.
En revanche, l'exécution de la macro ne fonctionne toujours pas.
Pourtant, l'enregistrement de la macro qui me donne ce code fonctionne bien.

Bonjour, voici une macro qui fait le job. Attention, ça ne fonctionnera que si le "." est le séparateur décimal défini dans les options Excel.
En effet, comme ce sont des nombres, si dans tes options le séparateur est "," la macro n'aura aucun effet.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub RemplacerVirgulesParPoints()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
 
    ' Spécifiez le nom de votre feuille de calcul
    Set ws = ThisWorkbook.Sheets("Feuil1")
 
    ' Trouvez la dernière ligne utilisée dans la colonne K
    lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
 
    ' Parcourez chaque cellule dans la colonne K jusqu'à la dernière ligne utilisée
    For Each cell In ws.Range("K1:K" & lastRow)
        ' Vérifiez si la cellule n'est pas vide
        If Not IsEmpty(cell.Value) Then
            ' Remplacez la virgule par un point dans le format 0.00
            cell.Value = Replace(cell.Value, ",", ".")
            cell.NumberFormat = "0.00"
        End If
    Next cell
End Sub

13/11/2023, 10h03
arcane

Le paramètre régional de l'ordi est ,
Ce qui me dépasse, c'est que si je le fais manuellement, le remplacement fonctionne.
Si je passe en mode texte, je m'affranchis donc des nombres, c'est pareil : manuellement cela fonctionne, automatiquement non. Avec la même fonction.

Si je fais du pas à pas, je vois bien le moment de la conversion, c'est bien la fonction selection.replace qui modifie en prenant le paramètre régional.

Au passage, si je passe les paramètres régionaux en . la macro fonctionne bien en automatique.
Donc si je mets un type de données texte, le type n'est pas réellement pris en compte par excel.

Il faudrait que la macro prenne le texte comme du texte et non comme un nombre.
Je cherche dans ce sens.
13/11/2023, 11h24
Tête de chat

Bonjour,

je redis : pour que ça marche il faut que les données soient des textes...

Donc par exemple '123,45 et pas 123,45 (pas seulement un nombre avec format Standard).

Comme tu l'as remarqué, dans le VBA il faudrait remplacer le ',' de la recherche par le '.' (VBA est indécrottablement en anglais, dans la cas d'un numérique il lit 123.45 - en fait il transforme le nombre en chaine avant de faire le remplacement). Donc du coup il faudrait remplacer '.' par '.', sauf que le résultat 123.45 étant interprété comme un numérique, il reste numérique et donc affiché 123,45.

Si dans ton code tu fais un remplacement de "." par ";" (par exemple) tu verras que ça marche.

Vois si ceci te convient, j'arrondis d'abord les nombres à 2 décimales, je formate en texte et ensuite je remplace le caractère.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub RemplacerVirgulesParPoints()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
 
    ' Spécifiez le nom de votre feuille de calcul
    Set ws = ThisWorkbook.Sheets("NomDeVotreFeuille")
 
    ' Trouvez la dernière ligne utilisée dans la colonne K
    lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
 
    ' Parcourez chaque cellule dans la colonne K jusqu'à la dernière ligne utilisée
    For Each cell In ws.Range("K1:K" & lastRow)
        ' Vérifiez si la cellule n'est pas vide
        If Not IsEmpty(cell.Value) Then
            ' Arrondi à 2 décimales et utilisez la fonction Format pour afficher avec deux décimales
            cell.Value = Format(Round(cell.Value, 2), "0.00")
            ' Changez le format de la cellule en texte
            cell.NumberFormat = "@"
            ' Remplacez la virgule par un point
            cell.Value = Replace(cell.Value, ",", ".")
        End If
    Next cell
End Sub

J'ai fait des quantités de tests.
Cela fonctionne bien en mode texte.
Le problème est que quand j'ajoute un caractère pour "forcer" le type en texte, je remplace la , par . et qu'après j'enlève ce caractère, Excel remplace mon . par la ,

Avec ce que tu dis, je teste la ' en début et là, ca fait bien ce que je veux. C'est bien le caractère qu'il me manquait : quand je retransforme en texte, le . reste bien et le ' disparait (sans que je l'enlève !)

Je mets quand même mon bout de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ' ####### Colonne K : Modifier le type (enlever €) et remplacer , par . ' Note : Ajouter une ' en début de cellule pour forcer le type à texte Columns("K:K").Select Application.CutCopyMode = False Columns("L:L").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("K1").Select Selection.Copy Range("L1").Select ActiveSheet.Paste Range("L2").Select Selection.NumberFormat = "General" ActiveCell.FormulaR1C1 = "=CONCATENATE(""'"",RC[-1])" Selection.AutoFill Destination:=Range("L2:L" & Range("E2").End(xlDown).Row) Columns("L:L").Select Selection.NumberFormat = "@" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 Columns("K:K").Select Selection.Delete Shift:=xlToLeft
Merci