XL 2016 VBA - Valeur 1.0 donne 1

pierrejean

XLDnaute Barbatruc

• 28 Mai 2020

• #2

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

 

Vote positif 0 Vote négatif

R

Remteyss

XLDnaute Junior

• 28 Mai 2020

• #3

Bonjour pierrejean,

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Mai 2020

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Mai 2020

• #5

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.

 

Dernière édition: 28 Mai 2020

Vote positif 0 Vote négatif

Solution

R

Remteyss

XLDnaute Junior

• 28 Mai 2020

• #6

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

Voici le code modifié si ça peut servir :

VB:

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

Bonne fin de journée 😉

 

Vote positif 0 Vote négatif