Bonjour

J'ai un petit soucis de fonctionnement pour modifier le format de cellules.

Mon fichier Excel a des cellules au format standard avec des virgules en séparateur de milliers.

J'ai une macro qui me demande quelle colonne est concernée mais lorsque j'exécute, je n'ai pas le résultat escompté (les virgules sont toujours apparentes dans la barre e formule et il ne m'affiche pas la totalité du chiffre).

Voici ma macro :
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
Sub Conversion2()
On Error Resume Next
Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Veuillez saisir la lettre de la colonne à analyser et convertir" & vbLf & vbLf & "Exemple : A pour la colonne A"
' Définit le titre.
Title = "Analyse & Conversion"
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title)
Dim plage As Range
'Dim L As Integer, lig As Integer, i As Byte
Application.ScreenUpdating = False
Columns(MyValue & ":" & MyValue).Select
Selection.NumberFormat = "#,##0"
Range(MyValue & "1").Select
Columns(MyValue & ":" & MyValue).Select
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range(MyValue & "1").Select
Application.ScreenUpdating = True
End Sub
Pourriez-vous m'aider ?

Merci