Discussion :

[jerome94]

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

[SfJ5Rpw8]

bonsoir,
qu'as tu changé au fichier sur le site ?
qu'elle est ta version d'excel ?

[jerome94]

Alors ma version Excel c'est 2007

et sur le fichier d'origine du site il y a ça comme code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
  Frame_Transparent Frame1, Me, Image1
End Sub
 
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

donc à part dans le sub Userform_Initialize() où j'ai mis aussi d'autres actions pour mes textebox et autres j'ai donc rien changé

c'est bien pour ça que je fait appelle à la communauté car là c'est étrange.

Je viens même de faire le test de changer la photo sur le fichier du site et ça continue de marcher !!!

[jerome94]

Bon je viens de tout ramener dans le fichier d'origine et en faisant des copier coller des éléments du userform je me suis aperçu que j'avais oublié un élément dans le frame (Image1) et voilà ça marche du coup.

Mais je me suis aussi aperçu que les labels et textbox ne se voyaient pas c'est juste si on a des bouton en fait ?