Fond de feuille en fonction d'un index

Logiciel & apps Programmation
1

Je voudrai qu’une image de fond change en fonction du menu, j’explique :
J’ai une feuille qui est pareil pour tout, mais en fonction de si c un nouveau client ou un nouveau membre du personnel, le fond change.
j’ai deja un peu de code… j’ai un select pour l’image :
[cpp]
Select Case Index
Case 0
Picture = LoadPicture(App.Path & “\fond_clt.jpg”)
Case 1
Picture = LoadPicture(App.Path & “\fond_forf.jpg”)
Case Else
Picture = LoadPicture(App.Path & “\fond_prod.jpg”)

End Select
[/cpp]

et dans la feuille où il y a le menu, j’ai ca :
[cpp]
ajout.Show
Index = 0
Unload Menu
[/cpp]

Aurai-je fais une érreur ? (certainement mais je ne vois pas laquelle :()
:stuck_out_tongue:

2

merci de preciser le langage dans le titre :jap:

3

Ca ressemble trop à du VB tout ça :

Ton code est bien pour faire encore plus simple créer toi une sub dans ce style :

public sub Image_Fond(index as integer)
select case index
case 0
case 1
etc…
end select
end sub

et ensuite dans la feuille comme t’a fait mais avec une variante :

ajout.Show
Call Image_Fond(0)
Unload Menu

Comme j’aime trop les select case moi :slight_smile:

Bonne prog
@plus