XL 2010 Changer le BackColor de plusieurs TextBox à la fois

Magic_Doctor · 6 Septembre 2021

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 :

VB:

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 · 6 Septembre 2021

Bonjour,

VB:

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

Magic_Doctor · 6 Septembre 2021

Bonjour Dudu2,

Impeccable, ça marche.
Merci.

XL 2010 Changer le BackColor de plusieurs TextBox à la fois

Magic_Doctor

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

Discussions similaires