Macro excel: mettre une variable dans un bloc texte ? Résolu

Question

Bonjour, 
Macro excel: mettre une variable dans un bloc texte ? 
   Dim variable as string
   variable = "essai"
   Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = variable
Refus systématique,ne comprend que :
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "essai"
Merci

f894009 · Answer

Bonjour,

Chez moi y a pas de probleme.
Vous lancez le code de quelle facon?

Roger · Answer

Bonjour
l'utilisateur peut réaliser un tri sur différentes randonnées que je positionne sur un plan. Pour l'édition , suivant le tri effectué, j'affiche un boite message msgbox et demande de taper un titre.
Je lance une macro qui m'édite le plan et sur ce plan, je veux mettre le titre par l'intermédiaire d'un bloc texte ; ca bloque
Merci pour votre aide

yg_be · Answer

bonjour,
"Refus systématique": message d'erreur?

Roger · Answer

Erreur d'exécution '-2147024809 (80070057)'
L'index de cette collection est en dehors de limites

Merci

Roger · Answer

Sub Macro3()
'
' Macro3 Macro
'
    Dim variable As String
      variable = "essai"
'
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 162.75, 48.75, 240 _
        , 41.25).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = variable
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5).ParagraphFormat. _
        FirstLineIndent = 0
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    Range("C6").Select
End Sub


Rien à faire toujours en défaut
Merci pour votre réponse

Roger · Answer

Bonjour
PB résolu
    Dim titre As String
    titre = Range("A4").Value    
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 756.8, _
        173.2, 975, 91.3).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 40
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = titre
    Range("A1").Select
Merci pour votre aide

Macro excel: mettre une variable dans un bloc texte ?

6 réponses

Discussions similaires

Newsletters