Copie d'une feuille - Limite de 255 caractères dans la cellule

[blord]

Bonjour à tous,

Lorsque l'on copie une feuille (Excel 2003) vers un nouveau ou un autre classeur, Excel averti que les cellues qui contiennent plus de 255 caractères seront tronquées.

Existe-t-il une façon d'outre-passer cette restriction lorsque l'on passe par une macro pour copier une feuille ?

Outre le fait qu'il est toujours possible de modifier la macro pour qu'elle fasse un copier/coller des cellules ayant plus de 255 caractères...

Merci à tous !

Blord

 

[sabrina78]

Re : Copie d'une feuille - Limite de 255 caractères dans la cellule

Bonjour,

Si tu souhaites ne pas avoir ce message tu peux mettre en début de macro

Application.ScreenUpdating = False

et en fin de macro

Application.ScreenUpdating = true

Mais je ne pense que les données seront quand même tronquées.

Sabrina

 

[blord]

Re : Copie d'une feuille - Limite de 255 caractères dans la cellule

Bonjour Sabrina,

Effectivement, les données sont quand même tronquées !

Merci !

 

[jeanpierre]

Re : Copie d'une feuille - Limite de 255 caractères dans la cellule

Bonsoir blord, Sabrina,

Malgré pleins d'essais, je ne vois pas. Les données seront toujours tronquées à 255 caractères.

Ceci dit, les possiblités d'excel sont grandes et celles des contributrices et contributeurs d'ici encore plus....

Voir et à suivre.

Jean-Pierre qui vous souhaite bonne soirée.

 

[blord]

Re : Copie d'une feuille - Limite de 255 caractères dans la cellule

Merci Jean-Pierre pour les efforts !

Blord

 

[myDearFriend!]

Re : Copie d'une feuille - Limite de 255 caractères dans la cellule

Bonsoir blord, sabrina78, jeanpierre,

Si tu copies une feuille de données, les cellules > à 255 caractères seront tronquées.

Mais, sauf erreur, si tu copies, non plus la feuille, mais les cellules elles-mêmes, alors il n'y aura pas cette limite.

Autrement dit, en faisant :

    [COLOR=GREEN]'Crée un nouveau classeur en copiant la feuille 1[/COLOR]
    ThisWorkbook.Sheets(1).Copy

tes cellules contenant plus de 255 caractères seront tronquées.

Mais en faisant cette fois :

    [COLOR=GREEN]'Crée un nouveau classeur en copiant la feuille 1[/COLOR]
    ThisWorkbook.Sheets(1).Copy
    [COLOR=GREEN]'Recopie l'ensemble des cellules (entières!) dans le nouveau classeur[/COLOR]
    ThisWorkbook.Sheets(1).Cells.Copy Destination:=ActiveWorkbook.Sheets(1).Cells

Tu devrais retrouver ta feuille à l'identique.

A tester.

Cordialement,

 

[Cousinhub]

Re : Copie d'une feuille - Limite de 255 caractères dans la cellule

Bonsoir, Blord, JP, sabrina, Mdf

peut-être une autre variante :

Sub copie_sup_255()
 With Worksheets("provenance")
    P = .Range("A1:F150")
End With

With Worksheets("destination")
       .Range("A1").Resize(UBound(T, 1), UBound(T, 2)) = P
End With
End Sub

A adapter, bien sûr