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

[78chris]

Bonjour

Plage à adapter

Code :

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

1
2
3
4
    Dim cellule As Range
    For Each cellule In Range("A2:A50").Cells
        cellule.Value = cellule.Value * 1
    Next

L'apostrophe sert à forcer un nombre en texte (résidu des 1ers tableurs) et est considéré comme un caractère d’échappement pas comme une apostrophe.
La multiplication d'un texte par 1 le transforme en numérique si son contenu le permet sinon on obtient une erreur.

[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 ?

[78chris]

Re

Avez-vous vu mon post ?

[unparia]

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

Etrange, car le caractère de code 73 est ... la lettre i en majuscule et non ' !!!!!

[clementmarcotte]

Bonjour,

Ton fichier provient de quel programme ? Excel ou un autre ? Excel français, anglais ou autre ?

Et quel encodage ont-ils utilisé : ASCII, ANSI, Unicode ou autre ?

Ton fichier est-ce un classeur Excel fait sur Excel et en registré au format Excel ou un fichier importé ?

Parce que tes deux H me font penser que '4600HH pourrait peut-être être en fait le nombre hexadécimal 4600 (pas essayé de convertir en décimal)

Et est-ce que tes auteurs peuvent te dire si tes données sont passées par un fichier xml ? Parce que le mode d'encodage du fichier XML affecte la représentation des données du fichier Xml. Et si l'Importation du fichier xml est faite selon un encodage différent du fichier d'origine des distorsions peuvent survenir.

Juste pour le fun, si tu vas sur cette page, tu vas voir que VB.net peut utiliser cinq modes différents pour encoder un fichier texte: ASCII, Unicode, UTF32, UTF7 et UTF8

Et puis, cette page, pour l'encodage XML

J'ai comme l'impression que sans connaître la vraie origine de ton fichier, tu vas tourner en rond.

[clementmarcotte]

Bonjour

Re

Avez-vous vu mon post ?

Moi, oui. C'est plein de bon sens et surtout facile à essayer.

[eriiic]

Bonjour,

pour éviter d'avoir à gérer l'erreur sur la proposition de 78chris :

Code :

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

1
2
3
4
5
Dim c As Range
For Each c In [A2:A4]
    If c.PrefixCharacter = "'" Then c = c.Value
Next c
End Sub

L'apostrophe n'est enlevée que sur les numériques.
eric

[78chris]

Bonjour

Nickel le PrefixCharacter !

[Yullll]

Bonjour a tous, et merci pour vos réponse.

Effectivement ces données proviennes d'un Excel qui lui même provient d'un extraction, mais aucune idée du langage ou logiciel utilisé.
Dans mon cas effectivement il s'agit d'un texte forcé comme on me l'a proposé plus haut.
J'ai donc fais un mixe des solutions proposées plus haut:
Dans un premier temps je supprime les HH a la fin de mon nombre, puis après la solution qui fonctionne est celle de tout simplement multiplié la valeur par 1. Voici le code si ca peut aider quelqu'un plus tard ! A appliquer sur la zone que l'on souhaite !

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim c As Range
For Each c In [C2:C4]
c.Value = Left(c.Value, Len(c.Value) - 2)
If c.PrefixCharacter = "'" Then c = c.Value * 1
Next c
End Sub

Merci a tous pour votre aide !

[Invité]

Code :

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

1
2
[A2:A4].numberformat="General"
[A2:A4].value =[A2:A4].value

[Yullll]

Désolé rdurupt, ta solution ne fonctionne pas !

Par contre je viens de m’apercevoir que en colonne A j'ai des données de ce style et que mon code ne fonctionne pas car ce ne sont pas des nombre je penses.
Cette colonne rassemble toutes les références et certaines sont notées ainsi :

- '307-083-731-0

Toujours ce maudit apostrophe, la solution de multiplier ne fonctionne pas !

[eriiic]

Je n'avais pas mis *1 pour ne pas avoir cette erreur.
Si vraiment tu veux l'enlever également sur les chaines il faut leur appliquer un traitement spécifique.
eric