Discussion :

[VBBBA]

Bonjour
Je reviens vous carj'ai un pb qui me bloque totalement

j'ai une feuille excel avec une colonne de chiffres, mais qui sont au format texte
Ces nombres sont ecrits de la forme suivante
727*355,38
1*019*815,32
ect......

Tout d'abord je veux changer les virgules par des points. ça j'ai pas de mal
Par contre, un espace sépare les milliers ( nombres regroupés par paquets de 3...)
Il me semble que ces espaces n'en sont pas, puisque j'arrive pas à les supprimer. Excel semble ne pas les reconnaître!!!!

Mon but est donc de trouver le moyen de changer les virgules par de points, d'enlever les espaces et de les mettres en format nombre.


Toute piste serait la bien venue

Merci d'avance

[Lou Pitchoun]

Salut,

Si à l'affichage tu as les espaces et pas dans la barre de formule: c'est que les espaces sont dans le format de cellules.
En modifiant le format de cellules : tu devrais pouvoir enlever les espaces.

[VBBBA]

Merci pour ta réponse
En effet je peux enlever l'espace dans la barre
Mais quand je veux utiliser les fonctions excel pour effecer cet espace, ça marche pas.

[Lou Pitchoun]

Si tes cellules ont un format numérique/monétaire avec séparateur de milliers, l'espace n'y est pas. C'est le format qui le met.

De plus,

quand je veux utiliser les fonctions excel pour effecer cet espace, ça marche pas.

Si tu penses à la fonction SUPPRESPACE(), elle laisse au moins un espace entre chaque mot pour les cellules dont le format est de type texte et est sans effet sur des cellules de type numérique.

[VBBBA]

Justement je veux pas d'espace.

Et le format de mes cellules est en texte.
Je vois pas là!!

[mordrhim]

tes cellules au format texte : # ###,##

pour enlever les espaces :

Code :

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

SansEspace = Replace(NbreTexte, " ","")

pour convertir au format nombre :

Code :

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

LeNombre = CDbl(SansEspace)

Il ne faut pas remplacer le 'point' par une 'virgule', le Double etant du format ####,##

[VBBBA]

ca marche toujour pas

[mordrhim]

donne un exemple alors (pas tout ton programme mais un fichier avec des cellules remplies au format que tu as)

[VBBBA]

Pour l'exemple j'ai ça
comme données

170*048,54
406*033,21
92*850,78
1*019*815,32
145*502,73
520*616,72
1*096*284,75
559*269,76

C'est du format txt aperement. Les chiffres sont séparés 3 par 3 par un espace qui n'estpas un espace au fait. En tout cas j'arrive pas à le supprimer ni avec replace ni avec une autre fonction excel

Mon but est d'enlever les espaces, de changer la virgule par un point et de rendre le format en nombre pour que je puisse faire des sommes par exemple.

J'ai pu concocter une fonction excel qui est celle là:

=CNUM(SI(ET(NBCAR(G4)>7;NBCAR(G4)<11);GAUCHE(G4;NBCAR(G4)-7)&DROITE(G4;6);SI(NBCAR(G4)>11;STXT(G4;1;NBCAR(G4)-11)&STXT(G4;NBCAR(G4)-9;3)&DROITE(G4;6);SI(ET(NBCAR(G4)>1;NBCAR(G4)<7);G4;SI(I4="FAUX";G4;0)))))

avec en colonne I =ESTERR(CHERCHE(",";G4;1))

Là ça marche
Mais je veux faire une macro à la place.

Mais j'arrive pas en vba à implementer cette formule

J'espere avoir été clair
Merci d'avance pour vos réponses

En sachant que je ne peux avoir que 2 décimales, mais jusqu'a 8 chiffres à gauche de la virgule . Donc il faut un truc dynamique ....

[mordrhim]

Code :

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

LeNombre = CDbl(Replace(LeNombreEnTexte,"*",""))

ou LeNombreEnTexte est donnée par la valeur de ta cellule
ex :
si le nombre est en A1

Code :

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

LeNombre = CDbl(Replace(Range("A1).value,"*",""))

on verra mais la je suis plus la pour la journée

bubaille

[VBBBA]

Je viens de remarquer qu'en copiant les exemples, les fameux espaces sont remplacées par des * !!!!!!!!!!

la declaration de la variable le nombre doit se faire sous quel type?

Ca beugue et m'affiche incompatibilité de type!

[ouskel'n'or]

Joins ton fichier, on parle dans le vide, là. As-tu essayé de remplacer, dans toute la colonne, l'espace par un espace. J'ai eu le cas et ça a fonctionné.
Sinon... Copie ta feuille dans un fichier vierge, tu le zippes et tu le joins.
A+

[VBBBA]

OK je vous envoye le fichier c'est la dernière colonne qui me pose le pb

Merci en tou cas

[wilfried_42]

Bonjour à tous


Ton fichier en retour avec soit fonction perso, soit ue macro à lancer qui traite toute la colonne G

Bonne journée

[VBBBA]

Et quesque tu fais des décimales
Mais je vais le mettre à ma sauce.
Merci

[wilfried_42]

re:

je ne comprends pas ta question, elles y sont les decimales !!!!!!!!

@ te lire

[ouskel'n'or]

Ton espace est unchr(167) (Alt+255) c'est pour ça !
Ensuite, le format de chaque cellule est "Texte". Malheureusement le changement de format ne suffit pas
Bref, une macro pour faire le travail

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Remplacer_Chr255_par_Chr67()
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    Columns("G:G").NumberFormat = "0.00"
    For i = 1 To DerniereLigne
        Range("G" & i) = Val(Range("G" & i))
    Next
End Sub

A+

[VBBBA]

Pour la derniere solution
la macro, pour 566*796,56 par exemple me renvoit 566,00 dans la cellule!!

Je continue à fouiller...

[wilfried_42]

re:

tu n'avas mis que des valeurs, pas des formules dur dur

dans la macro

Code :

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

If Mid(Range("G" & j).Value, i, 1) = "," Then

devient :

Code :

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

if instr(",+-/*",mid(range(G" & j).value > 0 then

si tu as des formules, il faut initialiser newval = "="

salutations

[ilcocodrillo]

Utilise la commande "convertir" du menus "données" en ayant d'abord pris soin de sélectionner le colonne et qu'il n'y ai rien à droitre de celle ci. puis tu choisi "délimité,suivant, tu sélectionne comme caractère séparateur * et puis tu clique sur suivant puis terminer et voilà