Discussion :

[arcane]

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 :

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

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...

[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.

[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.

[Franc]

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 :

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

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

[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.

[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.

[Franc]

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 :

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

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

[arcane]

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 :

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

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