PB format de fichier

S

st007

XLDnaute Barbatruc

• 17 Mars 2016

• #2

Re : PB format de fichier

Bonsoir
dans un module standard

Code:

Sub nbre()
Dim Rng As Range
For Each Rng In Range("A5:A9")   'A adapter bien sure
     Rng.Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
     Rng.Value = CDbl(Rng.Value) 
Next
End Sub

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 17 Mars 2016

• #3

Re : PB format de fichier

bonsoir st007
ça fonctionne impeccable merci
bon de mon coté je l'ai appliqué sur plusieurs colonnes il m'affiche des zéro dans les cellules vide (pas génant)
mais j'ai aussi du texte dans certaine cellule et dès que j'ai du texte il bloque "incompatibilité de type" ..
y à t'il une soluce ?
merciii

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 17 Mars 2016

• #4

Re : PB format de fichier

re,
essaie avec

Code:

Sub nbre()
Dim Rng As Range
For Each Rng In Range("A1:A9")
     Rng.Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
     Rng.Replace What:=Chr(44), Replacement:=".", LookAt:=xlPart
Next
End Sub

A condition que tes cellules contenant du texte ne contienne pas de "virgule"

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 18 Mars 2016

• #5

Re : PB format de fichier

Bonjour et merci ça fonctionne
Juste pour info pourquoi je ne pouvais pas travailler les données j'ai essayé avec supprespace;sélectionné et remplacé les vides mais rien ne marchait ?

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 18 Mars 2016

• #6

Re : PB format de fichier

Bonjour à tous,

Par formule, cela fait ("$C5" à modifier suivant ton fichier):

Code:

=SUBSTITUE($C5;CAR(160);"")*1

JHA

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Mars 2016

• #7

Re : PB format de fichier

Bonjour Erwan, JHA

Il ne s'agit pas d'un espace "normal" mais d'un espace dit insécable.

Dans RECHERCHER : ALT+0160
Dans REMPLACER : Rien

Cordialement
Chris

 

Vote positif 0 Vote négatif