Nombre stocké sous format texte

**oliver75** · 27/06/2007, 17h27

bonjour,

je charge des données dans un tableau excel via une macro. lors de larecupération des données , j'ai un message d'erreur dans la cellule du type : nombre stocké sous format texte .

comment faire pour convertir lors de l'import ces données sous format numérique.

merci de votre aide.

olivier

**ouskel'n'or** · 27/06/2007, 17h32

Je n'ai pas bien compris mais tu peux toujours essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LaVal = Val(LaDonnée)

Mais tout dépend de la valeur qu'a ta donnée.
Si tu pouvais être plus précis

**oliver75** · 27/06/2007, 17h41

J'importe via un macro des cours d'une base de données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Function chargement_cours_j_moins1correlationindice(codeprodui) As Double
    Dim code_prod As String
    Dim cours As Double
    Dim ptr As Variant
 
'cette fonction sert à récupérer les informations pour enrichir l'onglet correlation indice
    cours = 0
 
 Set ptr = CreateObject("ADODB.Recordset")
 
 
    ptr.Open "SELECT _COURSCLOSE FROM omega.com.prixhist WHERE _codeprodui = '" & codeprodui & "' ORDER BY _DATE DESC", Mybd
    Do While Not ptr.EOF
 
        cours = ptr("_COURSCLOSE")
        Exit Do
    Loop
    chargement_cours_j_moins1correlationindice = cours
 
End Function

je récupère bien dans mon tableau excel les cours souhaités. Le problème est que ces cours sont importé sous format texte .

comment faire pour que l'intégration de ces cours se fasse sous format numérique.

merci de votre réponse

Olivier

**ouskel'n'or** · 27/06/2007, 17h44

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        cours = Val(ptr("_COURSCLOSE"))
'ou
        cours = cdbl(ptr("_COURSCLOSE"))

Teste les deux
A+

**oliver75** · 27/06/2007, 17h53

je vais la manip pour importer les données dans deux onglets différents.
dans un cas ca marche pas pas dans l'autre

**ouskel'n'or** · 27/06/2007, 18h02

Tu peux être plus précis ? (tu ne devrais pas avoir de mal... parce que là

)
A+

**oliver75** · 27/06/2007, 18h08

j'ai fais les modif que tu as preconisé. pour l'import ci dessous je recupére bien les données sous format num dans l'onglet A d'excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Function chargement_cours_j_moins1correlationindice(codeprodui) As Double
    Dim code_prod As String
    Dim cours As Double
    Dim ptr As Variant
 
'cette fonction sert à récupérer les informations pour enrichir l'onglet correlation indice
    cours = 0
 
 Set ptr = CreateObject("ADODB.Recordset")
 
 
    ptr.Open "SELECT _COURSCLOSE FROM omega.com.prixhist WHERE _codeprodui = '" & codeprodui & "' ORDER BY _DATE DESC", Mybd
    Do While Not ptr.EOF
 
        cours = Val(ptr("_COURSCLOSE"))
        Exit Do
    Loop
    chargement_cours_j_moins1correlationindice = cours
 
End Function

Je fais le meme type d'import dans un onglet b avec le code ci-dessous et la je recupère encore dans excel du format text?? very strange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Function chargement_cours_j_moinsindice1(codeisin) As Double
    Dim code_prod As String
    Dim cours As Double
    Dim ptr As Variant
 
    'cette fonction sert à récupérer les informations pour enrichir l'onglet correlation
 
    cours = 0
 
 Set ptr = CreateObject("ADODB.Recordset")
 
    ptr.Open "SELECT _COURSCLOSE FROM omega.com.prixhist WHERE _isin = '" & codeisin & "' ORDER BY _DATE DESC", Mybd
    Do While Not ptr.EOF
 
        cours = Val(ptr("_COURSCLOSE"))
        Exit Do
    Loop
    chargement_cours_j_moinsindice1 = cours
 
 
 
End Function

**ouskel'n'or** · 27/06/2007, 18h19

Alors c'est ta colonne qui est au mauvais format.
Je n'ai pas la macro qui appelle cette fonction mais quelque part, avant le chargement de la fonction, remet la colonne au format standard, ce format reconnaîtra ses "petits" (si c'est un nombre, il le reconnaîtra comme tel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns(x).numberformat = "General"

