Sub Macro1()
Dim X As Long
For X = 1 To [A65536].End(xlUp).Row
With Range("A" & X)
If IsNumeric(Range("A" & X)) Then
.NumberFormat = "###"" ""###"" ""###"
.Value = CLng(.Value)
End If
End With
Next X
End Sub
Excel ne reconnaît pas l'apostrophe en début de valeur : pour lui, ça veut juste dire que la valeur qui suit est au format texte
A+
Re : Macro pur supprimer un élément dans plusieurs celulles
Bonsoir Papinou, Gorfael, Wilfried
ET une autre, une
Code:
Sub papinou()
Range("IV1") = 1
Range("IV1").Copy
With Range("A1:A" & Range("A65536").End(xlUp).Row)
.PasteSpecial Operation:=xlMultiply
.NumberFormat = "###,###,###"
End With
Range("IV1").Clear
End Sub