Lier zone texte dans une cellule

Résolu/Fermé
mic6259 Messages postés 329 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 29 novembre 2022 - 10 juil. 2021 à 07:44
Le Pingou Messages postés 11321 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2022 - 10 juil. 2021 à 22:24
Bonjour,
Serait-il possible de lier la zone texte dans la cellule A1?
J'ai regarder dans le web sans succès
Merci beaucoup

https://www.cjoint.com/c/KGkfRKyqyBl

5 réponses

Raymond PENTIER Messages postés 56854 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 5 décembre 2022 17 183
10 juil. 2021 à 18:43
Bonjour.

Avant tout, te serait-il possible d'expliquer ce que veut dire ta question :
"Serait-il possible de lier la zone texte dans la cellule A1?"
.
Pour moi, elle n'a vraiment aucun sens ...
  • tu veux insérer la zone de texte à l'intérieur de la cellule ?
  • tu veux recopier le contenu de la zone de texte dans la cellule ?
  • tu veux déplacer la zone de texte quand tu fais glisser ta cellule à un autre emplacement ?
  • tu veux sélectionner la zone de texte quand tu cliques dans la cellule ?
  • autre chose ?

0
mic6259 Messages postés 329 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 29 novembre 2022
10 juil. 2021 à 18:54
Oui c'est pour copier le texte de la zone texte entièrement dans la cellule A1
0
Le Pingou Messages postés 11321 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2022 1 316
10 juil. 2021 à 18:59
Bonjour,
Eh bien, essayez donc le code ci-après (salut Raymond)
Sub ZoneTextedansA1()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 60 * 72 / 25.4, 30 * 72 / 25.4).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"Lier la zone de texte " & Chr(13) & "(Zone Texte 1)" & Chr(13) & "à la cellule A1"
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
msoAlignCenter
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent5
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.6000000238
.Transparency = 0
.Solid
End With
Selection.Placement = xlFreeFloating
Columns("b:b").ColumnWidth = 6 * 5.2834
Rows("1:1").RowHeight = 3 * 28.5
Range("A2").Select
End Sub
0
mic6259 Messages postés 329 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 29 novembre 2022
10 juil. 2021 à 19:08
Merci Le Pingou, ça marche à merveille.
Je remercie aussi Raymond pour s'intéressé sur le sujet.
Bonne soirée a vous deux
Cordialement
0
Raymond PENTIER Messages postés 56854 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 5 décembre 2022 17 183
10 juil. 2021 à 19:14
Désolé ; je ne sais pas faire ça !

Pourquoi n'as-tu donc pas copié ton texte directement dans la cellule A1 au lieu de le copier dans une zone de texte ?
0
mic6259 Messages postés 329 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 29 novembre 2022
10 juil. 2021 à 19:17
Bonne question, je pensais bien faire, désolé pour le manque de précision
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le Pingou Messages postés 11321 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2022 1 316
10 juil. 2021 à 22:24
Bonjour,
Eh bien oui ,Raymond à raison (amicale salut Raymond), c'est plus simple de copier le texte dans la cellule et en plus se sera aussi plus simple de le manipuler ( ajout, correction, ect...)
0