Discussion :

[pouspa]

Bonjour,

J'utilise un logiciel tiers qui permet l'export de tableaux vers Excel.

En particulier, dans un des tableaux il existe des cellules dont le texte commence par le signe '-' (moins). Par exemple '-XXX'.

Dans Excel, après l'export, ces cellules contiennent la valeur '#NOM?', car Excel tente de résoudre la formule '=-XXX' par exemple.

Pour corriger cela à la main dans Excel, il me suffit de mettre ="-XXX" à la place, et tout va bien, ma cellule est bien interprétée comme du texte.

Comment puis-je automatiser cela simplement, afin de corriger d'un coup toutes les cellules concernées par ce problème ? Soit une correction après l'import, soit dans l'idéal modifier une option avant l'import qui permettrait de forcer Excel à ne pas interpréter le signe '-' comme étant une formule.

Merci d'avance pour votre aide !

[SilkyRoad]

bonsoir

Tu peux essayer de paramétrer les cellules au format "Texte" préalablement à l'import.

bonne soirée
michel

[ouisansdoute]

Bonjour,

Au moment de l'import d'un fichier texte, l'assistant d'importation propose à l'étape 3/3 de définir le format d'une colonne. Tu peux peut-être lui indiquer à cette étape que la colonne concernée est du texte.

[pouspa]

Bonjour,

Merci pour la réponse. Malheureusement cela ne fonctionne pas, car le logiciel tiers ouvre une nouvelle feuille excel directement avec les données.

Pour l'instant je m'oriente vers la piste suivante : puisque Excel considère qu'il s'agit d'une formule, je cherche une fonction qui me permette de manipuler la chaîne de caractère de la fonction...

Toutes les suggestions sont les bienvenues, je cherche toujours

Merci !

[pouspa]

Bonjour,

Finalement j'ai trouvé une solution en passant par du VBA...

Je créé une fonction qui écrase la valeur de la cellule par le texte de la fonction auquel j'enlève le '=', soit le premier caractère.

Avec la formule suivante : (pour la cellule A1 par exemple)

Code :

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

Feuil1.Cells(1, 1).Value = Right(Feuil1.Cells(1, 1).FormulaR1C1, Len(Feuil1.Cells(1, 1).FormulaR1C1) - 1)

Si des fois une personne trouve une solution plus élégante (et surtout plus simple) je suis preneur.

Merci encore et bonne journée.

[fring]

Bonjour,

Plus élégant je ne sais pas, plus simple pas vraiment mais plus court à écrire oui

Code :

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

1
2
3
With Feuil1
    .Cells(1, 1) = Mid(.Cells(1, 1).Formula, 2)
End With

[pouspa]

Beaucoup mieux en effet, merci !