Macro excel: mettre une variable dans un bloc texte ?

Résolu
Roger -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

6 réponses

Réponse 1 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Chez moi y a pas de probleme.
Vous lancez le code de quelle facon?
0
Réponse 2 / 6
Roger
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Pouvez mettre votre fichier a dispo?

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
0
Réponse 3 / 6
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
"Refus systématique": message d'erreur?
0
Réponse 4 / 6
Roger
 
Erreur d'exécution '-2147024809 (80070057)'
L'index de cette collection est en dehors de limites

Merci
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
voyons le code complet dans le fichier partagé.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Roger
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
as-tu partagé le fichier?
j'ai testé le code, il fonctionne très bien chez moi.
as-tu essayé dans un fichier vide?
0
Réponse 6 / 6
Roger
 
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
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses