Microsoft 365 VBA - Est-ce que 'D' a une signification spéciale ?

[danielco]

Bonjour,

Je viens de retrouver ce problème pour lequel je n'ai toujours pas de solution :

Dans la cellule, j'ai "3D2".

J'exécute ce code :

Sub test()
  Dim cellule As Double
  cellule = ActiveCell.Value
  Debug.Print ActiveCell.Value
  Debug.Print cellule
End Sub

J'obtiens comme résultat dans la fenêtre d'exécution:

3D2
300

Quelqu'un a-t-il une explication ?

Merci d'avance.

 

[crocrocro]

bonjour @danielco
dans votre macro si vous mettez directement
cellule = 3D2
cellule = 3D3
la valeur est automatiquement transformée en
cellule = 300#
cellule = 3000#
et dans la fenêtre d'exécution
300
3000.
En conclusion, D est interprété comme puissance de 10.
Une surprise pour moi aussi
si Cellule n'est pas déclarée en format numérique (Integer, Double ...)
par exemple Dim Cellule (considérée alors comme variant) , le debug affiche 3d2

 

[Dranreb]

Bonsoir.
J'ai de vagues souvenirs où D était utilisé en Fortran au lieu de E pour éditer des nombres en précision étendue.
Pour accepter des textes venant de telles sources, son interprétation comme annonciateur d'un tel exposant aurait toujours été conservée.

 

[danielco]

bonjour @danielco
dans votre macro si vous mettez directement
cellule = 3D2
cellule = 3D3
la valeur est automatiquement transformée en
cellule = 300#
cellule = 3000#
et dans la fenêtre d'exécution
300
3000.
En conclusion, D est interprété comme puissance de 10.
Une surprise pour moi aussi
si Cellule n'est pas déclarée en format numérique (Integer, Double ...)
par exemple Dim Cellule (considérée alors comme variant) , le debug affiche 3d2

Bonjour,
Merci pour ta réponse.
Daniel

 

[Nain porte quoi]

Hello,

surprise pour moi aussi avec le D, mais je savais que ça faisais ça avec le E "3E2" 3 exposant 2

 

[Cousinhub]

Hi,
Excel se réserve des zones de confort...
Essayez de nommer une plage de cellule commençant par C suivi immédiatement par un chiffre (ex : C124klm) ou R comme (r1de9)
Bon courage
PS, "C" est vu par Xcel comme "Column", et "R" comme "Row", donc univers protégé

 

[TooFatBoy]

Bonjour,

Je viens de retrouver ce problème pour lequel je n'ai toujours pas de solution

Une solution serait peut-être de ne pas déclarer en Double une variable devant recevoir du texte.

 

[Dranreb]

Une variable déclarée As Double ne peut recevoir qu'un nombre binaire virgule flottante double précision (64 bits dont 1 pour le signe, 11 pour l'exposant de puissance de 2, et 52 pour la mantisse). Si on tente de lui affecter une donnée d'un autre type il s'efforcera de la convertir en une donnée Double avant de l'y affecter. Forcément si c'est un String, diverses conventions connues et méconnues seront appliquées …

 

[mapomme]

J'ai de vagues souvenirs où D était utilisé en Fortran au lieu de E pour éditer des nombres en précision étendue.
Pour accepter des textes venant de telles sources, son interprétation comme annonciateur d'un tel exposant aurait toujours été conservée.

Bonjour @Dranreb😉

Le Fortran: ça me rappelle d'anciens souvenirs ensevelis bien profondément. Une petite cure de jouvence en quelque sorte. pour ma pomme.

 

[danielco]

Bonjour,


Une solution serait peut-être de ne pas déclarer en Double une variable devant recevoir du texte.

Bonjour,
C'est bien sûr un cas d'école. En réalité, "cellule" représente successivement les cellules d'une colonne censée être numérique. La question n'est pas tant de rappeler les bonnes pratiques (même si ça peut être utile) que d'expliquer le résultat.
Daniel

 

[Dranreb]

Vous l'avez là, l'explication, n'est ce pas ?
Pour éviter de prendre des String qui, à défaut de significations spéciales de certains caractères, pourraient donner lieu à une incompatibilité de type, faites :

If VarType(ActiveCell.Value) = vbDouble Then cellule = ActiveCell.Value

 

[TooFatBoy]

La question n'est pas tant de rappeler les bonnes pratiques (même si ça peut être utile) que d'expliquer le résultat.

Il ne s'agit pas de "bonnes pratiques", mais de simple logique.

En réalité, "cellule" représente successivement les cellules d'une colonne censée être numérique.

Comme quoi, on n'est jamais assez prudent lors de la vérification des saisies : une bonne vérification aurait évité d'avoir du texte dans la colonne.



Sur ce, bonne soirée à tous.
🖖

 

[danielco]

Il ne s'agit pas de "bonnes pratiques", mais de simple logique.



Comme quoi, on n'est jamais assez prudent lors de la vérification des saisies : une bonne vérification aurait évité d'avoir du texte dans la colonne.



Sur ce, bonne soirée à tous.
🖖

Absolument d'accord. On évite le problème. Ca ne l'explique cependant pas.

 

[Dranreb]

Que n'avez vous encore compris ?

Sub test()
   MsgBox CDbl("123456789D-6")
   End Sub

Affiche 123,456789
De toute évidence "D" est considéré comme annonçant une puissance de 10 au même titre que "E".
Que voulez vous savoir de plus ?