Discussion :

[stridy]

Bonjour à tous,

J'essaye de récupérer la valeur et le format d'une cellule pour l'inclure dans une zone de texte placée dans une autre feuille.

J'arrive à récupérer la valeur par ce biais :

Code :

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

Sheets("Baltec").Shapes("Carr" & j).TextFrame.Characters.Text = ActiveCell.Value

Mais pour la forme je ne vois pas.

J'ai essayé les paste special ou autre mais rien n'y fait, je ne trouve pas.

Merci d'avance!

[Philippe Tulliez]

Bonjour,
Une petit exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
  Dim sht As Worksheet, rng As Range, shp As Shape
  Set sht = ThisWorkbook.Worksheets("Feuil1")
  Set rng = sht.Range("A2")
  Set shp = sht.Shapes("maZoneTexte")
  shp.TextFrame.Characters.Text = rng.Value  ' Valeur de cellule
  shp.Fill.ForeColor.RGB = rng.Interior.Color ' Couleur intérieure
  With shp.TextFrame2.TextRange.Characters.Font ' Police
  .Bold = rng.Font.Bold: .Italic = rng.Font.Italic: .Fill.ForeColor.RGB = rng.Font.Color
  End With
End Sub

[stridy]

Merci infiniment, je regarde de suite.

Par contre je suis surtout embêté par le format en terme d'unité.

Plus précisément j'ai des valeurs en centimètres, décibels etc et je n'arrive pas à afficher le " cm" ou " db" de la cellule d'origine.

[Philippe Tulliez]

Bonjour,
L'enregistreur de macros est ton meilleur ami. Tu regardes ce qu'il te donne comme code et tu adaptes en fonction de tes besoins.
C'est ce que j'ai fait pour t'envoyer cette procédure.

[stridy]

Salut Philippe et merci pour ta réponse.

Justement je suis embêté là dessus : impossible de coller le contenu d'une cellule dans un shape en manuel.

Dois-je comprendre que c'est infaisable même en vba?

[Philippe Tulliez]

Bonjour,
Pour ce cas bien précis, pour connaître les propriétés à utiliser pour l'objet Shape, tu fais une simulation en tapant le texte, en mettant la couleur de fond, la couleur de la police etc...