Discussion :

[Akhekhu]

Bonjour le forum,
Je rencontre un problème pour copier une date contenue dans une cellule dans une zone de texte spécifique. J'ai d'abord tenté la même méthode que pour du texte : soit

Code :

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

Worksheets("Infos").Shapes("ZT_Nom_projet").TextFrame.Characters.text = Worksheets("Infos").Cells(1,1).Value

mais il apparaît que pour une date, le format n'est pas conservé. je m'explique :
J'ai dans une cellule une date "05/04/16" avec le .NumberFormat = "dd/mm/yy;@" et une lecture à la française (5 avril).
Lorsque j'exécute le code suivant

Code :

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

Worksheets("Infos").Shapes("ZT_Date_debut").TextFrame.Characters.text = Worksheets("Infos").Cells(2,2).Value

il m'écrit dans la zone de texte "4/5/16" donc le format n'est pas conservé, et la date est passée en mode américain.

En testant le Copier/Coller valeur à la main cela fonctionne, donc j'ai enregistré une macro mais celle-ci n'est pas automatisée, et on voit clairement la valeur de la cellule dans le code

Code :

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

1
2
3
4
    Range("A2").Select
    Selection.Copy
    ActiveSheet.Shapes.Range(Array("ZT_Date_fin")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = "05/04/16 "

En cherchant un moment sur internet, je n'ai pas trouvé de code pour l'opération c/c d'une cellule à une zone de texte, mais que dans le sens inverse.

Si quelqu'un a une idée je suis preneur, que ce soit avec ou sans c/c, mais de manière à avoir dans la zone de texte la même date au même format !

[cerede2000]

Je viens de faire le test dans un nouveau classeur.

Je ne rencontre pas ce soucis (XL2016).

Après avoir créé une zone de texte, je saisi une date dans une cellule directement : 10/02/2016
Le format s'applique en auto et quand je vais chercher la valeur de la cellule pour la mettre dans la ZT, le format est correct.

Essaye avec ceci :

Code :

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

Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = Format(ActiveCell.Value, "dd/mm/yyyy")

[Akhekhu]

Arf, c'était si simple d'appliquer un format durant la copie que je n'y ai même pas pensé.
Cela fonctionne du coup sans souci, merci beaucoup de l'astuce !

[Marc-L]

Bonjour, bonjour !

En fait il n'y a même pas besoin d'astuce mais d'au moins deux sous de jugeote !

Pourquoi donc utiliser la propriété Value au lieu de la propriété Text renvoyant l'affichage ?‼

Et pourtant rien n'est caché, c'est indiqué dans l'aide VBA interne, il suffit de l'ouvrir !

Voilà, voilà !

______________________________________________________________________________________________________

Je suis Paris, Charlie, …