Discussion :

[ddsjm]

Bonjour,

Je colle un tableau sous excel à l'aide d'une macro. Certaines cases sont sous la forme : "## - ##" avec # étant un chiffre.

Lors du collage spécial texte, excel transforme ces cases en date

Comment faire pour récupérer les informations d'origine? Est-il possible de supprimer ce format automatique?

Merci d'avance de vos réponses

[DeaD78]

Bonjour,

As-tu utilisé ce type de PasteSpecial ?

Code :

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

1
2
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

A la base, avant le copier que tu fais, as-tu affaire à des dates ? Il faut comprendre, dans le cas contraire, pourquoi, alors que tu as copié du texte classique et collé seulement des valeurs et non des formats (cf. mon PasteSpecial), tu obtiens des dates. Ne sélectionnes-tu pas la Range comprenant ces valeurs quelque part dans code et ne leur attribues-tu pas un format date ?

[ddsjm]

Bonjour,
Dead78 mer
ci pour ta réponse.

J'ai bien utilisé un paste special en précisant le format :

Code :

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

ActiveSheet.PasteSpecial Format:="Texte", Link:=False

J'ai essayé le paste de Dead78 mais j'ai une erreur lors de l'execution sur cette ligne.

Je copie un élément extérieur à excel qui n'est pas une date, ex : "5 - 6" et je ne déclare jamais le format de date dans la macro.
Manuellement, pour garder ce format, il suffit de taper un apostrophe avant ( '5 - 6).

Mais comment faire avec un collage? Est-il possible de désactiver totalement la mise sous forme de date automatique?

Merci d'avance de vos réponses.

[DeaD78]

Bon,

Code :

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

1
2
3
4
5
Range("A1:Z500").Select
    Selection.NumberFormat = "@"
'Et là tu fais ton Paste
Range("A1:Z500").Select
Selection.NumberFormat = "General"

Mets le Range qui t'arrange par contre.

Cette solution marche correctement pour ce qui t'intéresse. D'un autre côté, elle ne me plaît pas trop. De plus, c'est bizarre que ma ligne ne marche pas, elle provient de l'enregistreur de macros

[ddsjm]

Merci beaucoup pour ta réponse, ça marche nickel.
J'ai fait une modification sur le paste, j'ai remplacé Selection par ActiveSheet. Je pense que le problème vient de là.
@+++