XL 2010 Changer le BackColor de plusieurs TextBox à la fois

[Magic_Doctor]

Bonjour,

Sur une feuille il y a plusieurs TextBox : "TxtBoxPP1", "TxtBoxPP2", ... , "TxtBoxPP7".
Je voudrais que le BackColor de tous ces TextBox soit jaune pâle. J'ai rédigé la boucle suivante :

Dim i As Byte

    For i = 1 To 7
        ActiveSheet.Shapes("TextBoxPP" & i).BackColor = &HC0FFFF  'jaune pâle
    Next

Ça ne marche pas. Comment s'y prendre ?

 

[Dudu2]

Bonjour,

    Dim i As Byte
 
    For i = 1 To 7
        ActiveSheet.OLEObjects("TextBoxPP" & i).Object.BackColor = &HC0FFFF  'jaune pâle
    Next i

 

[Magic_Doctor]

Bonjour Dudu2,

Impeccable, ça marche.
Merci.