Lier zone texte dans une cellule

Résolu
mic6259 Messages postés 371 Statut Membre -  
Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   -
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

  1. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    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
  2. mic6259 Messages postés 371 Statut Membre 1
     
    Oui c'est pour copier le texte de la zone texte entièrement dans la cellule A1
    0
  3. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    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
    1. mic6259 Messages postés 371 Statut Membre 1
       
      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
  4. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    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
    1. mic6259 Messages postés 371 Statut Membre 1
       
      Bonne question, je pensais bien faire, désolé pour le manque de précision
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    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