Lier zone texte dans une cellule [Résolu]

Signaler
Messages postés
307
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
10 juillet 2021
-
Messages postés
10198
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juillet 2021
-
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

Messages postés
54311
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
29 juillet 2021
16 289
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 ?

Messages postés
307
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
10 juillet 2021

Oui c'est pour copier le texte de la zone texte entièrement dans la cellule A1
Messages postés
10198
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juillet 2021
1 168
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
Messages postés
307
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
10 juillet 2021

Merci Le Pingou, ça marche à merveille.
Je remercie aussi Raymond pour s'intéressé sur le sujet.
Bonne soirée a vous deux
Cordialement
Messages postés
54311
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
29 juillet 2021
16 289
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 ?
Messages postés
307
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
10 juillet 2021

Bonne question, je pensais bien faire, désolé pour le manque de précision
Messages postés
10198
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juillet 2021
1 168
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...)