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.