XL 2016 VBA - Valeur 1.0 donne 1

[Remteyss]

Bonjour le forum,

Quelqu'un saurait t-il me dire pourquoi lorsque l'on donne une valeur String "1.0" à une cellule en VBA, alors la valeur 1 apparaît ?

Sub test()
    ActiveWorkbook.Worksheets("Feuil1").Cells(1, 1).Value = "1.0"
End Sub

Alors que si on écrit directement "1.0" dans la cellule, cela affiche bien 1.0 ?

Merci par avance 😉

 

[pierrejean]

Bonjour Remteyss
Peut-être parce que le format n'est pas TEXTE

 

[Remteyss]

Bonjour pierrejean,

Merci pour ton retour. C'est-à-dire ? 😀
Le format n'est pas TEXTE si j'écris la valeur sans "" non ?

 

[pierrejean]

Re
Il s'agit du format de la cellule qui doit être en TEXTE
les "" ne suffisent pas !!!

 

[Dranreb]

Bonjour.
Je pense que la cellule A1 de la Feuil1 a un format Standard et que dans ce cas Excel se sent autorisé à y mettre autre chose que ce qu'on lui dit d'y mettre, ce que personnellement je déplore. Ainsi donc s'il s'agit d'un texte convertible en nombre il effectue préalablement cette conversion. Après, ce nombre y est affichée selon le format Standard.
Édition: Cependant si vous mettiez une apostrophe au début de la constante String il l'enregistrerait toujours en texte.

 

[Remteyss]

D'accord je vois !
Merci à vous deux @pierrejean et @Dranreb
Après modification, ça fonctionne !

Voici le code modifié si ça peut servir :

Sub test()
    With ActiveWorkbook.Worksheets("Feuil1").Cells(1, 1)
        .NumberFormat ="@"
        .Value = "1.0"
    End with
End Sub

Bonne fin de journée 😉