EXCEL ANNEE 2017
L'heure est venue de vous presenter
Une excel et bonne annee 2017 !
De la part de toute l equipe de VeriTi
Sélection d'images
Publié par veriland le 12-Aug-2013 21:20 (1654 lectures)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
'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
| Naviguer à travers les articles | |
Insérer dans une shape |
|
|
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
|
||||
