Format dans cellules

Version imprimable

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:

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

Code:

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

09/07/2010, 12h49
lafafmentvotre

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.
09/07/2010, 13h48
mercatog

Tu as sur ton poste le séparateur décimal est le point ou la virgule?
09/07/2010, 13h56
lafafmentvotre

Hello

La virgule
09/07/2010, 15h57
mercatog

Si tu mettais un extrait de ton fichier; j'ai testé (avec la virgule comme séparateur décimal) ci-joint aperçu.
09/07/2010, 16h03
lafafmentvotre

1 pièce(s) jointe(s)

Hello

Voici un extrait des données réceptionnées

Modifie

Code:

1
2
3
4
With Sheets("Feuil1").Columns(MyValue & ":" & MyValue)
    .Replace ".", ""  'au cas ou la virgule est un séparateur des milliers
    .NumberFormat = "#.##0"
End With

Hello

Désolé pour ma réponse tardive.
Cela fonctionne à merveille.
Merci

Par contre dernière question, si possible, j'ajoute une colonne avant la lettre de ma colonne définie par l'input (MyValue).
Comment puis-je faire en sorte de diviser par 1000 la valeur de chaque valeur de la colonne MyValue dans cette colonne.

Exemple : Si MyValue=H, après application de la macro elle passe à I car ajout d'une nouvelle colonne en H. Puis, si une valeur est détectée en I (ex : I10) alors H10 sera égal à I10/1000.

Merci par avance pour l'aide ou les conseils.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Conversion2() On Error Resume Next 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 ""Utilis. libre"" à analyser et convertir" & vbLf & vbLf & "Exemple : A pour la colonne A" Title = "Analyse & Conversion" MyValue = InputBox(Message, Title) With Columns(MyValue & ":" & MyValue) .Replace ".", "" 'au cas ou la virgule est un séparateur des milliers .NumberFormat = "# ##0" End With Columns(MyValue & ":" & MyValue).Select Selection.Insert Shift:=xlToRight End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim Message As String, Title As String, MyValue As String
Dim LastLig As Long, i As Long
Dim T()
Application.ScreenUpdating = False
 
Message = "Veuillez saisir la lettre de la colonne ""Utilis. libre"" à analyser et convertir" & vbLf & vbLf & "Exemple : A pour la colonne A"
Title = "Analyse & Conversion"
MyValue = InputBox(Message, Title)
If MyValue <> vbNullString Then
   With Sheets("Feuil2")
      On Error Resume Next
      LastLig = .Cells(Rows.Count, MyValue).End(xlUp).Row
      On Error GoTo 0
      If LastLig > 0 Then
         With .Range(MyValue & "2:" & MyValue & LastLig)
             .Replace ".", ""
             .NumberFormat = "# ##0"
             ReDim T(1 To LastLig)
         End With
         T = Application.Transpose(.Range(MyValue & "2:" & MyValue & LastLig))
         For i = 1 To UBound(T)
            On Error Resume Next
               T(i) = IIf(IsNumeric(T(i)), T(i) / 1000, T(i))
            On Error GoTo 0
         Next i
         .Range(MyValue & "2:" & MyValue & LastLig).EntireColumn.Insert
         .Range(MyValue & "2:" & MyValue & LastLig).Value = Application.Transpose(T)
      End If
   End With
End If

12/07/2010, 14h30
lafafmentvotre

Super, après quelques modifications pour adapter, cela fonctionne à merveille.

Merci énormément