Discussion :

[anyah]

bonjour,

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

Code :

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

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

[decondelite]

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.

[myDearFriend!]

Bonsoir anyah, decondelite,

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

Code :

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

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

[decondelite]

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

[anyah]

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

bonne journée