|
En Visual Basic comment faire une boucle pour éviter de taper ce qui suit? UserForm1.Image2.Visible = False
UserForm1.Image3.Visible = False
UserForm1.Image4.Visible = False
UserForm1.Image5.Visible = False
UserForm1.Image6.Visible = False
UserForm1.Image7.Visible = False
UserForm1.Image8.Visible = False voici deux façons de faire. Selon les cas, on pourra préférer l'une ou l'autre. Dans le cas présent, la première ferait très bien l'affaire
'http://www.excel-downloads.com/html/French/forum/messages/1_96029_96029.htm
'
'Ti 18/06/04
'
Private Sub Test1()
Dim Bcle%
For Bcle = 1 To 4
Controls("Image" & Bcle).Visible = False
Next Bcle
End Sub
Private Sub Test2()
Dim Ctrl
For Each Ctrl In Array(Image1, Image2, Image3, Image4)
Ctrl.Visible = False
Next Ctrl
End Sub
Date de création : 24/05/2005 - 19:15
Dernière modification : 25/05/2005 - 21:38
Catégorie : Images
Page lue 4471 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 41
Haut 
