Discussion :

[Harry Covair]

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 :

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

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 :

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

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

[Stef999]

Bjr

Code :

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

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

Cdt

[Harry Covair]

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

[Stef999]

Re,

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

Cdt

[Harry Covair]

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

[Harry Covair]

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

Code :

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

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

fait ce que je souhaite

Bon weekend

Harry