Problème de concaténation

Bonjour le forum,
Dans une feuille de calcul je gère 20 zones de texte nommées Tbx_1 à Tbx_20.
Pour les afficher (ou les cacher), je fais appel à une boucle For

Code:

---

1 2 3 4

a = "Tbx_" For x = 1 To 20 a & x.Visible = False Next

---

Mais Excel n'est pas d'accord avec la syntaxe de concaténation.
J'ai essayé une autre approche mais sans plus de succès

Code:

---

1 2 3 4 5 6

Dim z As Control For Each z In ActiveSheet.Control If TypeName(z) = "Textbox" Then z.Visible = False End If Next

---

Un membre du forum aurait-il un conseil à me donner?

D'avance merci

Harry

Bjr

Code:

---

1 2 3

For n = 1 To 20 ActiveSheet.OLEObjects("Tbx_" & n).Visible = False Next n

---

Cdt

Bonjour Stef999,
merci pour la réponse.
Intégrée dans mon code, elle génère une erreur 1004 due à l'application ou l'objet
Y a-t-il une déclarative particulière?

Harry

Re,

Les TextBox sont bien nommées Tbx_1 à Tbx_20 ??? elles existent toutes ?

Cdt

Re,
Mea culpa.
Il s'agit bien de Textbox mais créés via l'onglet Insertion et renommés dans le volet de sélection et non des ActiveX
Toutes mes excuses de n'avoir pas précisé cet aspect dans le premier post.
Cela explique l'erreur sur OLEObject.
Vraiment désolé
Harry

Re,
Vous m'avez mis sur la bonne voie.
Le code

Code:

---

ActiveSheet.Shapes("Tbx_" & n).Visible = False

---

fait ce que je souhaite

Bon weekend

Harry