PB format de fichier

[erwanhavre]

Bonsoir à tous
J'ai un classeur avec des colonnes que je n'arrive pas à travailler: extraction, somme etc
il s'agit d'une extraction de logiciel
je vous joint un extrait
Merci !!!

 

[st007]

Re : PB format de fichier

Bonsoir
dans un module standard

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

 

[erwanhavre]

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

 

[st007]

Re : PB format de fichier

re,
essaie avec

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"

 

[erwanhavre]

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 ?

 

[JHA]

Re : PB format de fichier

Bonjour à tous,

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

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

JHA

 

[Chris401]

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