Textbox affichage ou masquage multiple

bonjour,

Je souhaite afficher ou cacher plusieurs textbox sur ma feuille, ici Accueil, sachant qu'il y a 90 textbox grâce à du vba. Actuellement avec ce code chaque ligne fonctionne en individuelle. Mais je n'arrive pas à savoir ou mettre le a de la boucle pour simplifier

Version qui fonctionne mais 90 lignes
Worksheets("Acceuil").TextBox1.Visible = False
Worksheets("Acceuil").TextBox2.Visible = False
............

Worksheets("Acceuil").TextBox90.Visible = False

Version simplifier, mais je ne voit pas ou mettre le a avec la textbox

For a = 1 To 90

Worksheets("Acceuil").TextBox"a".Visible = False

Next a

bonjour,

Veuillez utiliser la balise </> pour passer du code.

La solution :

Worksheets("Acceuil").Shapes("TextBox" & a).Visible = False

A+

Bonjour et merci Galopin01 pour votre réponse.

J'ai fait un essai, cela fonctionne parfaitement.

Le code nouvelle version pour les 90 textbox sur ma feuille

For a = 1 To 90
Worksheets("Acceuil").Shapes("TextBox" & a).Visible = False
Next a

Par contre qu'est-ce que la balise </>, pour moi c'est une inconnue?

Merci.

Quand vous éditer une réponse c'est la quinzième icône parmi celle proposée...

A+

Bonsoir, encore merci et à très bientôt