texte en nombre

Le
Michel
Bonjour à tous,
Je récupère des données sur une page web.
Lorsque je les colle dans excel 2010, j'ai une petite flèche à gauche des
cellules récupérées avec une option "convertir en nombre".
J'essaie de créer une macro pour m'éviter de cliquer sur cette petite
flèche, mais le module est désespérément vide.
J'ai essayé de voir s'il y avait un caractère caché devant, mais je n'ai pas
trouvé.
Je vous joins un exemple des données récupérées.
En vous remerciant d'avance, sincères salutations.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #23304891
Bonjour,

Tu insères dans tes cellules lors du copier-coller le caractère Ascii 160
qui représente une espace insécable. Ce caractère ressemble à un
espace créé par la barre d'espacement.
Si c'est ce qui se passe vraiment, tu peux utiliser cette petite macro
pour le supprimer.

Tu ouvres l'éditeur de code (raccourci clavier Alt + F11)
Insères un module (barre des menus / insertion / module)
tu y colles cette procédure et l'exécutes.

'---------------------------------------
Sub Supprimer_Caractere()

With Worksheets("Feuil1") 'Nom feuille à adapter
With .UsedRange
.Replace Chr(160), "", xlpart
end with
End with

End Sub
'---------------------------------------


MichD
--------------------------------------------
"Michel" a écrit dans le message de groupe de discussion : 4db29b81$0$7189$

Bonjour à tous,
Je récupère des données sur une page web.
Lorsque je les colle dans excel 2010, j'ai une petite flèche à gauche des
cellules récupérées avec une option "convertir en nombre".
J'essaie de créer une macro pour m'éviter de cliquer sur cette petite
flèche, mais le module est désespérément vide.
J'ai essayé de voir s'il y avait un caractère caché devant, mais je n'ai pas
trouvé.
Je vous joins un exemple des données récupérées.
En vous remerciant d'avance, sincères salutations.
Michel
Le #23305611
Merci de ta réponse.
Malheureusement, cela ne fonctionne pas.
J'avais lu les réponses fournies à la question de du 21 avril, mais je
n'avais pas réussi non plus.
J'ai déposé le fichier ici:
http://www.cijoint.fr/cjlink.php?file=cj201104/cijS8axTKs.xlsx
Encore merci pour tout

"MichD" a écrit dans le message de groupe de discussion :
iou9m6$l0i$

Bonjour,

Tu insères dans tes cellules lors du copier-coller le caractère Ascii 160
qui représente une espace insécable. Ce caractère ressemble à un
espace créé par la barre d'espacement.
Si c'est ce qui se passe vraiment, tu peux utiliser cette petite macro
pour le supprimer.

Tu ouvres l'éditeur de code (raccourci clavier Alt + F11)
Insères un module (barre des menus / insertion / module)
tu y colles cette procédure et l'exécutes.

'---------------------------------------
Sub Supprimer_Caractere()

With Worksheets("Feuil1") 'Nom feuille à adapter
With .UsedRange
.Replace Chr(160), "", xlpart
end with
End with

End Sub
'---------------------------------------


MichD
--------------------------------------------
"Michel" a écrit dans le message de groupe de discussion :
4db29b81$0$7189$

Bonjour à tous,
Je récupère des données sur une page web.
Lorsque je les colle dans excel 2010, j'ai une petite flèche à gauche des
cellules récupérées avec une option "convertir en nombre".
J'essaie de créer une macro pour m'éviter de cliquer sur cette petite
flèche, mais le module est désespérément vide.
J'ai essayé de voir s'il y avait un caractère caché devant, mais je n'ai pas
trouvé.
Je vous joins un exemple des données récupérées.
En vous remerciant d'avance, sincères salutations.
MichD
Le #23305681
Bonjour,

Essaie ceci :

'-------------------------------
Sub test()
With worksheets("Feuil1")
With .UsedRange
.Replace ",", "."
End With
End With
End Sub
'-------------------------------


MichD
--------------------------------------------
isabelle
Le #23305691
bonjour Michel,

Sub Macro1()
Range("A1:A10").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, FieldInfo _
:=Array(1, 1), DecimalSeparator:=",", TrailingMinusNumbers:=True
End Sub



--
isabelle

Le 2011-04-23 13:08, Michel a écrit :
Merci de ta réponse.
Malheureusement, cela ne fonctionne pas.
J'avais lu les réponses fournies à la question de du 21 avril, mais je n'avais pas réussi non plus.
J'ai déposé le fichier ici:
http://www.cijoint.fr/cjlink.php?file=cj201104/cijS8axTKs.xlsx
Encore merci pour tout

"MichD" a écrit dans le message de groupe de discussion : iou9m6$l0i$

