Bouton macro supprime après utilisation

Bonjour à tous,

Je voudrais savoir s'il était possible de créer un bouton macro qui se supprime après son utilisation.

Je m'explique, j'ai crée un bouton macro qui permet d'insérer une image dans un cadre et j'aimerais que le bouton disparaisse après avoir insérer l'image.

Merci de m'aider si c'est possible.

Bonjour

Je voudrais savoir s'il était possible de créer un bouton macro qui se supprime après son utilisation.

Ta demande est un peu vague car il faudrait savoir de quel type de bouton tu parles et aussi savoir combien de bouton ou objets se trouvent sur ta feuille.

Mais tu peux essayer de mettre ceci à la fin de ton code

ActiveSheet.DrawingObjects.Delete

Si ok, lors de ta réponse, veille à cocher la case verte à coté du bouton EDITER pour cloturer le fil

Crdlt

Bonjour,

En fait, sur ma feuille, il y a plusieurs bouton macro mais je voudrais que les boutons s'efface seulement après leur utilisation, çà serait des boutons à usage unique. Par exemple, pour mon bouton qui insère l'image, je voudrais qu'il disparaisse après avoir insérer la photo.

Pour le code que tu m'a donné, il efface bien le bouton mais il efface aussi la photo.

Pense tu qu'il y aurait une solution?

Merci beaucoup pour ton aide.

Bonjour

Supprimes le bouton qui a appelé la macro

Exemple

ActiveSheet.Shapes(Application.Caller).Delete

J'ai essayé avec cette formule mais je crois que cela ne fonctionne pas, ou peut être que je l'ai mal placé.

Voici mon code :

Private Sub CommandButton1_Click()

On Error Resume Next

ChoixImage = Application.GetOpenFilename(",*.jpg")

If ChoixImage = "" Then Exit Sub

Shapes("Rectangle 1").Fill.UserPicture ChoixImage

End Sub

Bonjour

Tu utilises un contrôle ActiveX

Essayes comme ceci

Private Sub CommandButton1_Click()
  On Error Resume Next
  ChoixImage = Application.GetOpenFilename(",*.jpg")

  If ChoixImage = "" Then Exit Sub

  Shapes("Rectangle 1").Fill.UserPicture ChoixImage
  ActiveSheet.OLEObjects("CommandButton1").Delete

End Sub

C'est bon, ça marche comme je le souhaite.

Merci beaucoup à vous deux.