Discussion :

[Denis_67]

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 :

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

c.value = .value

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

Code :

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

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/

[Daniel.C]

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 :

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

c.value = c.value

(un peu au hasard).

[illight]

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

[Daniel.C]

Bonjour illight,

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

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

[Denis_67]

Merci à Daniel

Code :

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

c.Value = c.Value

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

En tout cas ça marche

Bonne après midi

[Daniel.C]

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