Discussion :

[pikron]

Bonsoir, je souhaite créer une zone de texte quand on appuie sur un bouton, mais j'ai une erreur : propriété ou méthode non gérée par cet objet
Ca marchait très bien avant, je n'ai changé que du code dans d'autres macro, et modifié mes userform entre temps.

Voici mon code (ramené à l'essentiel pour cette discussion)

L'erreur se trouve sur le .Font.Name et si je l'enlève, sur le .Text juste après
A savoir que la zone de texte est bien créée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub BtnCreer_Click()
    Dim inter As Worksheet
    Dim numGraphique As Integer
 
    Set inter = FeuilInter
 
 
    ' au débogage numGraphique=1
    numGraphique = inter.Range("A9").Value
 
    Charts(numGraphique).Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 172, 72).Select
    With Selection
        .Font.Name = "Arial"
        .Text = "Veuillez écrire votre texte."
    End With
 
End Sub

Merci d'avance

maintenant sans avoir RIEN changé du tout, j'ai juste fermé et réouvert le fichier, le .Font.Name marche, mais le .Text ne marche toujours pas... toujours même erreur
Incompréhensible !!!!

bon alors suite de l'épisode :
j'ai remplacé .Text par .Characters.Text, et je n'ai plus d'erreur,

PAR CONTRE le texte ne s'écrit pas du tout dans ma zone de texte mais dans la cellule qui était sélectionnée avant d'appuyer sur le bouton qui lance la macro
...donc le Selection contient cette cellule et non pas la zone de texte malgré le .AddTextbox(...).Select !!

[pikron]

OK, alors j'ai résolu mon problème :
Voici le nouveau code (copié à bbil sur le forum) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Dim inter As Worksheet
    Dim numGraphique As Integer
    Dim newTextBox As Shape
 
    Set inter = FeuilInter
 
    numGraphique = inter.Range("A9").Value
 
    Set newTextBox = Charts(numGraphique).Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 172, 72)
    With newTextBox
        .TextFrame2.TextRange.Font.Name = "Arial"
        .TextFrame2.TextRange = "Veuillez écrire votre texte."
    End With

Par contre je ne comprends pas pourquoi l'ancien code ne marche pas, sachant que je l'ai copié ici (tuto de fring) : http://fring.developpez.com/vba/excel/zonetxt/
partie 3 (insertion du texte dans la zone)

Si qqun a une réponse...