Bonjour,

Tu insères dans tes cellules lors du copier-coller le caractère Ascii 160
qui représente une espace insécable. Ce caractère ressemble à un
espace créé par la barre d'espacement.
Si c'est ce qui se passe vraiment, tu peux utiliser cette petite macro
pour le supprimer.

Tu ouvres l'éditeur de code (raccourci clavier Alt + F11)
Insères un module (barre des menus / insertion / module)
tu y colles cette procédure et l'exécutes.

'---------------------------------------
Sub Supprimer_Caractere()

With Worksheets("Feuil1") 'Nom feuille à adapter
With .UsedRange
.Replace Chr(160), "", xlpart
end with
End with

End Sub
'---------------------------------------


MichD
--------------------------------------------
"Michel" a écrit dans le message de groupe de discussion : 4db29b81$0$7189$

Bonjour à tous,
Je récupère des données sur une page web.
Lorsque je les colle dans excel 2010, j'ai une petite flèche à gauche des
cellules récupérées avec une option "convertir en nombre".
J'essaie de créer une macro pour m'éviter de cliquer sur cette petite
flèche, mais le module est désespérément vide.
J'ai essayé de voir s'il y avait un caractère caché devant, mais je n'ai pas
trouvé.
Je vous joins un exemple des données récupérées.
En vous remerciant d'avance, sincères salutations.
Michel
Le #23317851
Isabelle, merci de ta réponse.
Malheureusement, cela ne marche pas.
Celle qui marche est celle de "michel ou sam", qui consiste à multiplier par
1.
Je te le signale, si jamais un cas semblable se renouveler.
Mais ne me demande pas pourquoi lol.
En tout cas, merci à vous tous

"isabelle" a écrit dans le message de groupe de discussion :
iov53i$rkq$

bonjour Michel,

Sub Macro1()
Range("A1:A10").TextToColumns Destination:=Range("A1"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, FieldInfo
_
:=Array(1, 1), DecimalSeparator:=",", TrailingMinusNumbers:=True
End Sub



--
isabelle

Le 2011-04-23 13:08, Michel a écrit :
Merci de ta réponse.
Malheureusement, cela ne fonctionne pas.
J'avais lu les réponses fournies à la question de du 21 avril, mais je
n'avais pas réussi non plus.
J'ai déposé le fichier ici:
http://www.cijoint.fr/cjlink.php?file=cj201104/cijS8axTKs.xlsx
Encore merci pour tout

"MichD" a écrit dans le message de groupe de discussion :
iou9m6$l0i$

Bonjour,

Tu insères dans tes cellules lors du copier-coller le caractère Ascii 160
qui représente une espace insécable. Ce caractère ressemble à un
espace créé par la barre d'espacement.
Si c'est ce qui se passe vraiment, tu peux utiliser cette petite macro
pour le supprimer.

Tu ouvres l'éditeur de code (raccourci clavier Alt + F11)
Insères un module (barre des menus / insertion / module)
tu y colles cette procédure et l'exécutes.

'---------------------------------------
Sub Supprimer_Caractere()

With Worksheets("Feuil1") 'Nom feuille à adapter
With .UsedRange
.Replace Chr(160), "", xlpart
end with
End with

End Sub
'---------------------------------------


MichD
--------------------------------------------
"Michel" a écrit dans le message de groupe de discussion :
4db29b81$0$7189$

Bonjour à tous,
Je récupère des données sur une page web.
Lorsque je les colle dans excel 2010, j'ai une petite flèche à gauche des
cellules récupérées avec une option "convertir en nombre".
J'essaie de créer une macro pour m'éviter de cliquer sur cette petite
flèche, mais le module est désespérément vide.
J'ai essayé de voir s'il y avait un caractère caché devant, mais je n'ai
pas
trouvé.
Je vous joins un exemple des données récupérées.
En vous remerciant d'avance, sincères salutations.
MichD
Le #23319291
'---------------------------------------
Sub Supprimer_Caractere()
With Worksheets("Feuil1") 'Nom feuille à adapter
With .UsedRange
.Replace Chr(160), "", xlpart
end with
End with
End Sub
'---------------------------------------

J'ai proposé cette macro, car dans les cas importations de données
d'une autre application, il arrive souvent que le caractère ASCII 160
(espace insécable) s'insère dans la plage de donné, et comme dans
ta question tu faisais allusion à la présence possible d'un caractère
non identifié... mais après avoir vu ton fichier, cette macro est
simple d'exécution :

'------------------------------
Sub test()
With Worksheets("Feuil1")
With .UsedRange
.Replace ",", ".", xlPart
End With
End With
End Sub
'------------------------------


MichD
--------------------------------------------
Publicité
Poster une réponse
Anonyme