Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
Salut William! :O)
Boucle la collection de contrôles du formulaire et vérifie le type du contrôle courant à l'aide l'expression TypeOf comme ceci :
'*** ' Form1 ' Contient un paquet de contrôle dont quelques Frame Option Explicit
Private Sub Form_Load() Dim ctl As Control For Each ctl In Me.Controls If TypeOf ctl Is Frame Then Dim fra As Frame Set fra = ctl fra.BackColor = &HFF End If Next ctl End Sub '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous "William" wrote in message news:blkjff$obk$
comment lister par exemple tous les controles de meme nature ?
exemple g ds ma feuille des texbox, des label, des framebox.
ex: je veux changer la couleur de texte (forecolor) de tous les framebox présent dans ma feuille
Salut William! :O)
Boucle la collection de contrôles du formulaire et vérifie le type du
contrôle courant à l'aide l'expression TypeOf comme ceci :
'***
' Form1
' Contient un paquet de contrôle dont quelques Frame
Option Explicit
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is Frame Then
Dim fra As Frame
Set fra = ctl
fra.BackColor = &HFF
End If
Next ctl
End Sub
'***
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"William" <zititeuf@voila.fr> wrote in message
news:blkjff$obk$1@news-reader3.wanadoo.fr...
comment lister par exemple tous les controles de meme nature ?
exemple g ds ma feuille des texbox, des label, des framebox.
ex: je veux changer la couleur de texte (forecolor) de tous les framebox
présent dans ma feuille
Boucle la collection de contrôles du formulaire et vérifie le type du contrôle courant à l'aide l'expression TypeOf comme ceci :
'*** ' Form1 ' Contient un paquet de contrôle dont quelques Frame Option Explicit
Private Sub Form_Load() Dim ctl As Control For Each ctl In Me.Controls If TypeOf ctl Is Frame Then Dim fra As Frame Set fra = ctl fra.BackColor = &HFF End If Next ctl End Sub '***
