Affecter une valeur à une textbox sur toutes les feuilles

Bonjour,

Je cherche à créer un petit code pour affecter une certaine valeur à toutes les textbox1 de toutes les feuilles du classeur.

Sachant que mon classeur peut contenir un nombre variable de feuilles en fonction de mes besoins.

Il y aura cependant toujours une textbox1 sur chaque feuille.

J'ai essayé en sélectionnant toutes les feuilles du classeur

Merci pour votre aide.

sub toto()
for each sh in thisworkbook.worksheets
sh.shapes("TextBox 1").textframe.characters.text = "Easy"
next sh
end Sub

Bonjour,

ce sont des textbox Formulaire ou ActiveX ?

eric

Merci EngueEngue et eriiic,

Ce sont des Textbox ActiveX

Ca ne fonctionne pas chez moi?

sub toto()
for each sh in thisworkbook.worksheets
sh.TextBox1.value = "Encore plus Easy"
next sh
end Sub

Merci c'est parfait!!