Discussion :

[toto92]

Bonsoir

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    With Worksheets("T_Numero_Compte").Range("A1")
         .Offset(0, 0).Value = "Numero Compte"
         .Offset(1, 0).Value = "1111111E020"
   End With

j'obtiens toujours "1,11E+26"
Comment faire pour empecher la transformation en notation scientifique ?

Merci

[ZX12R]

Bonjour,

Peut être qu'appliquer préalablement à ta cellule un format texte devrait suffire !

Cordialement.

Bruno

[GGEREMMY]

Bonsoir
je pense que remplacer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

         .Offset(1, 0).Value =  "1111111E020"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Offset(1, 0).Value = "'" & "1111111E020"

c'est à dire concaténer une simple quote ' (Guillemet single quote) avec la valeur devrait fonctionner

Cordialement

[ZX12R]

D'accord avec notre ami,

Une saisie précédée du caractère ' force le mode texte.

et sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveCell.NumberFormat = "@"
    ActiveCell = "11111111111E20"

le fait aussi.

Tu vois...

Cordialement.

Bruno

[toto92]

Bonne soirée !