Changer montant avec un InputBox

Bonjour,

J’ai encore besoin de votre aide.

Je voudrais changer le montant de la cellule A12 de mon tableau excel au format 1.250.36 € avec un inputBox ou autre box car ma petite macro ci-dessous ne monte pas plus haut que 255 en nombre entier. J’intègre ce petit Box dans une petite macro.

Sub Changer_Montant()

Dim Montant As Byte

Montant = InputBox("Entrez un montant", "Bienvenue")

Selection.NumberFormat = "#,##0.00 $"

Range("A12").Select

Selection.Value = Montant

End Sub

Grand merci si vous pouvez m’aider.

Eugène

Bonjour

Essaie comme ça :

Sub Changer_Montant()
    Dim Montant As Single
    Montant = InputBox("Entrez un montant", "Bienvenue")
    Range("A12") = Montant
    Range("A12").NumberFormat = "#,##0.00 $"
    Selection.Value = Montant
End Sub

Résultat ?

Bye !

Magnifique ça fonctionne impec

Grand merci

Eugène

A la relecture, je vois que je suis pourtant allé trop vite et ai oublié de supprimer la dernière instruction qui te causer des ennuis :

Sub Changer_Montant()
    Dim Montant As Single
    Montant = InputBox("Entrez un montant", "Bienvenue")
    Range("A12") = Montant
    Range("A12").NumberFormat = "#,##0.00 $"

End Sub

Bye !

gmb merçi

Eugène