en plus simple????

[matthieu2]

bonjour a tous

quand je veu afficher par macro une image je met:

Me.image1.visible = true.......;
ca c bon
le prob c'est que sur ma feuille excel jai 19 image qui saffiche selon une combobox.....
if combobox1='blablabla' then
Me.image1.visible = true
Me.image2.visible = true....etc
Me.image15.visible = false...etc
jusqu'a 19

il y a t il un moyen de dire
if combobox1='blablabla' then
me.image1 'a' 14 = true
Me.image 15 'a' 19 = false

ca pourrait meconomiser un paquet de ligne...
merci pour vos reponse

:woohoo:

 

[CBernardT]

Bonsoir Mathieu,

Peut-être un code de ce style pourra-t-il te débloquer ?

If combobox1 = 'blablabla' Then
For i = 1 To 14
form = Me.image & i
form.Visible = True
Next i
For i = 15 To 19
form = Me.image & i
form.Visible = False
Next i

Cordialement

Bernard

Message édité par: CBernardT, à: 07/10/2005 22:49

 

[Hervé]

Bonsoir Matthieu, CbernardT, le forum



Sinon une autre syntaxe possible :

If combobox1 = 'blablabla' Then
    For i = 1 To 14
        Controls('image' & i).Visible = True
    Next i
    For i = 15 To 19
        Controls('image' & i).Visible = False
    Next i
End If

salut

 

[matthieu2]

merci beaucoup

 

[matthieu2]

merci beaucoup

 

[matthieu2]

o secour CBernardT

le code que tu ma passer a un petit problème
je lai deja modifier comme ceci

Private Sub ComboBox1_Change()
If ComboBox1 = 'BLABLA' Then
For i = 1 To 14
form = ('image' & i)
form.Visible = True
Next i
For i = 15 To 19
form = ('image' & i)
form.Visible = False
Next i
End If
End Sub

pcq le ME.IMAGE ca plantais ca me disai 'erreur de compilation...membre de methode ou de donnée introuvable'

ensuite avec ce que jai changer ca me met 'erreur d'execution 424 objet requis' et ca me met la ligne
form.Visible = True
en jaune
mais je vois pas ou est le problème

j'espère que tu pourra m'aider