Discussion :

[toudar]

Bonjour,

Je récupère dans un fichier une colonne nombre qui est au format texte (xxx,xxxxxxx)

Je souhaite convertir cette colonne au format nombre et j'arrive à le faire manuellement en sélectionnant les cellules qui m'intéressent et je clique la petite (cf ma capture) et cela se fait correctement.

Par contre j'enregistre une macro, le résultat n'est pas bon, Est-ce qu'il y a quelque que j'ai loupé, voici ma macro.

Merci pour votre aide et bonne journée.

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 Macro3()
' Macro3 Macro
    Range("B3:B15").Select
    Selection.NumberFormat = "0.00"
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

[patricktoulon]

bonjour
essaie cela POUR COMMENCER

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
with Range("B3:B15")
.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
.NumberFormat = "0.00"

end with

[Marc-L]

Bonjour !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With [B3:B15]
        .NumberFormat = "0.00"
        .FormulaLocal = .Value
    End With

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[toudar]

Les deux façon ont fonctionné.

Merci beaucoup à vous deux.

Bonne journée.

Amar

[patricktoulon]

Bonjour !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With [B3:B15]
        .NumberFormat = "0.00"
        .FormulaLocal = .Value
    End With

_________________________________________________________________________________________

Bonjour Marc
il doit faire un replace sur la virgule d'abords sinon le numberformat ne marche pas

[Marc-L]

Non, aucun souci Patrick ! Si tu avais testé …

[unparia]

Bonjour,
Je confirme le bien-fondé du code de Marc-L

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.FormulaLocal = .Value

agit différemment de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.value= .Value

(et pour cause).

[patricktoulon]

re
a je suis désolé de vous contredire Marc et unparia mais

si j'ai 456,254 en A1 par exemple
et que je fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 [A1] .NumberFormat = "0.00"

ca ne change rien alor formula encore moins forcement

et oui marc j'ai tester avant de dire

c'est encore le soucis du séparateur décimal si il n'est pas conforme le numberformat ne fonctionne pas

[Marc-L]

Nous sommes trois Patrick à avoir testé et cela fonctionne !
Attention : il faut que le nombre avec une virgule soit en fait considéré comme du texte …

J'ai laissé le NumberFormat dans le code parce que toudar en avait peut-être besoin mais
si le texte est dans une cellule au format Standard ou Nombre, la ligne FormulaLocal suffit à elle seule
car c'est elle qui convertit le texte en nombre et pas NumberFormat ne servant qu'à l'affichage !

Comme du reste DocMarti l'a souvent posté à plusieurs reprises sur ce forum et ailleurs …

[patricktoulon]

re
mes cellules étaient au format texte au départ
et je t'assure que un nombre décimal avec une virgule ne change pas avec numberformat
je viens de re tester
peut etre faut il inverser les deux lignes

[Marc-L]

Mama mia ‼ Oui c'est ce que j'ai pourtant clairement indiqué dans mon précédent message ! Allez, relis-le bien …

[toudar]

Bonjour,

Je confirme que cela fonctionne bien pour moi. En revanche j'ai un autre souci, j'essai de mettre la fin de ma sélection dans une variable, voici les deux exemple :

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
Sub Convertir2()
 
' Declaration de la variable pour récupérer le nombre de lignes (cellules) concernées par le formatage
    Dim Nbr_Val
    Nbr_Val = Application.WorksheetFunction.CountA(Range("A1:A" & [A65000].End(xlUp).Row))
 
' ici je voudrai remplacer B5 par B & Nbr_Val, je n'y arrive pas quelle que soit la saisie voici ci-dessous les 3 possibilités que j'ai essayé
 
'With ("B2:B" & Nbr_Val)
'With [B2:B & Nbr_Val]
'With [B2:B] & Nbr_Val
 
    With [B2:B5]
        .NumberFormat = "0.00"
        .FormulaLocal = .Value
    End With
 
 
 
End Sub

Avec la formule de Patrick cela fonctionne très bien, le remplacement par la variable

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 Convertir()
 
    Dim Nbr_Val
    Nbr_Val = Application.WorksheetFunction.CountA(Range("A1:A" & [A65000].End(xlUp).Row))
 
With Range("B2:B" & Nbr_Val)
.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
.NumberFormat = "0.00"
 
End With
 
End Sub

Merci encore à vous deux.

[Marc-L]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Convertir2()
    With Range("B2", Cells(Rows.Count, 2).End(xlUp))
        .NumberFormat = "0.00"
        .FormulaLocal = .Value
    End With
End Sub

[toudar]

et du coup ça prend toute la colonne !!! ou alors je n'ai pas compris.

ce que j'essaie de faire est peut être un peu compliqué, mettre le numéro de la ligne en variable.

Dans l'exemple de Patrick, cela fonctionne comme mis dans message précédent.

Merci encore Marc, même si cela n'est pas indispensable pour mon souci de départ.

Amar

[Marc-L]

Oui, la colonne de la cellule B2 jusqu'à la dernière saisie de la colonne B …

Une variable est utile pour la réutiliser plusieurs fois,
sinon c'est " une perte de temps et un gâchis de ressources " !

[toudar]

Oui, la colonne de la cellule B2 jusqu'à la dernière saisie de la colonne B …

Ce qui veut donc dire que la macro s'arrête à la première cellule vide, même si j'ai d'autres ligne en dessous complétée, ça m'arrange pas trop ça

[unparia]

Oui, la colonne de la cellule B2 jusqu'à la dernière saisie de la colonne B

me parait pourtant assez clair .....

[Marc-L]

Avant de poser une question, il faudrait déjà commencer par tester ‼

[toudar]

Compris les copains, pas besoin de vous énerver plus que ça, je n'avais pas eu le temps de tester...

Merci encore.

[Marc-L]

Voir la visualisation du post #11 …

Si tu as le temps de poster, tu as donc le temps de tester !