Bonjour à tous,
J'ai un userform avec deux combobox, chacune génère une image selon le choix au niveau de la liste.
J'aimerai que le texte choisi au niveau de la Combobox1 se vide quand je fais un nouveau choix sur la Combobox2 et vis versa.
Ci-après le code utilisé, c'est le même sur la combobox2 en changeant juste les variables.
Private Sub ComboBox1_Change()
Set s = f.Shapes(CStr(Me.ComboBox1))
s.CopyPicture
f.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
f.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
f.Shapes(f.Shapes.Count).Delete
Me.Image1.PictureSizeMode = fmPictureSizeModeClip
Me.Image1.Picture = LoadPicture("monimage.jpg")
Kill "monimage.jpg"
End Sub
Merci de votre aide