[VBA]Créer une zone de texte dans Excel Fermé

Question

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 


Configuration: Windows Seven 
Office 2007

gbinforme · Accepted Answer

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

Le Pingou · Answer

Bonjour,
Demain dans la matinée...!--
Salutations.
Le Pingou

[VBA]Créer une zone de texte dans Excel

2 réponses

Discussions similaires