Discussion :

[freyliss]

Bonjour, voilà mon souci, j'ai valeur que j'ai récupéré sous ce format :

48,646.00

le problème est de le convertir en nombre afin de pouvoir faire un calcul avec cette valeur, car j'ai essayer de supprimer la virgule mais le nombre dans la cellule est à gauche et il faut que je clique sur la cellule pour qu'il se replace à droite comme un nombre, et j'aimerai éviter d'avoir à intervenir manuellement sur chaque cellule.

Voilà, merci d'avance pour vos réponses

[Thomas69]

c'est simple tu choisis le format sur toutes les cellules
donc tu cliques sur la colonne et choisis le format de cellule

[freyliss]

ben en fait non ce n'est pas si simplecar je veux ce format là
0.00
et même si je sélectionne les cellules et que je mets

Code :

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

1
2
3
 
Cells.Select
Selection.NumberFormat = "0.00"

cela ne change rien

[wilfried_42]

bonjour à tous

Voici une macro, tu la lies à un bouton et avant de cliquer le bouton tu selectionnes la plage à traiter

Code :

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

1
2
3
4
5
6
7
Sub Bouton1_QuandClic()
    Dim cel As Range
    For Each cel In Selection
        cel = cel * 1
        cel.NumberFormat = "0.00"
    Next cel
End Sub

Bonne journée

[flo_flo]

Bonjour,

C'est normal que ton NumberFormat ne fonctionne pas. Excel considère ton 48,646.00 comme du texte.

Une solution pour transformer 48,646.00 en format nombre c'est :
- supprimer la virgule (Edition => Remplacer => , par rien)
- transformer le point en virgule (idem, . => ,)

Normalement à ce moment tu obtiens une valeur numérique dans ta cellule : 48646. Il ne reste qu'à modifier cette fois le format, et à afficher en 0.00.

En code ca donne ca (fait à l'enregistreur) :

Code :

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

1
2
3
4
5
6
    Range("A1").Select
    Cells.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.NumberFormat = "#,##0.00"

[freyliss]

En suivant le code ci-dessus, aprsè le lancement de la macro :

Pour la valeur du dessus cela donne bien 48646,00 et il se situe à droite de ma cellule et est pris en compte lors du traitemant suivant qui doit additionner les valeurs par contre si j'ai une valeur du genre 38652,25 (avant conversion 38,652.25), la valeur reste à gauche et n'est pas pris en compte dans le traitement suivant.J'ai ce problème qu'avec les nombres qui avaient das chiffres après la virgule.

[flo_flo]

J'ai re-testé avec 38,652.25, ca marche de mon côté. Tu as quelle version d'Excel ?