[VBA-E] Problème après extraction d'une base de donnée (fonction replace)

Bonjour à tous,

J'ai un souci après avoir extrait une base de donnée d'un serveur.

J'obtient un fichier excel avec beau nombre d'information enfin bref....

Problème :

Lorsque je fais la somme de plusieurs cellules comportant des chiffres, j'obtiens toujours zéro. Apparement, il interprète les cellules comme des valeurs nulles.

Si je regarde la propriété de la cellule, je vois que c'est du texte, donc je change et je mets en nombre, seulement, c'est toujours le même problème.

Si je fais "F2" puis "entrée", ca résoud tous mes problèmes... Sauf que j'ai plus de 2000 lignes et plusieurs fichiers.

J'ai donc voulu faire une petite macro et étant plutôt mauvais, je galère...

But de la macro :

Faire "F2" puis "entrée" de la ligne 2 à 2000 pour les colonnes 4 à 9
=> Shunter en utilisant la fonction replace !

Avancement macro : 100% :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Macro1()   Dim i, y, mv   For y = 4 To 9 For i = 2 To 2300 mv = Replace(Cells(i, y), ",", ".") Cells(i, y).ClearContents Cells(i, y) = mv Next i Next y End Sub

---

Merci pour votre aide

Petit état d'avancement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Macro1()   Dim i, y As Variant   For i = 2 To 2300 y = 5     Cells(i, y).Select ActiveCell.FormulaR1C1 = Cells(i, y).Value     Next i     End Sub

---

Ce type de macro ressemble à ce que je cherche mais le résultat n'est pas celui attendu...

Bonjour,

Il y a sûrement d'autres manières, mais je ne retrouve pas, alors restant sur votre idée de départ :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Mef() Dim i, y, mv   For y = 4 To 9 For i = 2 To 2300 mv = Format(Cells(i, y), "0.00") Cells(i, y).ClearContents Cells(i, y) = mv Next i Next y End Sub

---

Tout d'abord, merci pour votre aide mais ca ne résoud pas mon problème...

Je joins un fichier de sorte de passer à la pratique.

Sur ce fichier vous remarquerez que la somme est égal à zéro, si vous faites "F2" puis "entrée" sur une cellule, le chiffre change d'alignement et la somme évolue...

Je sais pas vraiment pourquoi j'ai ce problème...

Re DVano,

Voici le code pour ce cas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Mef() Dim i, y, mv   For y = 4 To 9 For i = 2 To 2300 mv = Replace(Cells(l, c), ",", ".") Cells(i, y).ClearContents Cells(i, y) = mv Next i Next y End Sub

---

Merci, problème résolu.