Bonjour,
J'ai une colonne de données à convertir en format numérique sans décimale, mais le code que j'utilise usuellement ne fonctionne plus, je ne comprends pas pourquoi...
je vous joins les données , merci bien de corriger mon erreur 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
15
16 Sub MEF() Dim nblignetot As Long nblignetot = Range("A" & Rows.Count).End(xlUp).Row For Each cell In Range("A3:A" & nblignetot) cell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False cell.Value = CDbl(cell.Value) cell.NumberFormat = "0" Next cell End Sub
Partager