Formater une cellule

[nougitch]

Bonjour,

J'aimerais créer un boucle qui me transforme un nombre du type 1234567,8 en 1 234 567,80.

Pour cela, j'ai tenté avec quelque chose du genre qui ressmeble à ça

Dim Variable As Integer
     Range("K2:K41").Select
     For Each Cellule In Selection
          Variable = Cellule.Value
          Cellule.Value = Format(Variable, "# ##0.00")
     Next

Mais rien.
Je vous remercie pour votre aide.

 

[wilfried_42]

Re : Formater une cellule

bonjour nougitch

le vba n'est pas necessaire pour cela

tu selectionne K2 à K41, click droit : Format cellule --> Comptabilité

 

[ChTi160]

Re : Formater une cellule

Salut nougitch
Bonjour wilfried_42

ou alors tu peux utiliser

Sub test()
 
    Range("A2:A41").NumberFormat = "# ### ##0.00"
   
End Sub

ou ceci pour tenir compte de l'ajout de données

 Sub test()
Dim Derligne As Integer
With Worksheets("Feuil1")
     Derligne = .Range("A65536").End(xlUp).Row
                   .Range("A2:A" & Derligne).NumberFormat = "# ### ##0.00"
End With
End Sub

Bonne fin de Journée

 

[nougitch]

Re : Formater une cellule

Salut Wilfried,

Merci pour ta réponse.
Ceci dit, je souhaite que le formatage se fasse à chaque lancement de la macro.
Donc VBA oblige.

++

 

[nougitch]

Re : Formater une cellule

Hey le ch'ti, merci pour ta réponse !
C'est exactement ce qu'il me fallait 🙂

++
Un ch'ti expatrié !

 

[wilfried_42]

Re : Formater une cellule

re:

voici la reponse : cel.NumberFormat = "# ##0.00"

hic: Bonjour jean marie, content de te lire