Discussion :

[PaulG2B]

Bonjour,

Souhaitant, après une requête sql, transformer les valeur d'une colonne (D) stockées sous forme de texte en nombre j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
Dim DerLigne As Long, Tabl(), i As Long
DerLigne = Range("D65536").End(xlUp).Row
Tabl = Range("D7", Cells(DerLigne, 4))
For i = LBound(Tabl, 1) To UBound(Tabl, 1)
    Tabl(i, 1) = CDbl(Tabl(i, 1))
Next
Range("D7").Resize(UBound(Tabl, 1), 1) = Tabl

Hors ce code ne fonctionne pas ! Il me renvoie une erreur d'exécution '13' : incomptabilité de type ... surlignant la ligne ici indiquée en rouge.

J'en appelle donc à vos lumière pour me sortir de ce mauvais pas.

[Invité]

Bonjour,
pourquoi ne pas le faire dans ta requête?

Code :

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

 SQL = & "select CDbl([Table1].[Cham1]),[Table1].[Champ2] from Table1;"

http://www.developpez.net/forums/d14...l/#post8001279

[Daniel.C]

Bonjour,

Remplace :

Code :

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

Tabl(i, 1) = CDbl(Tabl(i, 1))

par :

Code :

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

If IsNumeric(Tabl(i, 1)) Then Tabl(i, 1) = CDbl(Tabl(i, 1))

[PaulG2B]

Bonjour,
Remplace :

Code :

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

Tabl(i, 1) = CDbl(Tabl(i, 1))

par :

Code :

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

If IsNumeric(Tabl(i, 1)) Then Tabl(i, 1) = CDbl(Tabl(i, 1))

C'est parfait cela répond parfaitement à ma demande, merci Daniel.C

Par contre je vais creuser la solution de rdurupt car optimiser directement la requête sql m'intéresse au plus haut point. Si seulement il était aussi simple de faire un TCD sous sql que excel !

Code :

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

Sql1 = "SELECT resultat_0.DATE_ANALYSE,IFNULL(echantillon_complet_0.DESIGNATION_ORIGINE, echantillon_complet_0.ORIGINE_LIBRE), CONCAT(methode_analyse_0.DESIGNATION_ANALYSE, "" ("", IFNULL(unite_mesure_0.DESIGNATION_UNITE,''), "")""), CDbl(resultat_0.RESULTAT_ANALYSE_CORRIGE) "

L'intégration ne fonction pas si je la fais comme indiqué ci-dessus.

[Invité]

regarde la pièce joint, dé-zip la totalité sur ton disck; en ce qui me concerne, un TDV, c'est beaucoup plus simple et en plus tu as les 2 pour le prix d'un (ADO TDC)

[PaulG2B]

Rooooo ! c'est monstrueux rdurupt, cela va bien au delà de mes connaissances. J'étudie tout cela mais je ne te garantie pas de transposer ton exemple à mon cas.
Vais tester, merci à toi.

[Invité]

fait une recherche sur le forum de clsTdcRD tu trouveras des exemple!

le module de classe est une boîte à outils que tu ne touche pas c'est juste la sub test que tu adapte à ta problématique!

j'explique dans les exemple que tu ne manqueras pas de trouver comment l’intégrer dans ton projet.

la plus part sont comme toi ils ont un grand flipp