en plus simple????

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

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

Cliquez pour agrandir...

salut

merci beaucoup

merci beaucoup

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