Format celluleRésolu

Question

Bonjour,

j'ai fait un code vba sur excel qui me rentre une nouvelle ligne à chaque fois que j'exécute le programme. mon problème c'est que les cellules ne prennent pas automatiquement le format souhaité, à savoir:
- nombre pour: montantpret, taux et nbreecheances
- date pour: datedeblocage

voici le code que j'ai fait:

Private Sub CmdOK_Click()

Dim Montantpret As Double
Dim Datedeblocage As Date
Dim Taux As Integer
Dim Remboursement As String
Dim Nbreecheances As Integer

    Sheets("SGBBE").Select
    ActiveSheet.[AA].Select
    Selection.End(xlDown).Select
        If Selection.Address = "$A$65536" Then
            Range("AA").Offset(1, 0).Select
        Else
            Selection.Offset(1, 0).Select
        End If
    ActiveCell.Value = UserForm1.Montantpret
    ActiveCell.Offset(0, 1).Value = UserForm1.Datedeblocage
    ActiveCell.Offset(0, 2).Value = UserForm1.Taux
    ActiveCell.Offset(0, 3).Value = UserForm1.Remboursement
    ActiveCell.Offset(0, 4).Value = UserForm1.Nbreecheances
Unload Me

End Sub

je sais pas ce qu'il faut que je fasse, donc merci d'avance si quelqu'un pouvait m'aider... et c'est possible qu'il y ait automatiquement le signe % qui s'affiche après la valeur du taux?

tubafat · Accepted Answer

ActiveCell.Value = UserForm1.Montantpret.value
ActiveCell.NumberFormat = "#,##0"
ActiveCell.Offset(0, 1).Value = UserForm1.Datedeblocage.value
ActiveCell.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
ActiveCell.Offset(0, 2).Value = UserForm1.Taux.value
ActiveCell.Offset(0, 2).NumberFormat = "0.00%"
ActiveCell.Offset(0, 3).Value = UserForm1.Remboursement.value
ActiveCell.Offset(0, 4).Value = UserForm1.Nbreecheances.value
ActiveCell.Offset(0, 4).NumberFormat = "#,##0"

J'ai testé ça marche pour moi... 

Tubafat 
P

JM247L · Answer

Quand tu ajoutes une nouvelle ligne pourquoi ne pas faire un copier collage spéciale format de la ligne précédente

JML
 Partageons notre savoir et nos acquis

cs_etniqs · Answer

?? 
je ne vois pas où tu ajoutes une ligne dans ce code
???

tubafat · Answer

Bonjour,
si tu veux qu'il prenne automatiquement le format souhaité faudrait peut-être déjà lui dire le format souhaité...

Par exemple:
    ActiveCell.Value = UserForm1.Montantpret
    ActiveCell.NumberFormat = "0.00"
    ActiveCell.Offset(0, 1).Value = UserForm1.Datedeblocage
    ActiveCell.Offset(0, 1).NumberFormat = "m/d/yyyy"
...

De plus, fais attention où tu postes tes messages, il y a une section dédiée uniquement au VBA, penses-y la prochaine fois.

Tubafat

Landoltp · Answer

ok merci bcp, ça joue pour le format de la date mais ai encore un problème pour celui des nombre...

tubafat · Answer

Peux-tu préciser ton problème pour les nombres?
C'est le format qui ne convient pas, ou ça ne fonctionne pas?

Tubafat

Landoltp · Answer

j'ai fait ça:

ActiveCell.Value = UserForm1.Montantpret
        ActiveCell.NumberFormat = "#,##0"
    ActiveCell.Offset(0, 1).Value = UserForm1.Datedeblocage
        ActiveCell.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
    ActiveCell.Offset(0, 2).Value = UserForm1.Taux
        ActiveCell.Offset(0, 2).NumberFormat = "0.00%"
    ActiveCell.Offset(0, 3).Value = UserForm1.Remboursement
    ActiveCell.Offset(0, 4).Value = UserForm1.Nbreecheances
        ActiveCell.Offset(0, 4).NumberFormat = "#,##0"

celle pour la date c'est bon, le problème est que pour les 3 autres ça me met toujours la note "nombre stocké sous forme de texte" sous excel... j'arrive pas à trouver le problème.
merci de ton aide

Landoltp · Answer

ça marche, merci beaucoup

Format cellule

8 réponses

Votre réponse

Discussions similaires