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

[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]

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]

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