VBA Selectionner Textbox --> problème

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:

---

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:

---

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?

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 ‼ :roll:

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Salut,

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

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.

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

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

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: 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 …

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:

---

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:

---

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.

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:

---

1 2 3

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

---

__________________________________________________________________________________________

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


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

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?

Oups ! :oops:

Code:

---

1 2 3

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

---

Ou encore :

Code:

---

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 :plusser: pour chaque message ayant aidé puis sur :resolu: 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 …

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à.

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:

---

.properties

---

me semble-t-il.


Cordialement MlNOU.

Non le

Code:

---

.Properties

---

ne marche pas en excel 2003....

He bien je ne sais pas alors.:calim2:

Dsl

Cordialement MlNOU.

Code:

---

1 2 3 4

With shape .top=100 .left=100 end with

---

En pixels