Convertir texte en nombre avec VBA

J'ai des valeurs que je n'arrive pas à passer en nombre.
J'ai appliqué la proposition de gFZT82
Mon code complet remplace d'abord les blancs par rien puis passe le format en "0" jusque là ça passe, mais il me reste des cellules avec des chiffres interprétés comme du texte.
Et si j'ajoute le

Code:

---

c.value = .value

---

J'ai l'erreur de compilation : Référence incorrecte ou non qualifiée et le pointeur surligne le . value

Code:

---

1 2 3 4 5 6 7 8 9 10

For Each c In Worksheets("Data Source").Range("k7:p" & nlt).Cells c.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False   c.NumberFormat = "0" c.Value = .Value   Next

---

Merci pour vos éclaircissements
Denis

PS: j'avais posté en réponse du vieux post, mais je ne pense pas que ce soit la bonne méthode, aussi je créé un nouveau post sur le sujet.
http://www.developpez.net/forums/d12...ir-nombre-vba/

Bonjour,

Le "." fait référence à la feuille précisée avec la fonction "With". Comme il n'y en a pas dans ton code, essaie :

Code:

---

c.value = c.value

---

(un peu au hasard).

Et la fonction Cint, ça répondrait pas ?

Bonjour illight,

Citation:

---

Et la fonction Cint, ça répondrait pas ?

---

Tout à fait, sauf si une cellule contient du texte.

Merci à Daniel

Code:

---

c.Value = c.Value

---

En fait cette formule correspond à un <Enter> que ferait l'utilisateur ? !

En tout cas ça marche

Bonne après midi

Oui, exactement. Dans un autre contexte, on s'en sert aussi pour remplacer une formule par sa valeur.