Comment effacer un bouton après utilisation.

[DURDUR]

Bonjour à tous.

D'une feuille originale (F1), je fais une copie (F2) automatiquement à l'aide d'un bouton, comment rendre celui-ci innactif dans la feuille précédente (F1).

Afin d'éviter de faire des copies en double.

Merci de votre aide.

JCB57

 

[Coriolan]

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

 

[Cousinhub]

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 :

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

 

[DURDUR]

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

 

[pierrejean]

Re : Comment effacer un bouton après utilisation.

bonsoir Dudur

Salut a tous

une solution

 

[DURDUR]

Re : Comment effacer un bouton après utilisation.

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

jcb57

 

[Banzai64]

Re : Comment effacer un bouton après utilisation.

Bonsoir

essayes

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

 

[DURDUR]

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

 

[pierrejean]

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

 

[DURDUR]

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