Export de données numériques de html vers excel

[Nesma]

Salut tout le monde :
J'ai une page html que j'ai voulu l'exporter vers excel, et c'est bien passé sauf que j'ai des données numériques et excel les considèrent comme étant des caractères, donc je peux pas faire des calculs sur, y'a t-il un moyen de les exporter comme des numériques?? ou de les rendre de excel des champs numériques (sachant que j'ai essayé avec le format de cellule numérique et ça ne m'a rien donné).

Merci pour votre aide.

[pierrejean]

bonjour Nesma

une macro a tester:

Sub num()
For Each cel In ActiveSheet.UsedRange
 If IsNumeric(cel) Then
  cel.NumberFormat = "General"
  cel = CDbl(cel)
 End If
Next cel
End Sub

[Jocelyn]

Bonjour le forum,
Bonjour Nesma,

Il y a plusieur façon de faire pour transformer des données en numérique lorsqu'elles sont dans excels

Par contre pour savoir quelle solution adopté il faudrait que tu mettes un petit fichier d'une dizaine de lignes

Souvent le problème vient des espaces

Alors a tester quand même

1) dans une cellule vide tapes 1 fait un copier de cette cellule puis sélectionnes les données a convertir ensuite fait collage spécial coche multiplication et ok

2) supprimer les espaces par le menu édition => remplacer
selectionnes des données vas dans menu édition => rempacer dans le champ chercher en maintenant la touche ALT enfoncée tapes 0160 dans le champ remplacer par on ne met rien puis remplacer tout .

si cela n'a pa fonctionné avec ALT + 0160 on peut essayer la ême chose avec ALT + 032

3) si ce ne sont pas des problème dus au espaces la il faut vraiment voir les données

Jocelyn

Bonjour Pierre Jean trés heureux de te croiser toi et tes macro

[Nesma]

Non ça n'a pas donné de résultat

[Jocelyn]

re,

Alors une seulle solution met en ligne un morceau de fichier d'une dizaine de ligne sans voir je ne peux rien faire de plus pour t'aider

Jocelyn

[pierrejean]

re

alors comme le suggere Jocelyn un fichier avec quelques exemples non confidentiels va etre necessaire

[Nesma]

Alors voila le lien
Rapport d'activite
Sachant que ce tableau est suite à une requête sql.

Merci

[Staple1600]

Bonjour
edit2: la cela fonctionne (merci à Jocelyn)

Sub Macro3()
Dim x As String
x = Chr(160) & Chr(160)
Selection.Replace What:=x, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub

Avec l'enregistreur de macro (cela a donné la macro ci-dessous)

Tu séléctionnes les cellules à modifier avant d'éxécuter la macro ci-dessous

Sub Macro2()
Selection.Replace What:="  ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub

Ensuite tu peux faire tes calculs

edit: c'est bizarre cela a fonctionné lors de l'enregistrement de la macro
mais quand on l'éxécute (la macro) ca ne fonctionne pas
pour ce qui de la suppression des espaces

[Temjeh]

Bonjour

Je ne sais pas si ca peut aider:

Tu sélect tes données
Tu fait donnée ...convertir ...et press tout de suite terminer

A+

Temjeh

Staple1600 bon 2000ème
Ps: j'invite tous le monde à mon 500ème la sem prochaine !!!

[Nesma]

J'ai essayé vos solutions proposées et aucune n'a donnée le résultat
Y'a t-il quelqu'un qui a testé et qui a trouvé le bon résultat avant de me donner sa proposition????

Merci

[Staple1600]

Re

J'ai teste et ca fonctionne

J'ai télécharge le fichier rapport.xls

J'ai sélectionné la plage D313

puis j'ai lancé la macro de mon précédent message
Sub Macro3

et après, j'ai bien des chiffres dans cete même plage

[Nesma]

C'est Bon j'ai trouvé la solution

Grand merci Staple1600

Un ptit souci y'a t-il pas un moyen de créer le macro automatiquement lors de l'exportation vers excel, car en fait c'est pas moi qui va utiliser ce fichier et c'est pas façile que l'utilisateur vas trouver cette solution.

[Staple1600]

Re

Donc voici la démarche que j'ai suivi

J'ai donc [exporté vers Excel] (à partir du sité cité)

J'ai donc un fichier rapport.xls

Je l'ouvre avec Excel

Ensuite je vais dans l'éditeur VBE (ALT+F11)

la je fais Insérer/Module

puis je copie/colle la macro nommée Macro3

Ensuite je retourne dans le classeur

Je sélectionne les cellules à modifier (D313)

Et la Outils/Macros/Macro3 Exécuter

Et les modifications s'effectuent.

Précision: réalisé sous XL2000

Peut-etre qu'il y a de légères difféences dans le nom des menus.

[Jocelyn]

re,
Bonjour Staple1600, Temjeh,

Hum hum je vois que du monde est passé pendant la coupure, mais au cas ou cela interresserait d'autre personne voila le complément pour faire fonctionner ce que je disais tout a l'heure.

Sur les données il y a 2 problèmes : l'espace en code 160 et le point

donc fonctionnement en 2 étapes

1)selectionnes des données vas dans menu édition => rempacer dans le champ chercher en maintenant la touche ALT enfoncée tapes 0160 dans le champ remplacer par on ne met rien puis remplacer tout .

2selectionnes des données vas dans menu édition => rempacer dans le champ chercher tapes un point . dans le champ remplacer tapes une virgules puis remplacer tout .

Et voila les données sont numériques

Jocelyn

[Nesma]

Merci Staple1600

Y'a une solution plus facile peut être pour ceux qui sont comme moi bleu en excel j'ai essayé de comprendre le macro et j'ai trouvé que c'est la solution de Jocelyn mais on remplaçant aussi les points par des virgules.

Merci à vois tous je suis bien sauvée