Vider ComboBox
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
Bonjour,
Et le code suivant ne fonctionne pas ?
ComboBox1.value =""Bonjour Valc,
Merci pour ta réponse, J'ai essayé mais ça marche pas
Bonsoir,
ci-joint le fichier
J'ai une autre question svp, sur la dernière feuille j'ai trois images, je souhaite affecter chacune à un commandbutton, et qu'elle soit affichée dans le cadre.
Merci beaucoup de votre aide.
Bonsoir,
Pour supprimer la liste d'une Combo, c'est :
ComboBox1.Clear
'ou
ComboBox2.ClearPour ta 2e question, tu appliques la même méthode que dans ton Userform1 !
Cordialement.
Bonjour,
Pour mettre le comboBox vide ça marche bien avec
Me.ComboBox1.value =""Bonsoir,
Merci pour votre réponse, malheureusement ce n'est pas résolu ça donne un message d'erreur.
Bonsoir,
Merci pour votre réponse, malheureusement ce n'est pas résolu ça donne un message d'erreur.
Avec ces propos sybillins, cela ne fait guère avancer...
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
'Ton code actuel
With ComboBox2
If .Value <> "" Then
.RemoveItem .ListIndex
.Value = ""
End If
End With
End SubPrivate Sub ComboBox2_Change()
If ComboBox2.ListIndex = -1 Then Exit Sub
'Ton code actuel
With ComboBox1
If .Value <> "" Then
.RemoveItem .ListIndex
.Value = ""
End If
End With
End Sub