Mc canard a écrit :
salut à tous,
j'ai un petit userform avec une case image, je voulais savoir comment faire pour que une fois que l'on clik sur la case image ça ouvre explorateur pour choisir l'image a inserer, et la mettre dans la case du userform.
Ensuite, je voudrais que lorsque l'on clik sur un bouton de ce userform, l'image soit envoié dans une cellule defini ?
Merci
@+
|
bon après pas mal de soucis, je te propose ceci:
tu crées un userform (userform1) avec un bouton et un control image
dans le code de userform1 tu mets ceci:
Code :
- Option Explicit
- Public gavImage As Variant
- Public o As Variant
- Private Sub CommandButton1_Click()
- Set o = ActiveSheet.Pictures.Insert(gavImage)
- o.Left = ActiveCell.Left
- o.Top = ActiveCell.Top
- o.Height = ActiveCell.Height
- o.Width = ActiveCell.Width
- End Sub
- Private Sub Image1_Click()
- gavImage = Application.GetOpenFilename("Image Files (*.gif; *.jpg; *.bmp), *.gif; *.jpg; *.bmp", , "Selectionner une image", False)
- If gavImage = False Then Exit Sub
- UserForm1.Image1.Picture = LoadPicture(gavImage)
- UserForm1.repaint
- End Sub
|
Dans thisworkbook, tu mets ceci:
Code :
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- o.Top = Target.Top
- End Sub
|
dans un module de ton choix, tu mets ceci:
Code :
- Sub Showform()
- UserForm1.Show
- End Sub
- Sub Hideform()
- UserForm1.Hide
- End Sub
|
En appelant showform, tu peux cliquer sur l'emplacement image et charger une image. Si tu clique sur le bouton, elle sera chargée dans la cellule.
---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
