Bonjour,
Je me suis inspiré de codes trouvés sur le net pour remplacer mes "." par des "," dans mes cellules mais le code bugge encore!
Le voici:
Quelqu'un pourrait m'aider svp?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub RemplacePointParVirgule() 'Variables Dim i As Integer Dim N As Integer 'Selection de la plage de données N = WorksheetFunction.CountA(Columns("f:f")) For i = 1 To N Cells(i, 6).Text = Replace(Cells(i, 6).Text, ".", ",") Next End Sub
Merci d'avance!![]()
Partager