Bonsoir,

alors j'ai bien regardé et j'ai téléchargé le fichier dans la rubrique http://excel.developpez.com/sources/...ameTransparent

mais j'ai un message que je n'arrive pas à corriger
Erreur d'execution 91
variable objet ou variable de bloc with non définie

après test il semble que ce soit sur ces deux lignes mais je ne vois pas où et pourquoi :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
imaj.Picture = f.Picture
imaj.Move -cadre.Left, -cadre.Top, f.Picture.Width, f.Picture.Height
ci joint le code complet que j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
 
    Frame_Transparent Frame1, Me, Image1
    UserForm2.BackColor = RGB(161, 0, 107)
    Frame1.BackColor = RGB(0, 154, 166)
    txt_nb_cig_jour.TextAlign = fmTextAlignCenter
    txt_cig_paquet.TextAlign = fmTextAlignCenter
    txt_prix_paquet.TextAlign = fmTextAlignCenter
    txt_nb_cig_jour.SetFocus
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Frame_Transparent(cadre As Frame, f As UserForm, imaj As Image)
  cadre.BorderStyle = 0
'  cadre.ZOrder 'peut être supprimé si inconnu sous VBA
  cadre.BackColor = f.BackColor
'  imaj.ZOrder 1 'peut être supprimé si inconnu sous VBA
  imaj.Picture = f.Picture
  imaj.Move -cadre.Left, -cadre.Top, f.Picture.Width, f.Picture.Height
End Sub
je peux vous donner mon fichier si besoin

merci pour votre aide