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