[VBA]Créer une zone de texte dans Excel
Raph04
Messages postés
182
Statut
Membre
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je souhaiterais créer une Zone de texte en VBA pour la mettre directement dans un Excel (pas un formulaire).
Ensuite je souhaiterais copier les valeurs de certaines cellules pour les mettre les une à la suite des autres dans la Zone de textecréée juste avant.
Je n'ai pas trouver la fonction pour créer la Zone de texte. Quand j'enregistre une Macro, il ne met rien du tout lorsque je créer la Zone de texte... comme si la Zone de texteété apparue par miracle ou qu'elle avait toujours été là.
Est ce que vous connaissez la fonction pour créer la Zone de texteavec des paramètres d'entrée comme la je pourrais adapter sa taille et son emplacement.
Merci
PS : Je suis sur Excel 2007
Je souhaiterais créer une Zone de texte en VBA pour la mettre directement dans un Excel (pas un formulaire).
Ensuite je souhaiterais copier les valeurs de certaines cellules pour les mettre les une à la suite des autres dans la Zone de textecréée juste avant.
Je n'ai pas trouver la fonction pour créer la Zone de texte. Quand j'enregistre une Macro, il ne met rien du tout lorsque je créer la Zone de texte... comme si la Zone de texteété apparue par miracle ou qu'elle avait toujours été là.
Est ce que vous connaissez la fonction pour créer la Zone de texteavec des paramètres d'entrée comme la je pourrais adapter sa taille et son emplacement.
Merci
PS : Je suis sur Excel 2007
2 réponses
-
bonjour
Un petit exemple pour t'aider à démarrer avec les paramètres de base :
Sub créer_zone_texte() ' ' créer_zone_texte Macro ' ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 71.25, 45#, _ 221.25, 144.75).Select Selection.Name = "Ma_zone" Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.SchemeColor = 27 Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.Characters.Text = Range("F2").Text _ & " " & Range("K7").Text With Selection.Characters(Start:=1, Length:=26).Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With End Sub -
Bonjour,
Demain dans la matinée...!--
Salutations.
Le Pingou
