Je voudrais passer de 3900 a 39.00€

Bonsoir à tous, je reviens avec mes petits problemes donc voici le 1er :

J'ai tout une colonne ou j'ai des nombres sans virgule ex

390

3900

49000

3.90

39.00

490.00

et j'aimerai les passer en nombre avec 2 decimales

J'ai penser a faire une macro c'est a dire diviser par 100 puis faire un coller mais peut etre qu'il y a un autre moyen.

Merci

Mb

Bonsoir,

Tu sélectioones toute ta colonne

Tu vas dans :

Format - Cellules et nombres puis tu choisis le nombre de décimales ! !

Bonsoir

Tu met 100 dans une cellule, tu copie cette cellule.

Tu selectionne toutes les cellules que tu veux modifier et tu fais un collage special "division"

Bonsoir

....et quand tu as fini la manip indiquée par CB60, tu vas dans "Format" "Cellules" "Nombres"; tu sélectionnes "Monétaire" et dans les formats proposés, tu choisis €

Cordialement

serge06 a écrit :

Bonsoir,

Tu sélectioones toute ta colonne

Tu vas dans :

Format - Cellules et nombres puis tu choisis le nombre de décimales ! !

Merci serge mais si je fais ca ca va me rajouter 2 chiffres

390.00

pas

3.90

Ou alors je fais mal les choses !

Bonne soirée

mb

CB60 a écrit :

Bonsoir

Tu met 100 dans une cellule, tu copie cette cellule.

Tu selectionne toutes les cellules que tu veux modifier et tu fais un collage special "division"

Merci CB60 je vais voir cela mais j'ai 100.000 ref et queslques fois un peu plus ou un peu moins et donc ca va me faire des 000 en pagaille.

Bonne soirée

mb

Bonsoir,

je comprend pas trop ta derniere remarque??

tu souhaitais bien diviser un ensemble de cellule par 100, cette methode te permet de le faire en une seul fois.

Re bonsoir CB60

Ce n'est pas du tout une remarque mais une indication

Bonne soirée

mb

Bonsoir à tous,

aussi : avec le début de liste en B5 (à adapter)

Sub Format()
''Macros par Claude Dubois pour "Mboules" Excel-Pratique le 4 Fév.09
'' 1ère cellule de la liste en B5
Dim DerLig As Long
Dim i As Long
    DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
        For i = 5 To DerLig
            With Range("b" & i)
                .Value = .Value / 100
                .NumberFormat = "#,##0.00 $"
            End With
        Next i
End Sub

amicalement

Claude.

Bonsoir Claude,

Un grand BRAVO et un grand MERCI

C'est nickel chrome.

Bonne soirée

Mb

re,

Mboules, prends la bonne habitude de solder tes fils en mettant le petit "résolu"

en étant connecté

tu en as plusieurs comme çà !

merci

Claude.