Format dans cellules

**lafafmentvotre** · 09/07/2010, 12h19

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

**mercatog** · 09/07/2010, 12h37

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 Conversion2()
Dim Message As String, Title As String, MyValue As String
Dim plage As Range
Application.ScreenUpdating = False
 
Message = "Veuillez saisir la lettre de la colonne à analyser et convertir" & vbLf & vbLf & "Exemple : A pour la colonne A"
Title = "Analyse & Conversion"
MyValue = InputBox(Message, Title)
With Sheets("Feuil1").Columns(MyValue & ":" & MyValue)
    .Replace ".", "."  'au cas ou la virgule est un séparateur des milliers
    .Replace ",", "."
    .NumberFormat = "#.##0"
End With
End Sub

**lafafmentvotre** · 09/07/2010, 12h49

Hello

Merci pour la réponse.
Cela ne fonctionne pas tout à fait.

La cellule exemple d'origine est : 16,159
C'est ce nombre qui est affiché dans la cellule et dans la barre de formule.

Après application de la macro, le nombre affiché dans la cellule est 16 et celui affiché dans la barre de formule est 16,159.