Lier zone texte dans une cellule
Résolu
mic6259
Messages postés
342
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 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
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
A voir également:
- Lier zone texte dans une cellule
- Excel cellule couleur si condition texte - Guide
- Alternative zone telechargement - Accueil - Outils
- Aller à la ligne dans une cellule excel - Guide
- Transcription audio en texte word gratuit - Guide
- Proteger cellule excel - Guide
5 réponses
Bonjour.
Avant tout, te serait-il possible d'expliquer ce que veut dire ta question :
Pour moi, elle n'a vraiment aucun sens ...
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 ?
Bonjour,
Eh bien, essayez donc le code ci-après (salut Raymond)
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
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 ?
Pourquoi n'as-tu donc pas copié ton texte directement dans la cellule A1 au lieu de le copier dans une zone de texte ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question