Incompatibilité de type - tableaux vba et chaine de caractère

[AzoR]

Bonjour à tous !

Petit message car j'ai un soucis avec des tableaux virtuels VBA, j'aimerai qu'il me convertisse les valeurs de ce tableau VBA (chaine de caractères) en nombre (CDbl). J'ai essayer ceci mais cela ne fonctionne pas :

Sub TableauxPlancher()
'permet de faire les tableaux en VBA et non avec une feuille excel, chaque tableau est
'alors défini comme une variable. Beaucoup plus rapide pour le traitement des données

'Dim tab1() As String, tab2() As String, tab3() As String, tab4() As String, tab5() As String, tab6() As String, tab7() As String, tab8() As String
Dim tabP() As Double
Dim tabPfinal(8, 8) As Double
Dim i, j, n As Integer
Dim Montab As Variant


tabP = Split(mesureP1 & "," & mesureP2 & "," & mesureP3 & "," & mesureP4 & "," & mesureP5 & "," & mesureP6 & "," & mesureP7 & "," & mesureP8, ",")

n = 0
For i = 0 To 7
For j = 0 To 7

tabPfinal(i, j) = CDbl(tabP(n))
n = n + 1

Next j
Next i

Range("B31:I38") = tabPfinal

à noter que les chaines de caractères sont de la forme : +2.22190000E+01
Donc avec le séparateur ".".

Pouvez-vous m'aider à résoudre ce petit problème s'il vous plait ?

Merci d'avance, Cordialement, AzoR.

 

[Pierrot93]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Bonjour,

déclare "tabP" en "string" au lieu de "double"

bonne journée
@+

 

[AzoR]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Bonjour, merci de ta réponse,

J'ai toujours une incompatibilité de type

 

[Pierrot93]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Re,

A quel niveau... sans plus de détails, difficile d'en dire plus...

 

[AzoR]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Oui désolé,
Après avoir exécuté le pas à pas l'erreur intervient au moment de la ligne :

tabPfinal(i, j) = tabP(n)

C'est dû au faite qu'il doit mettre un tableau défini en string dans un tableau défini en double non ?

Car je ne sais pas comment utilisé CDbl pour modifier les chaines de caractère en nombre. Ou alors en utilisant une commande transformant les points en virgule je ne sais pas ce qui est le plus astucieux.

 

[Pierrot93]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Re,

essaye comme ceci :

tabPfinal(i, j) = CDbl(tabP(n) )

 

[AzoR]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Re,

Même erreur au même endroit, j'avais penser à ça aussi mais apparemment il ne veut pas.

 

[Pierrot93]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Re,

A voir aussi quel est ton séparateur de décimale... peut être lieu d'utiliser la fonction "replace"...

 

[AzoR]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Re,

Je l'ai noté dans mon premier message, le séparateur dans la chaine de caractère est le point. Je vais regarder la fonction "replace" en effet.

 

[Pierrot93]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Re,

dans la chaine de caractère, ok, mais dans excel....

 

[AzoR]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Re,

C'est la virgule mon séparateur de décimale sous excel

 

[Pierrot93]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Re,

alors il faut un "replace" :

tabPfinal(i, j) = CDbl(Replace(tabP(n), ".", ","))

 

[AzoR]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Re,

Niquel ça fonctionne ! Merci beaucoup ! Et désolé je suis "débutant"

Bonne journée

 

[Pierrot93]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Re,

Et désolé je suis "débutant"

pas de souci, nous sommes tous passés par là...

 

[Dranreb]

Re : Incompatibilité de type - tableaux vba et chaine de caractère

Bonjour.

Plutôt que CDbl, la fonction Val, reconnait, et ne reconnait que le point décimal pour convertir un texte en valeur.