Discussion :

[Yullll]

Bonjour a tous,

Voici mon problème je cherche a exploiter un fichier source, mais le problème c'est que les créateurs mon glissé aléatoirement des apostrophe dans certaines cellules.
Du coups impossible de faire avec de la manipulation de chaîne de caractère avec Right, left ou mid (je penses).
Voici le genre de données que je vais avoir dans une colonne :
- 4600
- '4600
L'apostrophe se trouve toujours au début et après une grosse après midi a me penché sur une solution pour l'enlever, j'abdique ...

Avez vous une idée pour sortir tous les apostrophe devant mes data dans une colonne par exemple ?

Par avance merci de votre aide !!

[unparia]

Bonjour
2 questions qui appellent 2 réponses précises
- Quelle(s) est/sont la/les colonne(s) concernée(s) ?
- lorsqu(apostrophe : toujours uniquement devant et toujours devant un chiffre ?

[Yullll]

Oui, il est toujours devant un chiffre, mais pas présent dans toutes les cellules !
Les data a traitées sont dans la colonne C.
J'ai également testé replace mais rien y fait :

Code :

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

Cells(i, 3).Value = Replace(Cells(i, 3).Value, "'", "")

[Jean-Philippe André]

salut,

et en pointant sur la formule directement ?

Code :

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

Cells(i, 3).Formula = Replace(Cells(i, 3).formula, "'", "")

[Yullll]

Je viens d'essayer mais rien n'y fait !

[Jean-Philippe André]

Etrange, pourrait-on avoir un echantillon de ton fichier Excel stp ?

[unparia]

Cequi veut dire que tu n'as pas affaire au caractère '
1) Que te retourne :
msgbox asc(mid(cells(1,3).text,1,1))
en remplaçant cells(1,3) par une cellule où yu as ce '
2) regarde si par hasard le format d'une telle cellule ne force pas cet affichage d'un ' devant

edit :
que se passe-t-il si tu fais :

Code :

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

Cells(1, 3).Value = Cells(1, 3).Text

[Yullll]

Bonjour, j'ai essayé :

Code :

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

Cells(1, 3).Value = Cells(1, 3).Text

Ca ne fait rien également. J'ai également essayé plusieurs formats et ca n'a rien donné.

Ton MsgBox me renvois 73 sur une cellule ou est afficché : '4600HH

Merci de ton aide, je vois pour mettre un bout du fichier !

[Jean-Philippe André]

Oulah !

As-tu le format Formules qui est affiche ?