Pour effacer une image

[nrdz83]

Bonjour à tous j'utilise cette macro :
Private Sub B_raz_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox"
c.Value = ""
Case "CheckBox"
c.Value = False
Case "ListBox", "ComboBox"
c.ListIndex = -1
End Select
Next c
End Sub

afin d'effacer la saie de mon formulaire et ça fonctionne bien
Je viens de rajouter une image dans mon formulaire et dois je rajouter
case "image"
afin de decharger l'image de mon formulaire?
Merci à tous 😎

 

[Pierrot93]

Re : Pour effacer une image

Bonjour,

oui tu peux rajouter un "case" "image" comme ci dessous, pour enlever l'image de ton forrmulaire :

Case "Image"
c.Picture = LoadPicture

bonne journée
@+

 

[nrdz83]

Re : Pour effacer une image

merci pierrot ça marche nickel, bonne journée mes amitiés 😀