Discussion :

[Kaya_VB_13]

Bonjour,

je veux créer une Textbox d'une certaine taille et puis la renommer. Pour la renommer, il faut d'abord sélectionner la Textbox.
Or c'est la sélection de la TextBox créée qui ne marche pas chez moi.
Pour détailler, je suppose de ne pas savoir le nom d'origine de la Textbox, donc par exemple je ne peux pas faire la ligne de code

Code :

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

ActiveSheet.Shapes("Textbox5").Select

, car je ne sais pas si la Textbox en question est la 5ème ou 6ème ou porte un quel numéro.

Mon code est le suivant:

Code :

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

1
2
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 196.5, 140.25, 26.25, 18#).Select
Selection.Name = "TextBox_CC"

J'ai déjà cherché plusieurs heures et dans différentes langues sur des divers forums pour trouver une solution, mais rien trouvé jusque-là.
Est-ce que quelqu'un peut m'aider pour résoudre ce problème?

[Marc-L]

Bonjour,

merci d'utiliser à l'avenir l'icône # pour le code …

Ton code fonctionne sur ma version, si au moins tu avais précisé la tienne ‼

Sinon tu n'as pas bien cherché ! Il n'est pas nécessaire, en fait plutôt déconseillé même, de sélectionner un objet pour le renommer !

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 196.5, 140.25, 26.25, 18).Name = "TextBox_CC" …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Kaya_VB_13]

Salut,

merci pour vos réponses, vous m'avez beaucoup aidé

et désolé de ne pas avoir utilisé le signe devant le code, c'est la première fois que j'ai posté qqch sur un forum.

Et pour préciser: j'utilise encore l'excel 2003 à l'instant.


Merci à tout le monde pour les réponses si rapides.

[Marc-L]

Et pourtant ton code d'origine fonctionne bien sur ma version 2003 …

Maintenant, merci d'appliquer la ligne ci-dessous !

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Quand un homme dit des obscénités à une femme, c'est un pervers. Quand une femme dit des obscénités à un homme, c'est 3€95 la minute …

[Kaya_VB_13]

Rebonjour,

pour renommer la Textbox cela fonctionne très bien, mais maintenant comment fais-je pour la modifier, p.ex. je veux insérer une Formule dans la TextBox etc...
Pour faire cela je dois la sélectionner non?

Le problème persiste: il ne veut pas sélectionner la TextBox.

Voici mon code:

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
19
20
21
22
23
24
25
26
27
28
29
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 196.5, 140.25, 26.25, 18#).Name = "TextBox_1"   
ActiveSheet.Shapes("TextBox_1").Select
    Selection.Characters.Text = ""
    Selection.Formula = "Données!C11"
    Selection.ShapeRange.ScaleWidth 0.91, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.88, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 65
    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 = msoFalse
    Selection.ShapeRange.IncrementLeft 260.5
    Selection.ShapeRange.IncrementTop 40.5
    With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

Même si je fais le code

Code :

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

ActiveSheet.Shapes("TextBox_1").Formula = "Données!C11"

il me fait une erreur.


Est-ce que qqn en connaît la cause ou la solution?

P.S.: J'utilisé comme précédemment noté, encore l'Excel 2003.

[Marc-L]

Formula n'est pas une propriété de Shapes, ne pas confondre avec une cellule ‼

Un TextBox est un objet graphique contenant uniquement du texte …


Et non, pas besoin de sélectionner un objet pour le modifier :

Code :

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

1
2
3
    With ActiveSheet.Shapes("TextBox_1")
        .Characters.Text = Worksheets("Données").[C11].Text
    End With

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Le taux de radiation est plus élevé au Pôle Emploi qu'à Fukushima.

[Kaya_VB_13]

J'ai essayé ton code ci-dessus et cela ne fonctionne pas chez moi en excel 2003, il me donne l'erreur: "Propriété ou méthode non gérée par cet objet".

Une suggestion pourquoi il me donne encore l'erreur?

[Marc-L]

Oups !

Code :

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

1
2
3
    With ActiveSheet.Shapes("TextBox_1")
        .TextFrame.Characters.Text = Worksheets("Données").[C11].Text
    End With

Ou encore :

Code :

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

1
2
3
4
    With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 196.5, 140.25, 26.25, 18)
                             .Name = "TextBox_1"
        .TextFrame.Characters.Text = Worksheets("Données").[C11].Text
    End With

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que l'on ne sait pourquoi …

[Kaya_VB_13]

Merci beaucoup, ca marche maintenant.

Et est-ce que tu sais la chose suivante:

Avant d'avoir créé ma textbox j'ai crée un graphique en bâtonnets verticaux.
Maintenant dans cette textbox j'ai écrit une valeur, et veut placer la textbox en une position précise du graphique.
Tu sais comment faire?

Je sais comment modifier la position du graphique, et de la TextBox, mais pas de la mettre en fonction de la position du graphique.
Si je pourrais récupérer d'une manière ou autre la position du graphique, cela m'aidera déjà.

[MlNOU]

Bonjour,

Tu dois doit pouvoir recuperer les coordonnés du graphique en accedant au propriétés du graphique et recuperer le X et le Y en utilisant

Code :

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

.properties

me semble-t-il.


Cordialement MlNOU.

[Kaya_VB_13]

Non le

Code :

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

.Properties

ne marche pas en excel 2003....

[MlNOU]

He bien je ne sais pas alors.

Dsl

Cordialement MlNOU.

[EngueEngue]

Code :

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

1
2
3
4
With shape
.top=100
.left=100
end with

En pixels