Discussion :

[bakounine]

Bonsoir ,

J’ai un souci avec une macro en VBA.

En effet , celle-ci calcule et valorise des cellules dans une feuille Excell (C’est basique).

Ces cellules ont à la base un format « Standard » (J’ai aussi testé avec "Numérique" ou "Texte").

Par contre , lors de la valorisation de certaines cellules (Pas toutes !) à une certaine valeur ( 2 ou 5 , 8 ou autre) , numérique de toute façons , le format de cette cellule passe à « Date » ou « Personnalisée » !

Et cela fausse donc toute la feuille.

Or , ceci ne se produit que sur 1 seul de mes PC sur 4….

La version Excel est la même , à savoir « Microsoft 364 MSO 32 bits ».

J’ai regardé toutes les options par défaut et je n’ai vu aucune différence entre mes PC…..

Si cela vous parle , je vous remercie de m’aider.

Bakounine

[Pierre Fauconnier]

Salut.

Sans ton code, il est malaisé de t'aider

[anasecu]

Bonsoir,

Ces cellules ont à la base un format « Standard » (J’ai aussi testé avec "Numérique" ou "Texte").

Si tu mets le FormatNumber de tes cellules au format adapté tu devrais résoudre ton souci.

[bakounine]

Bonjour ,

Pierre , pour le code , ca va être dur car il a plusieurs centaines de lignes ...

Anasecu , comment met-on un "FormatNumber" ?

J'arrive à écrire des macros en VBA car je suis programmeur à la base , par contre je suis (très !) loin d'en connaître toutes les commandes.

D'ailleurs , je suis sur que vous voyiez mes macros , cela vous ferait peur ...

Bakounine

[Pierre Fauconnier]

[...]il a plusieurs centaines de lignes[...]
je suis sur que vous voyiez mes macros , cela vous ferait peur ...
Bakounine

Il y a des chances, en effet. Pas certain qu'une procédure de plusieurs centaines de lignes soit le top du top (Pas d'attaque personnelle dans mes propos, mais un simple constat technique... )


Pour le format numérique: range("a1").NumberFormat="0.00"
Tu peux t'aider pour la chaine de format en saisissant le format souhaité en Excel, puis, tout en restant sur la cellule correctement formatée, allez dans la fenêtre d'exécution VBA (CTRL+G si pas affichée) et saisir ? activecell.NumberFormat