Collection Textbox

Résolu
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je réveille une demande datant d'une dizaine de jours

Dans ma feuille j'ai 4 textbox nommés tb1, tb2, tb3, tb4
Je voudrais accéder à l'un quelconque d'entre eux via une variable contenant son nom/numero
j'ai tenté

Shapes("tb" & nums).Select
Selection.ShapeRange.ZOrder msoBringToFront
Shapes("tb" & nums).Locked = False
Shapes("tb" & nums).Text = "toto"

les trois premières instructions fonctionnent bien mais l'accès à la propriété Text m'est refusée "propriété ou méthode non gérée par cet l'objet" (rien détonnant puisqu'elle elle ne figure pas dans les propriétés disponibles d'un objet shape!!)
J'ai aussi tenté sans succès
Shapes("tb" & nums).Characters.Text = "toto"
Il doit y avoir une sombre histoire de Collection là dessous, mais je n'y arrive( toujours) pas

https://www.cjoint.com/c/CJEnOrMgH11

Je suis sous Excel 2003

Merci

2 réponses

Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Tu peux essayer avec
ActiveSheet.OLEObjects("tb" & nums).Object.Value = "toto"

A+
1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Merci Gyrus, très bonne solution!

Cordialement
0