Comment effacer un bouton après utilisation.

Coriolan

XLDnaute Occasionnel

• 24 Octobre 2007

• #2

Re : Comment effacer un bouton après utilisation.

Bonjour,

dans le code relatif au bouton, rajoute à la fin:
Me.delete

si le code est dans une procédure autre,:
commandbutton1.delete
C'est tout

 

Dernière édition: 24 Octobre 2007

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 24 Octobre 2007

• #3

Re : Comment effacer un bouton après utilisation.

Bonjour, si c'est un bouton de la BO Formulaire, ou de la BO Dessins, ou une image, tu peux mettre ceci en avant de quitter ta feuille :

Code:

x = Application.Caller
ActiveSheet.Shapes(x).Delete

 

Vote positif 0 Vote négatif

D

DURDUR

Guest

• 24 Octobre 2007

• #4

Re : Comment effacer un bouton après utilisation.

Bonsoir,

Merci de vos réponses, mais je n'ai pas arrivé à les appliquer.
Voici mon code.

@+

JCB57

 

Pièces jointes

• ESSAIS.zip

  28.7 KB · Affichages: 27
• ESSAIS.zip

  28.7 KB · Affichages: 36
• ESSAIS.zip

  28.7 KB · Affichages: 33

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Octobre 2007

• #5

Re : Comment effacer un bouton après utilisation.

bonsoir Dudur

Salut a tous

une solution

 

Pièces jointes

• Copie de ESSAIS.zip

  26.7 KB · Affichages: 28
• Copie de ESSAIS.zip

  26.7 KB · Affichages: 31
• Copie de ESSAIS.zip

  26.7 KB · Affichages: 28

Vote positif 0 Vote négatif

D

DURDUR

Guest

• 24 Octobre 2007

• #6

Re : Comment effacer un bouton après utilisation.

Et il suffit de déclarer la feuille suivante active ?

jcb57

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 24 Octobre 2007

• #7

Re : Comment effacer un bouton après utilisation.

Bonsoir

essayes

Code:

Private Sub CommandButton1_Click()
Dim x As Long: Dim nom As String: x = Sheets.Count
[COLOR="Red"]CommandButton1.Visible = False[/COLOR]
.
.
.
.
.
End Sub

 

Vote positif 0 Vote négatif

D

DURDUR

Guest

• 24 Octobre 2007

• #8

Re : Comment effacer un bouton après utilisation.

Réponse à BANZAI64

Déjà essayé, ça efface le bouton aussi sur la nouvelle feuille.

C'est la solution de PierreJean qui fonctionne.

Merci à tous

JCB57

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Octobre 2007

• #9

Re : Comment effacer un bouton après utilisation.

bonjour DURDUR

Salut a tous

Pour le cas ou tu souhaiterais garder le bouton sur la feuille 01

 

Pièces jointes

• Copie de ESSAIS.zip

  26.1 KB · Affichages: 25
• Copie de ESSAIS.zip

  26.1 KB · Affichages: 23
• Copie de ESSAIS.zip

  26.1 KB · Affichages: 23

Vote positif 0 Vote négatif

D

DURDUR

Guest

• 25 Octobre 2007

• #10

Re : Comment effacer un bouton après utilisation.

Bonjour à tous.

PierreJean, merci de ton nouveau code, mais il supprime le bouton sur la nouvelle feuille active.

Cette feuille est destinée à recevoir des nouvelles données, et c'est elle qui devra être copiée à la suite.

Donc, c'est bien la dernière feuille qui doit comporter le bouton, et sur les précédentes, il ne doit plus y être (ou le rendre invisible, donc toujours accessible pour les initiés).

JCB57

Il y a plus grave, les données contenues dans la feuille qui à servi de modèle disparaissent mais existent dans la copie. C'est le contraire qu'il faut.

Je vais en rester à ma précédente version.

Merci encore.

JCB57

 

Dernière modification par un modérateur: 25 Octobre 2007

Vote positif 0 Vote négatif