Discussion :

[alexbati]

Bonjour,

J'ai renseigné mon tableau à l'aide d'un doc .csv où les "," exprimant les décimales sont des "." (je n'ai donc pas 1,5 mais 1.5) ce qui empêche tous calcul entre les colonnes.
L'idée serait de faire un équivalent de

Code :

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

1
2
3
4
 
For j = 2 To UBound(tableau, 1)
tableau(j, 2) = tableau(j, 2).Replace(".", ",")
Next j

mais Replace ne fonctionne apparemment que sur les feuilles
Serait il possible de modifier cela au sein même du tableau?

[Philippe PONS]

Replace fonctionne très bien en VBA, et sur les tableaux!
à condition de le programmer correctement!

Code :

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

1
2
3
4
5
 
 
For j = 2 To UBound(tableau, 1)
tableau(j, 2) = Replace(tableau(j, 2), ".", ",")
Next j

[Invité]

Bonjour,
le replace ne changera rien!
si dans la colonne [A] tu as des points pour des virgules comme caractère décimale alors!

Code :

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

range("A:A").value=range("A:A").value

la virgule est le caractère décimal Excel!
le point es le caractère décimal vb!

l'inversion de l'un sera vu par l'autre comme du texte et réciproquement i il faut alimenter l'autre en fonction du format de l'un et réciproquement!

[Philippe PONS]

Non mais là il est pas dans des cellules, il est dans tableau chargé à partir d'un csv!

[Invité]

Non mais là il est pas dans des cellules, il est dans tableau chargé à partir d'un csv!

oui mais il va en faire quoi de son tableau coté vb c'est le point le décimal!

et vu que son tableau est très certainement un variant un numérique dans son tableau sera vue comme un string!

si il veut manipuler son tableau pour faire des comparaison il n’aura pas d'autre choix que d'utiliser Val si le décimal est un point ou Cdbl si c'est une virgule

Code :

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

1
2
3
For j = 2 To UBound(tableau, 1)
if val(tableau(j, 2)) = cdbl(tableau(j+1, 2)) then
Next j

mais pour enrichir Excel il faut qu'il soit un point!

[alexbati]

Replace fonctionne très bien en VBA, et sur les tableaux!
à condition de le programmer correctement!

En effet!!!!
Ca marche parfaitement merci

[alexbati]

Je reviens sur ce problème car il n'est finalement pas entièrement résolu.
Cette méthode marche bien quand la nombre n'est pas trop long (159.58 devient bien 159,58 mais 147405937.11000001 devient 14740593711000000)
Serait il possible de contourner le problème tout en gardant "Replace"?

[mercatog]

Essaies

Code :

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

1
2
3
For j = 2 To UBound(tableau, 1) 
tableau(j, 2) = Replace(tableau(j, 2), ".", ".")
Next j

[Philippe PONS]

Oui, il y a un problème.
Mais je n'ai pas le même chose que toi.
J'ai plutôt une perte de décimale.
En passant par un string, les décimales sont conservées.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test_replace()
    Dim dblVar As Variant
 
    dblVar = 147405937.11
    Debug.Print Replace(147405937.11, ".", ",")
    dblVar = Replace(147405937.11, ".", ",")
    Debug.Print dblVar
    dblVar = "147405937.11000001"
    dblVar = Replace(dblVar, ".", ",")
    Debug.Print dblVar  ' affiche bien : 147405937,11000001
End Sub

[alexbati]

Non ça ne marche pas, en remplaçant "." par "." je me retrouve avec l'incompatibilité de type du début dès que je veux faire des opérations entre les colonnes

[Philippe PONS]

Ok mais alors attention à une chose!
En vba:
si tu multiplie des nombre, avec un type de données numérique, le point est le séparateur décimal.
Par contre si tes nombres ont le type String, alors c'est la virgule qui est le séparateur décimale!!!!!
Avec la Fenêtre des variables locales(en mode pas à pas), regarde quel est le type de données des cellules de ton tableau!

[alexbati]

Donc si j'ai bien compris, j'enregistre mon tableau as String dès le début puis une fois le remplacement fait je le repasse en Variant?

Oui, il y a un problème.
Mais je n'ai pas le même chose que toi.
J'ai plutôt une perte de décimale.
En passant par un string, les décimales sont conservées.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test_replace()
    Dim dblVar As Variant
 
    dblVar = 147405937.11
    Debug.Print Replace(147405937.11, ".", ",")
    dblVar = Replace(147405937.11, ".", ",")
    Debug.Print dblVar
    dblVar = "147405937.11000001"
    dblVar = Replace(dblVar, ".", ",")
    Debug.Print dblVar  ' affiche bien : 147405937,11000001
End Sub

[alexbati]

Avec la Fenêtre des variables locales(en mode pas à pas), regarde quel est le type de données des cellules de ton tableau!

Tout est en variant puisque dans mon tableau il y a des Nombres et des Caractères

[Invité]

http://www.developpez.net/forums/d15...u/#post8612498

[Philippe PONS]

Ccomment est déclarée ta variable tableau?

[Philippe PONS]

Oui, mais dans un tableau, tu peux avoir des Variant/String ou des Variant/Double, c'est à dire un sous-type de donnée.
Comme le dit rdurupt, tu peux aussi utiliser CDbl pour convertir un String en Double

[alexbati]

je l'ai déclaré comme ca:

Code :

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

1
2
3
 
Workbooks.OpenText Filename:=chemin, DataType:=xlDelimited, local:=True
    tableau = Range("a1").CurrentRegion

[Philippe PONS]

C'est donc une variable non déclarée! C'est pas bien ça!
Et je croyais que c'était un tableau chargé à partir d'un fichier csv!
Là il est chargé à partir d'une plage de cellules!

[Invité]

pour être tranquille tu le force dans un format dont tu connais le type(Val ou Cdbl)

Code :

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

Numerique= cdbl(Replace(tableau(i,2), ".", ","))

[alexbati]

Oui je débute, j'ai pas encore les bon réflexes
oui c'est vrai, je voulais dire que le fichier de base était un csv