OVH Cloud OVH Cloud

Pas une question ... une solution !!!

1 réponse
Avatar
claude Boucher
Bonjour à toute et a tous,

Tout d'abord Merci Boucou Boucou Boucou pour vos contributions,
Je suis pour l'instant un lecteur attentif passif. ;-)

Ci dessous une petite ruse pour virer les petits triangles en haut des
cases.
"Nombre stocké sous forme de texte" (c'est chiant Hein ???)
CTRL+H (remplacer) en on remplace toutes les "," (virgules) par des ","
Et sa marche, Excel modifi le format des cellules en numérique.

pour le faire dans une macro, j'ai été obligé de faire une étape
intermediaire :
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=",", Replacement:="..."
Selection.Replace What:="...", Replacement:="."

Mais ca peux surement etre optimisé
en esperant que cela pourra aider certains d'entre nous

Voilà, bonne soirée

Claude

1 réponse

Avatar
lSteph
Bonjour Claude,
C'est toujours plus marrant avec une astuce, merci pour tes compliments
cela fait toujours plaisir à ceux qui les prennent pour eux, même si c'est
pô le cas
et qui ont bien raison car des fois ils n'en ont pas alors qu'ils les
méritent.
Alors puisque personne ne se manifeste je les reçois de bon coeur à leur
place, voilà!
;o))
En retour, ce n'est peut-être pas idem sur toutes les versions d'ailleurs
avant
cela ne suscitait pas d'alerte mais cela va sans doute t'intéresser.

Menu Outils Options Vérification des erreurs
Règles, tu décoche celle que tu ne veux pas. "Nombre stocké sous forme de
texte" par exemple.

A+

lSteph


"claude Boucher" a écrit dans le message de news:

Bonjour à toute et a tous,

Tout d'abord Merci Boucou Boucou Boucou pour vos contributions,
Je suis pour l'instant un lecteur attentif passif. ;-)

Ci dessous une petite ruse pour virer les petits triangles en haut des
cases.
"Nombre stocké sous forme de texte" (c'est chiant Hein ???)
CTRL+H (remplacer) en on remplace toutes les "," (virgules) par des ","
Et sa marche, Excel modifi le format des cellules en numérique.

pour le faire dans une macro, j'ai été obligé de faire une étape
intermediaire :
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=",", Replacement:="..."
Selection.Replace What:="...", Replacement:="."

Mais ca peux surement etre optimisé
en esperant que cela pourra aider certains d'entre nous

Voilà, bonne soirée

Claude