Tu dis
A+

**oliver75** · 27/06/2007, 18h32

j'ai mis la colonne en format standart....j'ai toujours un import en format text

**ouskel'n'or** · 27/06/2007, 18h35

Question subsidiaire : Comment places-tu ta donnée dans la colonne ? Le code ?
A+

Edit
Quel format ta donnée a-t-elle (décimale, non décimale) Un exemple, non, plusieurs exemples différents

**oliver75** · 27/06/2007, 18h39

ce sera des données avec décimale

voici le code pour l'affectation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Sub Affectjmoins1correlation(nom_feuille)
Dim i
Dim datejmoins1 As Date
 
'ceci permet de charger les cours j-1 dans l'onglet correlation
 
If (Sheets("correlation").Range("A2")) <> "" Then
datejmoins1 = chargement_date_j_moins1(Sheets("correlation").Range("A2"))
Sheets("Correlation").Range("B1") = datejmoins1
  Else
 
    End If
 
For i = 2 To 500
    If (Sheets("correlation").Range("a" & i)) <> "" Then
        mont = chargement_cours_j_moins1(Sheets("correlation").Range("A" & i))
        Sheets("Correlation").Range("B" & i) = mont
 
    Else
 
    End If
Next i
 
End Sub

merciiiiiiiiii de ton aide

**ouskel'n'or** · 27/06/2007, 18h43

J'ai lu trois lignes mais si tu es censé avoir une valeur, alors teste une valeur, là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (Sheets("correlationindice").Range("A2")) <> 0 Then

Je poursuis la lecture

J'allais oublier... tu as dis des nombre décimaux (youpi ! je me souviens d'une réponse récente !)
Tes points sont des "mauvais points" ! Oui, parce que dans Excel, il y a les bons points et les mauvais points

Manuellement, pour tester, sélectionne ta colonne et remplace "." par "."
Si tu crois que je plaisante, fais-le quand même et donne-moi le résultat

A+

**zazaraignée** · 27/06/2007, 20h39

Ta cellule est de format texte ? il faudra peut-être la remettre en format standard.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").NumberFormat = "General"

Si la valeur s'affiche toujour à gauche, tu as probablement un espace dans la donnée (à gauche ou à droite).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").Value = Trim(Range("A1").Value)

**ouskel'n'or** · 28/06/2007, 03h20

Hello zaza, tu dors ?

Envoyé par ouskel'n'or

Alors c'est ta colonne qui est au mauvais format.
Je n'ai pas la macro qui appelle cette fonction mais quelque part, avant le chargement de la fonction, remet la colonne au format standard, ce format reconnaîtra ses "petits" (si c'est un nombre, il le reconnaîtra comme tel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns(x).numberformat = "General"

Tu dis
A+

Le remplacement des points par des points n'a pas fonctionné ?
A+

**oliver75** · 28/06/2007, 09h47

zazaraignée,

ou dois je placer le code que tu m'as donné?

**illight** · 28/06/2007, 09h51

Envoyé par ouskel'n'or

J'allais oublier... tu as dis des nombre décimaux (youpi ! je me souviens d'une réponse récente !)
Tes points sont des "mauvais points" ! Oui, parce que dans Excel, il y a les bons points et les mauvais points

Manuellement, pour tester, sélectionne ta colonne et remplace "." par "."
Si tu crois que je plaisante, fais-le quand même et donne-moi le résultat

A+

c'est pas forcément des points, ça peut etre des virgules aussi

Sinon pour des décimaux, c'est pas cdbl qu'il faut utiliser, plutot que Val ?

**oliver75** · 28/06/2007, 09h53

ouskel'n'or,

le remplacement proposé ne peut pas marcher car dans mon tableau excel les nb decimaux sont avec des virgules. je mets en pièce jointe le fameux tableau....

**illight** · 28/06/2007, 10h12

Remplace dans ta colonne les virgules par des virgules

Par macro, il faudrait que tu fasse une procédure qui te permet de changer la valeur, de ce genre la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub ChangeStdtoDouble(Col as long)
dim i as long
dim ValTemp as double
for i = 1 to range("A2").end(xldown).row
    valtemp = cells(i,col).value
    cells(i,col).value = valtemp
next i
end sub