Conversion forme texte en nombre

Bonjour à tous,

Voici mon problème:

Je fais une extraction via un logiciel. Or les chiffres à virgules sont des points. Je remplace donc les points par des virgules. Néanmoins j'ai une erreur (sur tous les chiffres à virgule), me signalant que mes nombres sont stockés sont formes de textes.

Je voudrais donc convertir mes chiffres sous formes de texte (colonne J de ma feuille) en nombre afin que mes calculs s'exécute correctement.

Je vous remercie,

Cordialement,

Code:

---

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

Function MyIsNumerique(V) As Double Dim Vcopie As String Vcopie = Trim("" & V) If IsNumeric(Vcopie) = False Then 'pas numerique modifie la virgule , en . Vcopie = Replace(Vcopie, ",", ".") End If If IsNumeric(Vcopie) = False Then 'pas numerique Option régional Windows ?? . ->, Vcopie = Replace(Vcopie, ".", ",") End If MyIsNumerique = Val(Vcopie) 'Si v=Prénom convertie en 0.0 de toutes les façon retourne un numérique. End Function

---

Code:

---

Worksheets("Feuil2").Range("A:D").Replace ".", ".", xlPart

---

Merci rdurupt de votre réponse,

Néanmoins après test (fichier joint dans ce message), je n'ai rien qui se produit. Pouvez vous y jeter un oeil.

Cordialement,

j'ai trouvé pour ceux qui veulent:

Code:

---

1 2 3 4 5 6

For Each ws In ActiveWorkbook.Worksheets With ws.Range("A1:A22") .NumberFormat = "0" .Value = .Value End With Next

---

cdt,