[E-00] condition sur un textbox

bonjour,

je voudrais faire un code pour tous mes textbox d'une feuille.
j'ai codé ainsi :

Code:

---

1 2 3 4 5 6 7 8 9

Dim tx As shape For Each tx In ActiveSheet.Shapes If TypeOf tx.Object Is MSForms.TextBox Then tx.BackStyle = 0 tx.SpecialEffect = 0 End If Next tx

---

j'ai une erreur sur la ligne en rouge

merci pour vos réponses

Je ne sais pas où tu as vu que "Object" était une propriété d'un objet Shape...
En tout cas c'est ça qui fait planter c'est sûr. ;)

Bonsoir anyah, decondelite,

Peut-être, peux-tu essayer comme ça :

Code:

---

1 2 3 4 5 6 7 8

Dim tx As OLEObject   For Each tx In ActiveSheet.OLEObjects If TypeOf tx.Object Is MSForms.TextBox Then tx.Object.BackStyle = 0 tx.Object.SpecialEffect = 0 End If Next tx

---

Cordialement,
Didier_mDF

Effectivement je n'avais même pas percuté qu'il s'agissait d'un OLEObject... :oops:

bonjour à vous deux, tout d'abord merci de m'avoir répondu
effectivement shape et object bah ... ca va pas trop ensemble :oops:
et j'ai vraiment pas pensé a OLEObjects, merci pour ce petit code qui marche nickel :D

bonne journée